Modif macro

[manuBX]

Bonjour à tous

Je coince sur la modification d une macro
si on peut m'aider merci d'avance

Cette macro verifie sur toutes les feuilles
et j aimerais qu elle ne verifie pas la feuil1(ATmod) la feuil13(Recap)
Merci d'avance

Dim vm As Integer
Dim sh As Worksheet
vm = (1)
For Each sh In Sheets
If CInt(sh.Range("I3")) > vm Then vm = CInt(sh.Range("I3"))
Next sh

 

[Pierrot93]

Re : Modif macro

Bonjour,

modifie la boucla ainsi, nom des feuilles à adapter :

For Each sh In Sheets(Array("Feuil1", "Feuil3"))

bonne journée
@+

 

[Pierrot93]

Re : Modif macro

Re,

Aarf peut être mal interprété, regarde aussi ceci :

    If Not sh.Name = "Feuil1" And Not sh.Name = "Feuil2" Then MsgBox "ok"

 

[Robert]

Re : Modif macro

Bonjour le fil, bonjour le forum,

Arf ! Pierot, ça ne serait pas plutôt :

If Not sh.Name = "ATmod" And Not sh.Name = "Recap" Then MsgBox "ok"

 

[Pierrot93]

Re : Modif macro

Re, bonjour Robert

Euh.. oui Robert... si tu parles des noms de feuille... dans mes codes, ils étaient à adapter... on va pas tout faire lol...

 

[manuBX]

Re : Modif macro

Merci à tous
cest adopté