Merci pour la rapidité ! Néanmoins, je n'arrive pas a faire tourner cette macro. Elle ne me supprime pas les lignes concernéees Nick
MichDenis
Adapte le nom de la feuille où est ta plage de cellules de même que l'étendue de ta plage.
Peu importe la colonne de la ligne sur laquelle apparaît le mot code, seulement les colonnes de cette lignes seront supprimées... pour supprimer la ligne entière tu dois modifier cette ligne de code Rg.Rows(A).Delete par Rg.Rows(A).EntireRow.Delete dans la procédure.
'------------------------------------- Sub test()
Dim Rg As Range, Nb As Long, A As Long
With Worksheets("Feuil1") Set Rg = .Range("A1:G25") Nb = Rg.Rows.Count End With For A = Nb To 1 Step -1 x = Rg.Rows(A).Address If IsNumeric(Application.Match("code", Rg.Rows(A), 0)) Then Rg.Rows(A).Delete End If Next End Sub '-------------------------------------
"Nick" a écrit dans le message de news: 45e3d3d1$0$27380$ Bonjour
Je désirerais supprimer les lignes qui contiennent le mot : Code Avez vous une solution en VBA ? Par avance, merci Nick
Adapte le nom de la feuille où est ta plage de cellules
de même que l'étendue de ta plage.
Peu importe la colonne de la ligne sur laquelle apparaît
le mot code, seulement les colonnes de cette lignes
seront supprimées... pour supprimer la ligne entière
tu dois modifier cette ligne de code Rg.Rows(A).Delete
par Rg.Rows(A).EntireRow.Delete dans la procédure.
'-------------------------------------
Sub test()
Dim Rg As Range, Nb As Long, A As Long
With Worksheets("Feuil1")
Set Rg = .Range("A1:G25")
Nb = Rg.Rows.Count
End With
For A = Nb To 1 Step -1
x = Rg.Rows(A).Address
If IsNumeric(Application.Match("code", Rg.Rows(A), 0)) Then
Rg.Rows(A).Delete
End If
Next
End Sub
'-------------------------------------
"Nick" <nick@w.fr> a écrit dans le message de news: 45e3d3d1$0$27380$ba4acef3@news.orange.fr...
Bonjour
Je désirerais supprimer les lignes qui contiennent le mot : Code
Avez vous une solution en VBA ?
Par avance, merci
Nick
Adapte le nom de la feuille où est ta plage de cellules de même que l'étendue de ta plage.
Peu importe la colonne de la ligne sur laquelle apparaît le mot code, seulement les colonnes de cette lignes seront supprimées... pour supprimer la ligne entière tu dois modifier cette ligne de code Rg.Rows(A).Delete par Rg.Rows(A).EntireRow.Delete dans la procédure.
'------------------------------------- Sub test()
Dim Rg As Range, Nb As Long, A As Long
With Worksheets("Feuil1") Set Rg = .Range("A1:G25") Nb = Rg.Rows.Count End With For A = Nb To 1 Step -1 x = Rg.Rows(A).Address If IsNumeric(Application.Match("code", Rg.Rows(A), 0)) Then Rg.Rows(A).Delete End If Next End Sub '-------------------------------------
"Nick" a écrit dans le message de news: 45e3d3d1$0$27380$ Bonjour
Je désirerais supprimer les lignes qui contiennent le mot : Code Avez vous une solution en VBA ? Par avance, merci Nick
Nick
Super Un seul probleme subsiste, c'est que les case contiennent CODE avec des chiffres.. ex : CODE 20...CODE 43 Il me faut eliminer les lignes dès qu'une case contient le mot CODE Merci Nick
Super
Un seul probleme subsiste, c'est que les case contiennent CODE avec des
chiffres.. ex : CODE 20...CODE 43
Il me faut eliminer les lignes dès qu'une case contient le mot CODE
Merci
Nick
Super Un seul probleme subsiste, c'est que les case contiennent CODE avec des chiffres.. ex : CODE 20...CODE 43 Il me faut eliminer les lignes dès qu'une case contient le mot CODE Merci Nick
jps
re nick micro-climat, probablement, puisque chez moi, cette proc marche bien... je ne comprends pas et passe la main jps
"Nick" a écrit dans le message de news: 45e40c7a$0$25907$
Merci pour la rapidité ! Néanmoins, je n'arrive pas a faire tourner cette macro. Elle ne me supprime pas les lignes concernéees Nick
re nick
micro-climat, probablement, puisque chez moi, cette proc marche bien...
je ne comprends pas et passe la main
jps
"Nick" <nick@w.fr> a écrit dans le message de news:
45e40c7a$0$25907$ba4acef3@news.orange.fr...
Merci pour la rapidité !
Néanmoins, je n'arrive pas a faire tourner cette macro. Elle ne me
supprime pas les lignes concernéees
Nick
re nick micro-climat, probablement, puisque chez moi, cette proc marche bien... je ne comprends pas et passe la main jps
"Nick" a écrit dans le message de news: 45e40c7a$0$25907$
Merci pour la rapidité ! Néanmoins, je n'arrive pas a faire tourner cette macro. Elle ne me supprime pas les lignes concernéees Nick
MichDenis
'------------------------ Sub test()
Dim Rg As Range, Nb As Long, A As Long, g As Range With Worksheets("Feuil1") Set Rg = .Range("A1:G25") Nb = Rg.Rows.Count End With For A = Nb To 1 Step -1 Set g = Rg.Rows(A).Find(What:="*Code*", LookAt:=xlPart) If Not g Is Nothing Then Rg.Rows(A).Delete End If Next End Sub '------------------------
"Nick" a écrit dans le message de news: 45e43b31$0$27415$ Super Un seul probleme subsiste, c'est que les case contiennent CODE avec des chiffres.. ex : CODE 20...CODE 43 Il me faut eliminer les lignes dès qu'une case contient le mot CODE Merci Nick
'------------------------
Sub test()
Dim Rg As Range, Nb As Long, A As Long, g As Range
With Worksheets("Feuil1")
Set Rg = .Range("A1:G25")
Nb = Rg.Rows.Count
End With
For A = Nb To 1 Step -1
Set g = Rg.Rows(A).Find(What:="*Code*", LookAt:=xlPart)
If Not g Is Nothing Then
Rg.Rows(A).Delete
End If
Next
End Sub
'------------------------
"Nick" <nick@w.fr> a écrit dans le message de news: 45e43b31$0$27415$ba4acef3@news.orange.fr...
Super
Un seul probleme subsiste, c'est que les case contiennent CODE avec des
chiffres.. ex : CODE 20...CODE 43
Il me faut eliminer les lignes dès qu'une case contient le mot CODE
Merci
Nick
Dim Rg As Range, Nb As Long, A As Long, g As Range With Worksheets("Feuil1") Set Rg = .Range("A1:G25") Nb = Rg.Rows.Count End With For A = Nb To 1 Step -1 Set g = Rg.Rows(A).Find(What:="*Code*", LookAt:=xlPart) If Not g Is Nothing Then Rg.Rows(A).Delete End If Next End Sub '------------------------
"Nick" a écrit dans le message de news: 45e43b31$0$27415$ Super Un seul probleme subsiste, c'est que les case contiennent CODE avec des chiffres.. ex : CODE 20...CODE 43 Il me faut eliminer les lignes dès qu'une case contient le mot CODE Merci Nick
jps
merci, denis jps
"MichDenis" a écrit dans le message de news: OquJP%
'------------------------ Sub test()
Dim Rg As Range, Nb As Long, A As Long, g As Range With Worksheets("Feuil1") Set Rg = .Range("A1:G25") Nb = Rg.Rows.Count End With For A = Nb To 1 Step -1 Set g = Rg.Rows(A).Find(What:="*Code*", LookAt:=xlPart) If Not g Is Nothing Then Rg.Rows(A).Delete End If Next End Sub '------------------------
"Nick" a écrit dans le message de news: 45e43b31$0$27415$ Super Un seul probleme subsiste, c'est que les case contiennent CODE avec des chiffres.. ex : CODE 20...CODE 43 Il me faut eliminer les lignes dès qu'une case contient le mot CODE Merci Nick
merci, denis
jps
"MichDenis" <michdenis@hotmail.com> a écrit dans le message de news:
OquJP%23nWHHA.388@TK2MSFTNGP04.phx.gbl...
'------------------------
Sub test()
Dim Rg As Range, Nb As Long, A As Long, g As Range
With Worksheets("Feuil1")
Set Rg = .Range("A1:G25")
Nb = Rg.Rows.Count
End With
For A = Nb To 1 Step -1
Set g = Rg.Rows(A).Find(What:="*Code*", LookAt:=xlPart)
If Not g Is Nothing Then
Rg.Rows(A).Delete
End If
Next
End Sub
'------------------------
"Nick" <nick@w.fr> a écrit dans le message de news:
45e43b31$0$27415$ba4acef3@news.orange.fr...
Super
Un seul probleme subsiste, c'est que les case contiennent CODE avec des
chiffres.. ex : CODE 20...CODE 43
Il me faut eliminer les lignes dès qu'une case contient le mot CODE
Merci
Nick
"MichDenis" a écrit dans le message de news: OquJP%
'------------------------ Sub test()
Dim Rg As Range, Nb As Long, A As Long, g As Range With Worksheets("Feuil1") Set Rg = .Range("A1:G25") Nb = Rg.Rows.Count End With For A = Nb To 1 Step -1 Set g = Rg.Rows(A).Find(What:="*Code*", LookAt:=xlPart) If Not g Is Nothing Then Rg.Rows(A).Delete End If Next End Sub '------------------------
"Nick" a écrit dans le message de news: 45e43b31$0$27415$ Super Un seul probleme subsiste, c'est que les case contiennent CODE avec des chiffres.. ex : CODE 20...CODE 43 Il me faut eliminer les lignes dès qu'une case contient le mot CODE Merci Nick
MichDenis
Ce fut un plais ...! ;-)
"jps" a écrit dans le message de news: % merci, denis jps
"MichDenis" a écrit dans le message de news: OquJP%
'------------------------ Sub test()
Dim Rg As Range, Nb As Long, A As Long, g As Range With Worksheets("Feuil1") Set Rg = .Range("A1:G25") Nb = Rg.Rows.Count End With For A = Nb To 1 Step -1 Set g = Rg.Rows(A).Find(What:="*Code*", LookAt:=xlPart) If Not g Is Nothing Then Rg.Rows(A).Delete End If Next End Sub '------------------------
"Nick" a écrit dans le message de news: 45e43b31$0$27415$ Super Un seul probleme subsiste, c'est que les case contiennent CODE avec des chiffres.. ex : CODE 20...CODE 43 Il me faut eliminer les lignes dès qu'une case contient le mot CODE Merci Nick
Ce fut un plais ...!
;-)
"jps" <vaderetrosp@mas> a écrit dans le message de news: %23bjCRdoWHHA.4132@TK2MSFTNGP06.phx.gbl...
merci, denis
jps
"MichDenis" <michdenis@hotmail.com> a écrit dans le message de news:
OquJP%23nWHHA.388@TK2MSFTNGP04.phx.gbl...
'------------------------
Sub test()
Dim Rg As Range, Nb As Long, A As Long, g As Range
With Worksheets("Feuil1")
Set Rg = .Range("A1:G25")
Nb = Rg.Rows.Count
End With
For A = Nb To 1 Step -1
Set g = Rg.Rows(A).Find(What:="*Code*", LookAt:=xlPart)
If Not g Is Nothing Then
Rg.Rows(A).Delete
End If
Next
End Sub
'------------------------
"Nick" <nick@w.fr> a écrit dans le message de news:
45e43b31$0$27415$ba4acef3@news.orange.fr...
Super
Un seul probleme subsiste, c'est que les case contiennent CODE avec des
chiffres.. ex : CODE 20...CODE 43
Il me faut eliminer les lignes dès qu'une case contient le mot CODE
Merci
Nick
"jps" a écrit dans le message de news: % merci, denis jps
"MichDenis" a écrit dans le message de news: OquJP%
'------------------------ Sub test()
Dim Rg As Range, Nb As Long, A As Long, g As Range With Worksheets("Feuil1") Set Rg = .Range("A1:G25") Nb = Rg.Rows.Count End With For A = Nb To 1 Step -1 Set g = Rg.Rows(A).Find(What:="*Code*", LookAt:=xlPart) If Not g Is Nothing Then Rg.Rows(A).Delete End If Next End Sub '------------------------
"Nick" a écrit dans le message de news: 45e43b31$0$27415$ Super Un seul probleme subsiste, c'est que les case contiennent CODE avec des chiffres.. ex : CODE 20...CODE 43 Il me faut eliminer les lignes dès qu'une case contient le mot CODE Merci Nick
Nick
Toutes mes excuses, mais ta macro fonctionne bien chez moi aussi...En fait, les cases contenant code contiennent egalement un espace avant et c'est pourquoi ellees n'etaient pas reconnues merci :-) nick
Toutes mes excuses, mais ta macro fonctionne bien chez moi aussi...En fait,
les cases contenant code contiennent egalement un espace avant et c'est
pourquoi ellees n'etaient pas reconnues
merci :-)
nick
Toutes mes excuses, mais ta macro fonctionne bien chez moi aussi...En fait, les cases contenant code contiennent egalement un espace avant et c'est pourquoi ellees n'etaient pas reconnues merci :-) nick