OVH Cloud OVH Cloud

Sup ligne

2 réponses
Avatar
Nico
Bonjour,

est t'il possible de supprimer une ligne en fonction d'un contenu (par
exemple le mot "litige")

Exemple : si dans la colonne B (quelle que soit la ligne) il y a le mot
"litige" alors qu'il me supprime toute la ligne.
Si "litige" se trouve en B6, B14 et B25 alors les lignes 6, 14 et 25 devront
etre supprimé.

Merci

Nico

2 réponses

Avatar
Daniel
Bonjour.
la macro suivante devrait le faire :

Sub litige()
Dim c As Range
Do
Set c = range("B:B").Find("litige", lookat:=xlWhole)
If Not c Is Nothing Then c.EntireRow.Delete
Loop Until c Is Nothing
End Sub

Cordialement.
Daniel
"Nico" a écrit dans le message de news:

Bonjour,

est t'il possible de supprimer une ligne en fonction d'un contenu (par
exemple le mot "litige")

Exemple : si dans la colonne B (quelle que soit la ligne) il y a le mot
"litige" alors qu'il me supprime toute la ligne.
Si "litige" se trouve en B6, B14 et B25 alors les lignes 6, 14 et 25
devront
etre supprimé.

Merci

Nico




Avatar
Nico
Merci Daniel,

Ca fonctionne impec

Nico

"Daniel" a écrit dans le message de news:
#WiUS$
Bonjour.
la macro suivante devrait le faire :

Sub litige()
Dim c As Range
Do
Set c = range("B:B").Find("litige", lookat:=xlWhole)
If Not c Is Nothing Then c.EntireRow.Delete
Loop Until c Is Nothing
End Sub

Cordialement.
Daniel
"Nico" a écrit dans le message de news:

Bonjour,

est t'il possible de supprimer une ligne en fonction d'un contenu (par
exemple le mot "litige")

Exemple : si dans la colonne B (quelle que soit la ligne) il y a le mot
"litige" alors qu'il me supprime toute la ligne.
Si "litige" se trouve en B6, B14 et B25 alors les lignes 6, 14 et 25
devront
etre supprimé.

Merci

Nico