VBA suppression lignes avec conditions
Bonjour,
j'aurais besoin d'aide pour écrire une macro.
Voici ce que je voudrais faire:
j'ai un tableau avec des données et il faudrait que je supprime à partir de la ligne 5 toute les lignes dont la cellule de la colonne G et < à 16000 sauf si elle est égale à 15000 ou 14780.
Si quelqu'un sait comment l'écrire, merci
Bonjour Barros le forum
tu n'as pas su faire un petit fichier alors je te l'ai fait !!!!!
c'est compliqué de faire un exemple!!!!!!!!!!!!!!!!
le fichier avec ta macro
a+
Papou
Bonjour,
merci our votre aide vos macro fonction parfaitement.
Par curiosité Patric est-ce que tu pourrais commenter t'as macro car je ne comprends pas les 1er lignes (je suis novice encore)
Sub lignes()
With Feuil1
Dim fin&, i&
fin = .Cells.Find("*", , xlValues, , 1, 2, 0).Row
For i = fin To 5 Step -1
If .Cells(i, 7) = 15000 Or .Cells(i, 7) = 14780 Then GoTo 1
If Cells(i, 7) < 16000 Then Rows(i).Delete shift:=xlUp
1 Next i
End With
End Sub
Bonjour Gmb barros le forum
GMB ta macro supprime les lignes 15000 et 14780, ce que barros voulait conserver ( enfin si j'ai compris sa demande)
pour Barros
fin = .Cells.Find("*", , xlValues, , 1, 2, 0).Rowcela sert à déterminer la dernière ligne utilisé dans ta feuille, car comme tu n'as pas donné le nombre de colonnes ni de fichier d'exemple, si tu as des lignes vides dans la colonne G, tu dois bien supprimer les lignes puisqu'elles sont inférieures à 160000!!
donc avec cette recherche, je cherche la dernière ligne utilisée de toutes les colonnes
et une dernière chose, ma macro est fausse puisque j'ai oublié un point
IF .Cells(i, 7) < 16000 Then Rows(i).Delete shift:=xlUppas grave si tu lances la macro avec la feuille active, mais dans le cas contraire pas bon du tout
Voilà
Bon weekend
a+
Papou
Bonjour paritec
Tu as raison, je me suis planté.
Mais ta version donne la solution alors inutile que je rectifie.
Bye !
de barros a écrit :... si je veux rajouter une condition avec une valeur texte, par exemple: si une cellule de la colonne G contient le texte "pomme", comment le rédiger?
Nouvelle version avec tous les paramètres modifiables...
Bye !
Bonjour Gmb le forum
la valeur 12000 de la colonne G n'est pas supprimée
a+
Papou
paritec a écrit :la valeur 12000 de la colonne G n'est pas supprimée
Bonjour paritec
Mais si, la valeur 12000 qui reste est celle de la ligne 3. Or, les conditions de suppression ne concernent que les lignes qui sont à partir de la ligne 5.
Bye :
Re GMB le forum
ah alors j'ai pas fait gaffe que la valeur était en ligne 3 , donc tout est ok
a+
Papou