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-

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++

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é.

1. Enregistrer une macro:  Menu Outils => Macro => Nouvelle macro... + OK
2. X actions utilisateurs
3. Arreter l'enregistrement: Menu Outils => Macro =>

Exemple: je veux savoir comment supprimer deux feuilles excel sélectionnées.

1. Debut enregistrement.
2. Selection des deux feuilles en meme temps
3. suppression
4. Arret de l'enregistrement de la macro
5. 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

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é ?

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

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

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

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 ?

Sur quelle ligne il te dit cela.

@+: Ju£i¤n
Pensez: Réponse acceptée

Sheets(Feuilles).Select