Supprimer des lignes

[ahclion]

Bonjour a tous,

J'aimerai supprimer des lignes qui comportent 14, 13, 12 bons résultats dans la colonne "O" d'une manière dynamique grace a un bouton par exemple et non pas manuellement c'est très lent

En PJ le fichier concerné...

 

[Hieu]

Salut,

Si j'ai bien compris ??

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

++
Hieu

 

[ahclion]

Merci beaucoup c'est un peu ça mais pas tout a fait je m'explique il y'a un bouton qui génére d'une maniere aléatoire les grilles de A1 à N1 il y'a des grilles qui apparaissent 14,13,12 et il faut les supprimer ensuite avec ce meme bouton on regenere
sur A1 à N1 et on supprime de nouveau ainsi de suite...

merci de ton aide mais ton fichier m'a beaucoup plus comme merci

 

[Hieu]

Salut,

Peut-etre comme ça ??

Sub supprimer()
For Each c In Range(Range("o3"), Range("o3").End(xlDown))
    If c = 12 Or c = 13 Or c = 14 Then c.Rows.Delete Shift:=xlUp
Next c
End Sub

 

[Jacky67]

="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...

Bonjour
Pourquoi ouvrir plusieurs Fil ???

 

[ahclion]

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...

 

[Jacky67]

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...

Re...
Tu veux dire, qui ne laisse que les 30 première lignes pour les prochains tests ???

 

[ahclion]

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

 

[Jacky67]

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

Désolé pas certain d'avoir compris.....
comment veux*tu arriver " a 30 grilles qui correspondent aux conditions 14,13,12"
Explique comme à un enfant de 5 ans

 

[ahclion]

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...

 

[Jacky67]

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...

Ok !
Teste

 

[ahclion]

Re,

Merci beaucoup