activation critere dans plusieurs feuilles

[sas31]

bonjour,
etant nouveau sur le site ainsi que dans l'utilisation de VBA j'espere pouvoir trouver une solution a mon pb:
je cherche a selectionner une valeur multiple sur plusieurs feuilles et tjrs dans la meme colonne dans le but plus tard de recuperer la valeur de la cellule suivante.j'ai essayer plusieurs solutions et la plus proche du but, ne fonctionne que si je selectionne une feuille ou ma valeur cherchée est presente, sinon sur les autres feuilles, toute la colonne est selectionnee.
voici ma meilleure solution (malheureusement avec un pb de selection multifeuilles), merci d'eclairer ma lanterne et de m'aider a m'ameliorer en esperant ne pas etre trop brouillon dans mon explication.

Sheets.Select
Columns("A:A").Select
For Each cll In Selection
If cll.Value = "1" Then Plg = Plg & cll.Address() & ","
Next cll
If Len(Plg) > 0 Then Range(Left(Plg, Len(Plg) - 1)).Select

 

[BERRACHED said]

Re : activation critere dans plusieurs feuilles

Salut,sas31 et bienvenue

un fichier exemple pour pouvoir t'aider

Cordialement

 

[sas31]

Re : activation critere dans plusieurs feuilles

Salut,sas31 et bienvenue

un fichier exemple pour pouvoir t'aider

Cordialement

merci de ta solicitude, je t'ai mis mon fichier qui n'est pas encore terminer.la feuille presentation cree une feuille qui est la copie de trame que je mettrai plus tard en masquer,grace a des listbox.Et en fait avec les boutons, j'insere des ligne dans les nvlles feuilles dont la cellule A est celle dont je veux selectionnee, c'est donc ca mon pb.

 

[sas31]

Re : activation critere dans plusieurs feuilles

desole j'avais mis la piece jointe en .RAR