Macro dynamique

[stagiairerm]

Bonjour à tous

Voici une macro pour ffaire appariatre des lignes selon le critere A :

Rows("12:218").Select
Selection.EntireRow.Hidden = True
Range("F12:F218").Select
For Each o In Selection
If o.Value = "A" Then
o.EntireRow.Hidden = False
End If
Next

End Sub

Je souhaiterai que mon critère soit dynamique, soit relatif à ce qu'il y a écrit, par exemple, dans la cellule F9. Si il y a un "1", il fera apparaitre toutes les lignes avec un "1", si y a un "2" il fera apparaitre...

Soit un truc qui ressemblerai à ca

Rows("12:218").Select
Selection.EntireRow.Hidden = True
Range("F12:F218").Select
For Each o In Selection
If o.Value = F9 Then
o.EntireRow.Hidden = False
End If
Next

End Sub

Merci d'avance pour votre aide

 

[wilfried_42]

Re : Macro dynamique

Bonjour

as tu regardé les fitres automatique ? plus simple et plus rapides
Menu données / filtres
utilises l'enreregistreur de macro
fait ton choix, ensuite regarde, et change avec ta cellule, utilise l'interruption sur la saisie des cellules

 

[Pierrot93]

Re : Macro dynamique

Bonjour Stagiaire,

modifies comme suit :

If o.Value = range("F9").Value Then

bon après midi
@+

 

[skoobi]

Re : Macro dynamique

Bonjour,

un simple filtre automatique ne te convient pas?

Edit: décidémment, suis à la bourre aujourd'hui 😀, Pierrot🙂, wilfried🙂

 

[stagiairerm]

Re : Macro dynamique

Merci beaucoup de votre aide c'est magique !!