[Résolu] Problème de boucle avec deux If_Then entre For_To et Next

[Webperegrino]

Bonsoir le Forum,
Après une journée à chercher dans tous les sens je me suis perdu dan ma programmation et viens vers vous pour essayer d'y voir plus clair.

Je simplifie à l'extrême toute ma codification on ne montrant ici que la structure.

Dans un premier temps j'avais créé ceci, et cela fonctionnait :

[Highlight=BVA]
Sub Essai()
...
For lg = 4 To Sheets("ARCHIVES").Range("B100").End(xlUp).Row
If 'Condition A satisfaite' Then
'Codification'
Next lg
'codification finale'
End Sub
[/code]

Puis mon travail m'a obligé à tenir compte d'une autre condition une fois la première vraie :

[Highlight=BVA]
SUb Essai()
...
For lg = 4 To Sheets("ARCHIVES").Range("B100").End(xlUp).Row
If Condition A satisfaite Then

If Condition B satistaite Then
next lg
Else 'J'ai aussi essayé avec End If à la place de Else

Codification
Next lg
'codification finale'
End Sub
[/code]

Et c'est là que tout coince !

Comment dois-je placer la condition B qui dépende de la condition A ?
Merci à l'avance pour vos lumières,
Cordialement,
Webperegrino

 

[joss56]

Re : Problème de boucle avec deux If_Then entre For_To et Next

Bonjour,

Peut-être comme ça :

if cond_A=1 and cond_B=1 (1 pour vrai)
then
instruction
else
exit sub
end if

Bonne journée,

Jocelyn

 

[mapomme]

Re : Problème de boucle avec deux If_Then entre For_To et Next

Bonjour Webperegrino, joss56,


ou bien peut-être...

[Highlight=BVA]
SUb Essai()
...
For lg = 4 To Sheets("ARCHIVES").Range("B100").End(xlUp).Row
If Condition A satisfaite Then
' faire ici les actions pour A satisfaite
' (que B soit satisfait ou non)
' ...
' ...
If Condition B satistaite Then
' faire ici les actions spécifiques pour ceux qui en plus satisfont B
' ...
' ...
endif
endif
next lg
...
end sub
[/code]

 

[Webperegrino]

Re : Problème de boucle avec deux If_Then entre For_To et Next

Bonjour Le Forum,
Bonjour Jocelyn et "Mapomme",
C'est la solution de "Mapomme" qui doit être adaptée dans mon cas : elle fonctionne en effet, après adaptation à ce que je désirais.
Merci toutefois à Jocelyn, qui est de la région : je devais rester dans la boucle, intégrer la condition 2 et surtout ne pas sortir avec un Exit sub qui ne pouvait convenir ici.
Merci à vous deux, vous m'enlevez un tracas.
Cordialement,
Webperegrino