macro sur plusieurs feuilles suivant critère !?

[Novice avance !?]

bonjour,

quelque chose m'échappe ?

soit un fichier avec par exemple 13 feuilles dont 11 d'entre elles ont un nom d'onglet qui commence par "V" ( V2001, V2002 ... ) et 2 non

lorsque je lance cette marco la 1ère feuille voit s'éxécuter correctement la macro mais ensuite la même opération voulue ne se fait pas sur la feuille suivant mais toujours sur la 1ère !?

Pourquoi cela ne passe t-'il d'onglet en onglet tant que la 1ère lettre du nom de cet onglet est un "V" ?

Sub Macro1()
Dim i As Byte

With ActiveWorkbook
For i = 1 To .Worksheets.Count
If Left(Worksheets(i).Name, 1) = "V" Then

macro
End if
Next i
End With


merci

End Sub

 

[Cousinhub]

Re : macro sur plusieurs feuilles suivant critère !?

Bonjour novice,

chez moi, elle fonctionne parfaitement.....😕

ainsi que celle-ci :

Sub Macro1()
Dim i As Byte

With ActiveWorkbook
For i = 1 To .Worksheets.Count
If Worksheets(i).Name Like "V*" Then
Worksheets(i).[a1] = "OK"
End If
Next i
End With
End Sub

 

[Pierrot93]

Re : macro sur plusieurs feuilles suivant critère !?

Bonjour Novice

a priori cette macro en lance une autre, dont tu n'as pas mis le code, je ne peux donc supposer que dans cette macro tu ne fais pas référence aux noms des feuilles donc l'execution se fait sur la feuille active. Il faudrait passer comme argument à "macro" le nom de la feuille concernée.

@+