[Déplacé VB6 -- VBA] executer un macro pour plusieurs feuilles a la foisRésolu

Question

bonjour 
aidez moi svp
je veux exécuter un macro pour plusieurs  feuilles excel a la foi 
                                    merci beaucoup

cs_Jack · Accepted Answer

Salut

On ne peut pas dire que tu soies super-précis !

En fait, tu peux lancer une même macro plusieurs fois à la suite, en lui fournissant le nom de la feuille sur laquelle ta macro agit.
Exemple :
Supposons que ta macro d'origine fasse ceci :
    Sub maMacro()
        Sheets("Feuil1").Range("A2").Select
        With Selection.Interior  ' Coloriage du fond
            .ColorIndex = 6
            .Pattern = xlSolid
        End With
    End Sub
Si tu veux que cette même macro agisse sur la feuille nommée "Autre feuille", il te faut rendre paramétrable le nom de la feuille.
Transforme ta macro comme ceci :
    Sub maMacro(NomFeuille As String) '          <-- Ici, ça change
        Sheets(NomFeuille).Range("A2").Select  ' <-- Ici, ça change
        With Selection.Interior  ' Coloriage du fond
            .ColorIndex = 6
            .Pattern = xlSolid
        End With
    End Sub
Et pour la lancer sur la feuille "Autre feuille" :
    Call maMacro("Autre feuille")
Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés

Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)

iliesss · Answer

salut Mr jack
je vous remercier pour ton message 
je vous donne un petit exemple pour mieu expliquer ma question
sub macro1()
    range("a1:d10").select
end sub
moi je executer cette macro dans plusiers feuilles(feuil1,feuil2,feuil3,feuil4)a la foi

rv83toulon · Answer

Salut, le forum
voici un code qui parcours chaque feuille du classeur et sélectionne la plage "A1:D10"
Sub selection()
 Dim Ws As Worksheet
 For Each Ws In Worksheets
  Ws.Activate
  Range("A1:D10").Select
 Next Ws
End Sub

@+

[Déplacé VB6 --> VBA] executer un macro pour plusieurs feuilles a la fois

3 réponses

Votre réponse

Discussions similaires