Accueil > Forum > > > > sélection multiple de feuille excel
sélection multiple de feuille excel
lundi 18 août 2008 à 16:51:08 |
sélection multiple de feuille excel

xaeris
|
bonjour tout le monde ! je voulais savoir si il était possible en vba excel de sélectionner plusieurs feuilles en meme temps. Ce code la ne fonctionne pas : Dim ws As Worksheet For Each ws In ActiveWorkbook.Sheets If ws.Name Like "*" & hahaha & "*" Then ws.Activate ws.Select False End If Next il plante sur ws.Select False. Quelqu'un aurait-il une idée ? merci d'avance ! -xaeris-
|
|
lundi 18 août 2008 à 17:20:52 |
Re : sélection multiple de feuille excel

dedenet2
|
Bonjour ,
On peut selectionner plusieurs feuilles à la fois.
Mais seule une feuille peut être active.
Si j'ai bien compris, t'utilises 'Like' pour ouvrir toutes les feuilles
avec ce critère texte hahaha.
j'ai essaye ton programme sur excel 2000.
Cela à fonctionner dans j'ai écris "hahaha" plutot que hahaha
Mais ce n'ai peut etre pas ce que tu veux ?
hahaha est il un texte ou un variable ?
<<ws.Select False>> ne fait pas planter nom programme
Voilà ce que je peux dire pour le moment
A++
|
|
mardi 19 août 2008 à 08:23:45 |
Re : sélection multiple de feuille excel

jrivet
|
Salut, "il plante sur ws.Select False." Il plante d'accord, mais il doit bien te dire quelques choses non? il ne plante pas sans rien dire... Petite astuce en VBA Excel: Si tu ne sais pas traduire une action utilisateur (possible avec souris ou touches) en code VBA, passe par l'enregistreur de macro. OK il donne du code parfois lourd et avec parfois des lignes "inutiles" mais il a le mérite d'exister et de donner un GROS coup de pouce lorsque tu es bloqué. - Enregistrer une macro: Menu Outils => Macro => Nouvelle macro... + OK
- X actions utilisateurs
- Arreter l'enregistrement: Menu Outils => Macro =>
Exemple: je veux savoir comment supprimer deux feuilles excel sélectionnées. - Debut enregistrement.
- Selection des deux feuilles en meme temps
- suppression
- Arret de l'enregistrement de la macro
- Ouverture de l'IDE VBA pour regarder le code résultant
Sub Macro1() ' ' Macro1 Macro ' Macro enregistrée le 19/08/2008 par X '
' Sheets(Array("Feuil1", "Feuil2")).Select Sheets("Feuil2").Activate ActiveWindow.SelectedSheets.Delete End Sub | | By Renfield | @+: Ju£i€n Pensez: Réponse acceptée
|
|
mardi 19 août 2008 à 10:38:45 |
Re : sélection multiple de feuille excel

xaeris
|
rebonjour! tout d'abord merci de vos réponses!
j'avais déja créé la macro vba pour la sélection multiple.
Néanmoins il est impossible ( je crois) d'ajouter automatiquement des éléments a un array. c'est pourquoi je voulais savoir s'il existait un autre moyen de sélectionner plusieurs feuilles.
Si on veut, j'ai un classeur contenant plusieurs feuilles. Ces feuilles ont toutes une partie du nom en commun donc je fais le tri sur cette partie. et je voudrais sélectionner toutes le feuilles contenant la partie commune.
J'ai fait des test et pour l'instant s'il n'y a qu'une seule feuille, il n'y a aucun problème, dans le cas ou il y en a deux, cela plante. ( Désolé, je ne peux pas acceder au message d'erreur pour l'instant.)
Mon but final est de pouvoir réaliser une impression de toutes les feuilles sélectionnée.
me suis-je bien exprimé ?
|
|
mardi 19 août 2008 à 11:14:55 |
Re : sélection multiple de feuille excel

jrivet
|
Re, Essaie peu etre ceci. Dim ws As Worksheet Dim WSS() As String
ReDim WSS(0) For Each ws In ActiveWorkbook.Sheets If ws.Name Like "*" & hahaha & "*" Then WSS(UBound(WSS)) = ws.Name ReDim Preserve WSS(UBound(WSS) + 1) End If Next ReDim Preserve WSS(UBound(WSS) - 1) Stop Call Sheets(WSS).Select | | By Renfield | @+: Ju£i€n Pensez: Réponse acceptée
|
|
mardi 19 août 2008 à 11:15:20 |
Re : sélection multiple de feuille excel

jrivet
|
Re, Sorry j'ai posté trop vite => il faut enlever la ligne ou il y a STOP@+: Ju£i€n Pensez: Réponse acceptée
|
|
mardi 19 août 2008 à 12:09:32 |
Re : sélection multiple de feuille excel

FaroukVazaha
|
Bonjour,
Essayes ce code cela devrait fonctionner
Private Sub CommandButton1_Click()
Dim Fl As Worksheet Dim Feuilles() As String ReDim Feuilles(0) For Each Fl In Worksheets If UCase(Mid(Fl.Name, 1, 6)) = "HAHAHA" Then ou alors If UCase(Fl.Name) = Like "*" &HAHAHA& "*" Then Feuilles(UBound(Feuilles)) = Fl.Name ReDim Preserve Feuilles(UBound(Feuilles) + 1) End If Next ReDim Preserve Feuilles(UBound(Feuilles) - 1) Sheets(Feuilles).Select End Sub
|
|
mardi 19 août 2008 à 14:47:09 |
Re : sélection multiple de feuille excel

xaeris
|
j'ai testé l'idée que vous m'aviez fournie mais je me trouve devant cette erreur : erruer d'excution 1004 la methode select de la classe sheets a échoué. Cela vient peut etre des compléments que je n'ai pas intégrés ?
|
|
mardi 19 août 2008 à 15:03:48 |
Re : sélection multiple de feuille excel
|
mardi 19 août 2008 à 15:23:28 |
Re : sélection multiple de feuille excel

xaeris
|
Sheets(Feuilles).Select
|
|
Cette discussion est classée dans : excel, feuille, sélection, ws, multiple
Répondre à ce message
Sujets en rapport avec ce message
sélection d'une feuille excel à partir d'une sélection d'un item dans une listbox [ par henrry2 ]
Bonjour j'ai une macro en vb pour enregistrer des noms dans un listing général et des listings régionaux. quand je rentre un nouveau résident dans le
Ajuster feuille excel sur une page en largeur [ par tulesais ]
Bonjour tout le monde !!! j'ai un ptit problème...lorsque je génère une feuille excel. Je n'arrive pas à comprendre comment faire pour obtenir l'imp
[Catégorie encore modifiée VB6 --> VBA] Sélection et saisie d'une feuille dans une macro [ par champi210781 ]
Bonjour, Merci à tous pour vos réponse et votre aide. J'ai à nouveau besoin de vous. J'ai créer un planning sous excel, avec un onglet (ou feuille)
Excel macro - Sélection d'une plage de cellule avec cell ? [ par 4toMik ]
Bonjour, Je cherche à sélectionner une plage de cellules avec la fonction [b]Cells[/b]. Par exemple reproduire [b]"Range ("A1:F2").Select"[/b] avec
Faire apparaitre une image externe et la faire disparaitre après par sélection d'une cellule dans Excel [ par titus91490 ]
Bonjour à tous et toutes, Deuxième post (je me suis fait jeter car pas dans le bon thème...)peut être pas au bon endroit mais j'essaye quand même...
[Catégorie modifiée VB6 --> VBA] VB Excel : Problème de suppression d'une feuille Excel contenant du code. [ par domynik ]
Bonjour, Dans un classeur 1 j'ai une feuille « Module_1 », dans un classeur 2 j'ai une autre feuille appelée elle aussi « Module_1 ». Dans le dossie
[Catégorie modifiée VB6 --> VBA] excel 2007 gif animé dans un userform et pas dans une feuille excel [ par echarlotte ]
Bonjour, Je souhaite insérer un gif animé dans un userform, j'ai regardé sur les forum et j'ai bien compris qu'il fallait cocher "le Microsoft Web bro
interdire la sélection de plusieurs cases sous excel [ par Ackby ]
Bonsoir, j'ai développé des macros excel mais celles-ci ne fonctionnent que si je ne sélectionne qu'une seule case dans mon tableau. qulequ'un pouirr
Mot de passe Excel 2003 [ par _zordon ]
Bonjour a tous J'ai un petit souci que je ne sait pas resoudre surement par manque d'experience. Sous excel 2003 je protege et deprotege une feuille p
Envoyer une alerte mail selon date échéance sur tableau excel [ par 751013 ]
Bonjour, malgrés mes recherches sur le net je ne trouve pas de réponse à mon problème. J'ai crée sous excel un tableau de données afin de gérer un sto
Livres en rapport
|
Derniers Blogs
ASYNC/AWAIT: COMPRENDRE COMMENT CA MARCHEASYNC/AWAIT: COMPRENDRE COMMENT CA MARCHE par fathi
Tout le monde est unanime pour dire que la programmation multi-thread et asynchrone est en train de devenir un sujet incontournable. Beaucoup de choses sont arrivées avec le framework 4 pour le code parallèle (TPL, PLinq,.) et bientôt, on va avoir l...
Cliquez pour lire la suite de l'article par fathi PAS D'INTELLITRACE SUR MON SITE WEB DANS IIS !PAS D'INTELLITRACE SUR MON SITE WEB DANS IIS ! par Etienne Margraff
J'ai récemment eu un problème pour obtenir l'intelliTrace sur un site web dans IIS. Il n'y avait pas de message d'erreur, rien dans le journal d'évènement Windows, et après 3 appels à une voyante, 2 visites chez un marabou, j'ai failli me résign...
Cliquez pour lire la suite de l'article par Etienne Margraff OFFICE 365 - SHAREPOINT ONLINE, QUELQUES LIMITATIONSOFFICE 365 - SHAREPOINT ONLINE, QUELQUES LIMITATIONS par junarnoalg
De nombreuses entreprises font le choix de SharePoint Online, service fourni au travers de l'offre de Microsoft Office 365. S'il est vrai que ce choix apporte un grand nombre d'avantages; rapidité de mise en œuvre, disponibilité, large couvertu...
Cliquez pour lire la suite de l'article par junarnoalg PRéSENTATION DES API REST DE WINDOWS AZURE : LISTER LES COMPTES DE STORAGEPRéSENTATION DES API REST DE WINDOWS AZURE : LISTER LES COMPTES DE STORAGE par richardc
http://www.c2idotnet.com/articles/presentation-des-api-rest-de-windows-azure-lister-les-comptes-de-storage
Désolé pour "toto", mais c2i existait avant blogs.developpeur.org et c'est mon site "officiel" ;-) ...
Cliquez pour lire la suite de l'article par richardc
Logiciels
DocTranslate (V3.1.0.0)DOCTRANSLATE (V3.1.0.0)DocTranslate est un traducteur de document Microsoft Word, PowerPoint et Excel. Il permet d'autom... Cliquez pour télécharger DocTranslate Tribler (2012)TRIBLER (2012)Tribler est un client pair à pair (P2P/Peer-to-Peer) open source avec la capacité de regarder des... Cliquez pour télécharger Tribler OneSwarm (2012)ONESWARM (2012)Le peer-to-peer qui protège votre vie privée, c'est OneSwarm.
Ce logiciel de peer-to-peer crypté... Cliquez pour télécharger OneSwarm PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V8.4)PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V8.4)PONAMEDIA TV DEVIENS HELLLOOO FLASH
LA TV SUR VOTRE ORDINATEUR.
Toute une plateforme Multi... Cliquez pour télécharger PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO Academy System (17.2.1.0)ACADEMY SYSTEM (17.2.1.0)Logiciel de gestion des établissements.
- élèves/étudiants (inscription, dossier, absence...)
-... Cliquez pour télécharger Academy System
|