supercrapaud
XLDnaute Occasionnel
Bonjour à vous tous,
Je voulais savoir comment on pouvait inscrire en VBA plusieurs effets pour une fonction SI.
Explications : Je fais un test sur les cellules d'un range et je voudrais que lorsque la condition ne soit remplie plusieurs actions se passent,
1) affichage d'une msgbox,
2) un retour sur la case problématique
3) et la sortie de la macro.
Seulement voilà, même lorsque la condition est remplie les cas 2 et 3 se réalisent. Je vous laisse mon code car je sèche, même après recherche sur internet.
For Each c In Sheets("Facture").Range("a23:a76")
ad1 = c.Address
If Range(ad1).Value <> "" Then
If IsEmpty(Range(ad1).Offset(0, 10)) Then MsgBox ("Vous devez indiquer un lieu de stockage pour chaque référence.")
Range(ad1).Offset(0, 10).Select
exit sub
End If
Next c
D'avance je vous remercie.
Je voulais savoir comment on pouvait inscrire en VBA plusieurs effets pour une fonction SI.
Explications : Je fais un test sur les cellules d'un range et je voudrais que lorsque la condition ne soit remplie plusieurs actions se passent,
1) affichage d'une msgbox,
2) un retour sur la case problématique
3) et la sortie de la macro.
Seulement voilà, même lorsque la condition est remplie les cas 2 et 3 se réalisent. Je vous laisse mon code car je sèche, même après recherche sur internet.
For Each c In Sheets("Facture").Range("a23:a76")
ad1 = c.Address
If Range(ad1).Value <> "" Then
If IsEmpty(Range(ad1).Offset(0, 10)) Then MsgBox ("Vous devez indiquer un lieu de stockage pour chaque référence.")
Range(ad1).Offset(0, 10).Select
exit sub
End If
Next c
D'avance je vous remercie.