Boucles For If Then

[gringoh]

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

 

[basto]

Hello,

j'ai du mal à comprendre ce que tu veux faire.

Pour toi une page c'est quoi?

Il serait plus utile de faire un fichier excel (zippé) et de le joindre en exemple pour permettre de mieux appréhender ton problème.

A+

 

[Gruick]

Hello Gringo y Basto
D'après ta macro, Gringo, la valeur G1 doit se trouver sur chaque ligne de la colonne M.
Les 2 selects sont bien encombrants.
Les pages sont peut-être les feuilles.
Pas trop compris comme Basto ce que tu veux faire, un bon dessin vaut mieux qu'un long discours, alors une petit topo s/excel...