Bonjour à tous,
j'ai un petit souci.. évidemment ! Je m'explique: en fait je veux trouver une valeur dans une colonne, et dès que je l'ai trouvée je supprime toutes les lignes qui suivent cette valeur. J'ai rédigé ça, mais evidemment ça ne fonctionne pas :
Et Rows("lig_g:k").Delete ne fonctionne évidemment pas..
Je ne peux pas supprimer les lignes une par une avec une boucle for car ça fait ramer le fichier à chaque suppression de ligne, donc il faudrait tout supprimer d'un coup!
Merci d'avance
j'ai un petit souci.. évidemment ! Je m'explique: en fait je veux trouver une valeur dans une colonne, et dès que je l'ai trouvée je supprime toutes les lignes qui suivent cette valeur. J'ai rédigé ça, mais evidemment ça ne fonctionne pas :
Code:
k = ActiveSheet.UsedRange.Rows.Count
Set g = ActiveSheet.Range("C9:C" & k).Find("-", LookIn:=xlValues, LookAt:=xlWhole)
lig_g = g.Row
Range("C" & lig_g:"C" & k).Delete
Et Rows("lig_g:k").Delete ne fonctionne évidemment pas..
Je ne peux pas supprimer les lignes une par une avec une boucle for car ça fait ramer le fichier à chaque suppression de ligne, donc il faudrait tout supprimer d'un coup!
Merci d'avance
Dernière édition: