Sub cacher()
For Each c In Range(Range("o3"), Range("o3").End(xlDown))
If c = 12 Or c = 13 Or c = 14 Then c.Rows.Hidden = True
Next c
End Sub
Sub montrer()
Range(Range("o3"), Range("o3").End(xlDown)).EntireRow.Hidden = False
End Sub
Bonjour="ahclion, post: 20073931, member: 195024"]
....il faut les supprimer ensuite avec ce meme bouton on regenere
sur A1 à N1 et on supprime de nouveau ainsi de suite...
Re...Re,
C'est exactement ça, merci pour les fils je n'ai pas fait exprès je voulais tellement ce fichier que j'ai du insister désolé si ça vous a géner !!!
Par contre, dernière chose dans la mesure du possible, c'est de créer un deuxième bouton qui va s'appeller "clic auto.", avec ce bouton va nous permettre de supprimer des lignes en récursivité en boucle "for" par exemple jusqu'à arriver a 30 lignes et s'arrêtera automatiquement. Merci beaucoup d'avance si c'est faisable...
Désolé pas certain d'avoir compris.....Nn il laisses 30 lignes dans le tas suivant le clic auto c'est a dire plusieurs clics mais en cliquant une seule fois pour arriver a 30 grilles qui correspondent aux conditions 14,13,12... voila merci
Ok !Re
Bon, le dernier fichier je l'ouvre et je cliques plusieurs fois sur le bouton clic jusqu'a arriver a 30 lignes.
Le fichier que je veux c'est de cliquer une seul fois sur un bouton qui va s'appeler clic auto jusqu'a arriver a 30 lignes.
Je crois que c'est vraiment clair cette fois-ci...