Macro plusieurs conditions : comment la stopper ?

[Usine à gaz]

Bonjour à tous,

J'ai fait la macro suivante :

Sub CopieOF()
'
' CopieOF Macro
'

'
If [h1] = 0 Then
Call CopieOF1
End If

If [s1] = 0 Then
Call CopieOF2

End If
If [ad1] = 0 Then
Call CopieOF3
End If

If [ao1] = 0 Then
Call CopieOF4
End If

If [az1] = 0 Then
Call CopieOF5
End If

If [bk1] = 0 Then
Call CopieOF6
End If

End Sub

J'ai besoin qu'elle s'arrête quand la condition est remplie mais elle s'exécute toujours jusqu'au bout.
Pourriez-vous me donner les instructions qui manquent ?

Merci de votre aide (une fois de plus LOl),
Amicalement,
Lionel,

 

[Orodreth]

Re : Macro plusieurs conditions : comment la stopper ?

Bonjour,

Il faut que tu rajoutes l'instruction "Exit sub" à l'intérieur de tes structures conditionnelles (les IF ... END IF)

Cordialement,

 

[Usine à gaz]

Re : Macro plusieurs conditions : comment la stopper ?

Bonjour,

Super et ça marche bien sûr .... en plus je le savais mais je ne fais pas des macros tous les jours !!!
Un grand merci,
Amicalement,
Lionel,

 

[Orodreth]

Re : Macro plusieurs conditions : comment la stopper ?

Un plaisir 🙂

 

[Usine à gaz]

Re : Macro plusieurs conditions : comment la stopper ?

Et très utile pour moi LOL

Si je n'abuse pas trop, j'aimerai te poser une autre question :

Je sais donc faire une macro à 1 condition :

Sub CopieOF()
'
' CopieOF Macro
'

'
If [h1] = 0 Then
Call CopieOF1
End If

End Sub


Mais je ne sais pas faire à plusieurs conditions

Tu pourrais m'éclairer ?

Amicalement,
Lionel,

 

[Orodreth]

Re : Macro plusieurs conditions : comment la stopper ?

Re,

Tu parles de ça ?

Sub CopieOF()
   '
   ' CopieOF Macro
   '

   '
   If [h1] = 0 Or [h1] = 1 Then
      Call CopieOF1
   End If

End Sub

Tu peux jouer avec les opérateurs Or, et And.

Cordialement,

 

[Usine à gaz]

Re : Macro plusieurs conditions : comment la stopper ?

C'est ça,
Merci vraiment
Je suis vraiment un profane en VBA
Amicalement,
Lionel,

 

[Orodreth]

Re : Macro plusieurs conditions : comment la stopper ?

Pas de quoi, un plaisir de rendre service 🙂