En VBA, comment supprimer toutes les lignes contenant
le mot "TOTO" en colonne B.
c'est à dire tous ce qui est de la forme
XXXX TOTO YYYY
TOTO YYYY
...
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
ABED HADDOU
Bonsoir astalavista
essaie
Sub SuppMot() For Each c In Range([b65000].End(xlUp), [b1]) If c Like "*TOTO*" Then c.EntireRow.Delete Next c End Sub
Abed_H
Bonjour,
En VBA, comment supprimer toutes les lignes contenant le mot "TOTO" en colonne B. c'est à dire tous ce qui est de la forme XXXX TOTO YYYY TOTO YYYY ....
Merci d'avance ...
Bonsoir astalavista
essaie
Sub SuppMot()
For Each c In Range([b65000].End(xlUp), [b1])
If c Like "*TOTO*" Then c.EntireRow.Delete
Next c
End Sub
Abed_H
Bonjour,
En VBA, comment supprimer toutes les lignes contenant
le mot "TOTO" en colonne B.
c'est à dire tous ce qui est de la forme
XXXX TOTO YYYY
TOTO YYYY
....
Sub SuppMot() For Each c In Range([b65000].End(xlUp), [b1]) If c Like "*TOTO*" Then c.EntireRow.Delete Next c End Sub
Abed_H
Bonjour,
En VBA, comment supprimer toutes les lignes contenant le mot "TOTO" en colonne B. c'est à dire tous ce qui est de la forme XXXX TOTO YYYY TOTO YYYY ....
Merci d'avance ...
AV
En VBA, comment supprimer toutes les lignes contenant le mot "TOTO" en colonne B.
Si tu as assez peu de données (B1 contient l'étiquette de colonne), boucler en commençant par la fin :
Sub SuppMot() For i = [B65536].End(xlUp).Row To 2 Step -1 If Range("B" & i).Value Like "*TOTO*" Then Rows(i).Delete Next End Sub
PS : S'il y a un nombre important de données (plusieurs milliers), je ne saurait trop te conseiller de passer par un filtre au lieu d'une boucle AV
En VBA, comment supprimer toutes les lignes contenant
le mot "TOTO" en colonne B.
Si tu as assez peu de données (B1 contient l'étiquette de colonne), boucler en
commençant par la fin :
Sub SuppMot()
For i = [B65536].End(xlUp).Row To 2 Step -1
If Range("B" & i).Value Like "*TOTO*" Then Rows(i).Delete
Next
End Sub
PS : S'il y a un nombre important de données (plusieurs milliers), je ne saurait
trop te conseiller de passer par un filtre au lieu d'une boucle
AV
En VBA, comment supprimer toutes les lignes contenant le mot "TOTO" en colonne B.
Si tu as assez peu de données (B1 contient l'étiquette de colonne), boucler en commençant par la fin :
Sub SuppMot() For i = [B65536].End(xlUp).Row To 2 Step -1 If Range("B" & i).Value Like "*TOTO*" Then Rows(i).Delete Next End Sub
PS : S'il y a un nombre important de données (plusieurs milliers), je ne saurait trop te conseiller de passer par un filtre au lieu d'une boucle AV
Fred
Bonjour, voilà une procédure vba qui le fait
Sub SupprimeTOTO() Dim c As Range Do Set c = Range("B:B").Find(What:="toto", _ After:=Range("B1"), _ LookIn:=xlValues, _ LookAt:=xlPart, _ SearchOrder:=xlByColumns, _ SearchDirection:=xlNext, _ MatchCase:úlse) If Not c Is Nothing Then c.EntireRow.Delete End If Loop Until c Is Nothing End Sub
bonne continuation
"astalavista" a écrit dans le message de news: 456ca036$0$29585$
Bonjour,
En VBA, comment supprimer toutes les lignes contenant le mot "TOTO" en colonne B. c'est à dire tous ce qui est de la forme XXXX TOTO YYYY TOTO YYYY ...
Merci d'avance ...
Bonjour,
voilà une procédure vba qui le fait
Sub SupprimeTOTO()
Dim c As Range
Do
Set c = Range("B:B").Find(What:="toto", _
After:=Range("B1"), _
LookIn:=xlValues, _
LookAt:=xlPart, _
SearchOrder:=xlByColumns, _
SearchDirection:=xlNext, _
MatchCase:úlse)
If Not c Is Nothing Then
c.EntireRow.Delete
End If
Loop Until c Is Nothing
End Sub
bonne continuation
"astalavista" <nobody@nowhere.com> a écrit dans le message de news:
456ca036$0$29585$426a74cc@news.free.fr...
Bonjour,
En VBA, comment supprimer toutes les lignes contenant
le mot "TOTO" en colonne B.
c'est à dire tous ce qui est de la forme
XXXX TOTO YYYY
TOTO YYYY
...
Sub SupprimeTOTO() Dim c As Range Do Set c = Range("B:B").Find(What:="toto", _ After:=Range("B1"), _ LookIn:=xlValues, _ LookAt:=xlPart, _ SearchOrder:=xlByColumns, _ SearchDirection:=xlNext, _ MatchCase:úlse) If Not c Is Nothing Then c.EntireRow.Delete End If Loop Until c Is Nothing End Sub
bonne continuation
"astalavista" a écrit dans le message de news: 456ca036$0$29585$
Bonjour,
En VBA, comment supprimer toutes les lignes contenant le mot "TOTO" en colonne B. c'est à dire tous ce qui est de la forme XXXX TOTO YYYY TOTO YYYY ...
