Bonjour le Forum,
Je rencontre des difficultés dans le traitement de boucles.
J'ai préparé une macro dont vous trouverez une partie ci-dessous. Cette boucle automatise certains traitement en fonction de résultats.
Sur la page PageG1 Lorsue la valeur G1 est présente une action est réalisée. Jusque la pas de problème. Une fois G1 trouvé et l'action réalisée la boucle passe à la page PageG2 et ainsi de suite.
Le problème se pose lorsque la valeur G1 n'est pas présente dans ma feuille. La macro devrait en théorie passer à la page PageG2 !!!
Merci d'avance à toutes et à tous pour votre aide.
GringoH
_________________________
PageG1:
Sheets('RECUPERATION DONNEES').Select
Range('M12').Select
Counter = 0
For Counter = 0 To Lignefin_balance + 14
Range('M12').Select
If Selection.Offset(Counter, 0).Value = 'G1' Then
.... traitement...
End If
Next
PageG2:
Sheets('RECUPERATION DONNEES').Select
Range('M12').Select
Counter = 0
For Counter = 0 To Lignefin_balance + 14
Range('M12').Select
If Selection.Offset(Counter, 0).Value = 'G2' Then
.... traitement...
End If
Next
Je rencontre des difficultés dans le traitement de boucles.
J'ai préparé une macro dont vous trouverez une partie ci-dessous. Cette boucle automatise certains traitement en fonction de résultats.
Sur la page PageG1 Lorsue la valeur G1 est présente une action est réalisée. Jusque la pas de problème. Une fois G1 trouvé et l'action réalisée la boucle passe à la page PageG2 et ainsi de suite.
Le problème se pose lorsque la valeur G1 n'est pas présente dans ma feuille. La macro devrait en théorie passer à la page PageG2 !!!
Merci d'avance à toutes et à tous pour votre aide.
GringoH
_________________________
PageG1:
Sheets('RECUPERATION DONNEES').Select
Range('M12').Select
Counter = 0
For Counter = 0 To Lignefin_balance + 14
Range('M12').Select
If Selection.Offset(Counter, 0).Value = 'G1' Then
.... traitement...
End If
Next
PageG2:
Sheets('RECUPERATION DONNEES').Select
Range('M12').Select
Counter = 0
For Counter = 0 To Lignefin_balance + 14
Range('M12').Select
If Selection.Offset(Counter, 0).Value = 'G2' Then
.... traitement...
End If
Next