Pointer une liste Au secour

[vinz602]

Bonjour a tous
ci joint vous trouverez le fichier en question
sur ma feuille Etiquette

il suffit de selectionner un carton exemple 16 puis entree un filtre est appliquer puis une impression est faite (elle a étais retirer a l'heure actuel)
si vous taper 26 il y a plusieurs ligne


je souhaiterai pointer les cartons, dans ce fichier je me sert d'un double clic pour marquer "OK" donc pointer et je voudrai l'inclure avec mon premier entree
et pointer tous les carton de la selection ..

Pouvez vous m'aider SVP
Merci

 

[Gael]

Re : Pointer une liste Au secour

Bonjour Vinz602,

Si j'ai bien compris le problème, essaye en rajoutant le code suivant dans la macro Test1:

...
For Each cell In Range("$N10:$N34").SpecialCells(xlCellTypeVisible)
    cell.Value = "OK"
Next cell
...

@+

Gael

 

[vinz602]

Re : Pointer une liste Au secour

Probleme résolu merci gael t'es un boss

 

[JCGL]

Re : Pointer une liste Au secour

Bonjour à tous,

Peux-tu essayer avec :

Sub Test1()
    Range("E9:K200").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
        Range("H2:H3"), Unique:=False
Range("N10:N200") = "OK"

End Sub

A+

Edition : Bonjour Gael