Arrêt macro si dernier onglet

Bonsoir tout le monde,

Je bute sur l'écriture d'une macro qui consiste à sortir de la sub si conditions remplies. Je l'ai écrite comme ça :

If Range("D2") = "" And ActiveSheet.Index = Sheets.Count Then
Exit Sub
ElseIf Range("D2") = "" Then
MsgBox ("OK")
Call MAJ1

En ayant comme logique si D2 est vide et que nous sommes sur le dernier onglet, on sort de la sub et la macro s'arrête sinon si D2 est vide j'ai un message OK et j'appelle une autre macro.

Malheureusement la macro tourne en boucle .

Une idée du pourquoi ? Problème de raisonnement ou d'écriture ?

Merci de m'accorder un peu de votre temps.

Bonsoir,

For i = 1 To Worksheets.Count
If Sheets(i).Range("D2").Value = "" Then
' on fait ce qu'il y a à faire
EndIf
Next i

Ici lorsque i= dernière feuille, la boucle s'arrête.

@ bientôt

LouReeD

Rechercher des sujets similaires à "arret macro dernier onglet"