Suppression ligne dans tableau

Bonjour a tous, j'ai un souci avec mon tableau excel et je pense que vous pourrez facilement m'aider...

Je souhaiterais supprimer toutes les lignes de mon tableau, qui ont dans la colonne A, la valeur "EUR"

Merci d'avance de votre aide...je galere depuis un petit moment dessus...ca doit etre la fatigue car il me semble l'avoir deja fait auparavant...

Bonjour

Si c'est pour une fois, tu peux faire sans macro.

Supposons ta premiére donnée en A2.

Dans une colonne vide tu insére en ligne 2 la formule:

=NB.SI(A2;"*EUR*")

que tu incrémentes jusqu'au bas du tableau.

Puis tu trie ton tableau sur cette colonne Décroissant pour regrouper les valeurs positives en haut du tableau.

Tu sélectionnes toutes les lignes à valeur positives d'un coup et tu supprimes.

Si ce doit être répétitif et automatique, précise le.

Cordialement,

merci, mais effectivement j'ai besoin de le faire en VBA car certains tableau son assez long.... et repetitif.

Il n'y a pas moyen un while qui lorsqu'il va rencontrer la valeur EUR, supprime la ligne automatiquement?

Bonjour

Je ne sais pas faire en VB; une macro XL4 que quelqu'un se fera un plaisir de transformer en VB.

Pour te dépanner, raccourci d'activation CTRL+a

Cordialement,

https://www.excel-pratique.com/~files/doc/SupLignes.xls

Salut le forum

Une petite macro VBE, à adapter selon le cas

Option Compare Text

Sub SupprimerValeur()
Dim Ligne As Long
For Ligne = Range("A65535").End(3).Row To 1 Step -1
If Cells(Ligne, 1).Value Like "*eur*" Then Rows(Ligne).Delete
Next Ligne
End Sub

Mytå

ca marche super, en plus c'est simple! je t'adore! merci merci merci

Note Amadéus

rems 12 à transféré cette question et créé un nouveau post

Bonjour rems12

Pour démarrer un autre sujet, qui n'a plus rien à voir avec celui de ce fil, il serait plus intéressant pour tous que tu crées un nouveau sujet en posant ta question.

Notre ami rems 12 à réagi aimablemement et a transféré sa question en créant un nouveau post. Merci à toi rems12

Cordialement,

Amadéus

Désolé c'est vrai...

Tien j'ai une autre question qui se rapporte plus au titre.

Je suis bloquer sur un problème depuis hier matin, il s'agit de supprimer a l'aide d'une macro toutes les bordures en trop a la fin du tableau. voici mon code:

'Suppression des bordure inutiles apres le tableau

Dim lign2 As Long

For lign2 = Range("A100").End(3).Row To 1 Step -1

If Cells(lign2).Value = "" Then Rows(lign2).Select

Selection.Borders(xlDiagonalDown).LineStyle = xlNone

Selection.Borders(xlDiagonalUp).LineStyle = xlNone

Selection.Borders(xlEdgeLeft).LineStyle = xlNone

Selection.Borders(xlEdgeTop).LineStyle = xlNone

Selection.Borders(xlEdgeBottom).LineStyle = xlNone

Selection.Borders(xlEdgeRight).LineStyle = xlNone

Selection.Borders(xlInsideVertical).LineStyle = xlNone

Selection.Borders(xlInsideHorizontal).LineStyle = xlNone

Next lign2

Et la surprise il me supprime les bordures du tableau mais pas celles d'apres!

c'est bon j'ai trouvé, il fallait juste enlever le end(3)....

A++ alll!