Langague macro

Bonjour,

1)
Dim w As Worksheet
For Each w In Worksheets
If w.Name = "Feuil2" Then
' faire ceci
End If
Next w

Selon comment sont nommées tes feuilles tu peux tester sur un nom refabriqué pour alléger le code.
Par exemple :
If left(w.Name,2) = "D_" : le code s'executera sur toutes les feuilles commençant par D_...

Ou bien tester les noms des feuilles ou le code ne doit pas s'appliquer (s'il y a moins de nom de feuilles à tester)

2) tu te mets en enregistrement de macro et tu adaptes le code.

3) cells(celluleX.row, n°colonne)= "V"

eric

Bonjour,

Ok je crois que c'est bon merci ;)

Par contre comment ont dit toutes les feuilles sauf la feuille "intel1", "intel2" et "intel3"?

Merci

Bonjour,

If w.Name <> "Feuil2" and w.Name <> "Feuil3" and w.Name <> "Feuil4" Then
' faire ceci
end if

ou bien pour pourvoir le mettre sur plusieurs lignes s'il y en a bcp :
If w.Name = "Feuil2" or w.Name = "Feuil3" Then next w
If w.Name = "Feuil4" or w.Name = "Feuil5" Then next w
' faire ceci

Le mieux est quand même qu'elle démarrent par les mêmes caracteres

eric

oK
Merci

beaucoup
ca y est mon programme est terminé ;)

je suis trop contente

Merci beaucoup a vous tous qui m'avez aidé :)

sans vous je serrais vraiment dans le petrin ;)))

je ne sais comment vous remercier! si vous n'étiez pas tous des internet de super lion je vous aurais tous invité a boir un verre mais la... ça reduit pas mal les possibilité lol

encore merci et bonne journée