[EXCEL] - Suppression ligne sur condition Résolu

Question

Bonjour,

Comme il est dit dans le titre, je cherche à supprimer des lignes, dans une feuille, en fonction de la valeur des cellules de la colonne B (exemple si B1, B2,.... >0).
J'ai vu quelques topics avec des bouts de codes mais vu que je ne maîtrise pas les macros, je n'ai pas réussi à me dépatouiller avec cela !

Merci par avance.

Cordialement.

tintin · Answer

salut,

donne plus d'info:

quels sont les conditions?
quelles sont les cellules?
Quelles sont les lignes à supprimer?

floom26 · Answer

Cher tintin,

Voici un exemple simplifié de mon tableau

A     B
1     texte
2     texte2
5     texte3
45   texte4
631 texte5

Ma condition est que si A>500 ->>> ligne à supprimer.

Donc dans mon exemple A5>500 donc il faut supprimer la ligne 5 et conserver les autres.

j'espère avoir été un peu plus clair XD !

garion28 · Answer

tu peu utiliser l'enregistreur de macro pour l'aide, notamment pour la suppression de la ligne
ensuite il faut parcourir la liste avec une boucle
i=1
while(sheets("tafeuille").range("A"&i).value<>"")
if(sheets("tafeuille").range("A"&i).value>500) then 
et là tu utilise ce que tu a eu avec l'enregistreur de macro pour supprimer la ligne sheets("tafeuille").range("A"&i).value>500
end if
wend

floom26 · Answer

Ok, je n'y connais vraiment rien donc j'ai essayé de faire avec ce que tu m'as dit mais la boucle tourne continuellement m'empêchant de faire quoi que ce soit d'autre...
Comme faire pour que la boucle s'arrête une fois qu'elle a parcouru la feuille ?

garion28 · Answer

arf j'ai fait une erreur toute bête (j'ai fait une boucle infini sans faire attention), là ca fonctionne

i=1
while(sheets("tafeuille").range("A"&i).value<>"")
if(sheets("tafeuille").range("A"&i).value>500) then 
et là tu utilise ce que tu a eu avec l'enregistreur de macro pour supprimer la ligne sheets("tafeuille").range("A"&i).value>500
end if
i=i+1
wend

tompols · Answer

Bonjour
si tu n'es pas à l'aise avec vba, pourqoui ne pas simplement trier sur ta colonne A (tri ascendant) et ensuite supprimer les lignes apres la premiere à etre supérieure à 500 ?
sinon en vba :
sub supprimeleslignes()
derlig = range("A65536").end(xlup).row
for i = derlig to 1 step -1
if range("A" & i).value > 500 then rows(i).delete
next i
end sub
J'ai pas testé mais ça devrait fonctionner...

floom26 · Answer

Car la liste doit se rafraichir automatiquement à parti d'un autre onglet :)

tompols · Answer

re,
j'ai pas compris le truc avec l'autre onglet ? Ta liste doit se rafraichir, cest à dire ? la liste ds laquelle tu supprimes des lignes ? se rafraichir comment, avec du code ou autre ? à quel moment elle se rafraichit ? etc...

floom26 · Answer

c'est bon tompols ton code fonctionne bien.
Je te remercie !!!

tompols · Answer

de rien :)
bon weekend

[EXCEL] - Suppression ligne sur condition

10 réponses

Discussions similaires

Newsletters