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
Pierre Fauconnier
Bonjour
Par exemple avec cette macro
Sub SuppressionLignesSomme() Dim i As Long i = Range("a65536").End(xlUp).Row For i = Range("a65536").End(xlUp).Row To 1 Step -1 If UCase(Cells(i, 1)) = "SOMME" Then Cells(i, 1).EntireRow.Delete Next i End Sub
Cela convient-il?
-- Pierre Fauconnier () Les sept laids tuent ( Lewis Carol ) Remplacez nospam.nospam par pfi.be pour répondre. Merci
"Beabou" a écrit dans le message de news:1e3d601c45536$a2663a20$ Bonjour, Comment interpréter la chose suivante en VBA :
Supprimer les lignes dont les cellules de la colonne A contiennent le mot somme.
Merci par avance. Beabou
Bonjour
Par exemple avec cette macro
Sub SuppressionLignesSomme()
Dim i As Long
i = Range("a65536").End(xlUp).Row
For i = Range("a65536").End(xlUp).Row To 1 Step -1
If UCase(Cells(i, 1)) = "SOMME" Then Cells(i, 1).EntireRow.Delete
Next i
End Sub
Cela convient-il?
--
Pierre Fauconnier (pierre.fauconnier@nospam.nospam)
Les sept laids tuent ( Lewis Carol )
Remplacez nospam.nospam par pfi.be pour répondre. Merci
"Beabou" <anonymous@discussions.microsoft.com> a écrit dans le message de
news:1e3d601c45536$a2663a20$a101280a@phx.gbl...
Bonjour,
Comment interpréter la chose suivante en VBA :
Supprimer les lignes dont les cellules de la colonne A
contiennent le mot somme.
Sub SuppressionLignesSomme() Dim i As Long i = Range("a65536").End(xlUp).Row For i = Range("a65536").End(xlUp).Row To 1 Step -1 If UCase(Cells(i, 1)) = "SOMME" Then Cells(i, 1).EntireRow.Delete Next i End Sub
Cela convient-il?
-- Pierre Fauconnier () Les sept laids tuent ( Lewis Carol ) Remplacez nospam.nospam par pfi.be pour répondre. Merci
"Beabou" a écrit dans le message de news:1e3d601c45536$a2663a20$ Bonjour, Comment interpréter la chose suivante en VBA :
Supprimer les lignes dont les cellules de la colonne A contiennent le mot somme.
Merci par avance. Beabou
Pierre Fauconnier
La ligne i=range... est de trop
"Pierre Fauconnier" a écrit dans le message de news:%
Bonjour
Par exemple avec cette macro
Sub SuppressionLignesSomme() Dim i As Long i = Range("a65536").End(xlUp).Row For i = Range("a65536").End(xlUp).Row To 1 Step -1 If UCase(Cells(i, 1)) = "SOMME" Then Cells(i, 1).EntireRow.Delete Next i End Sub
Cela convient-il?
-- Pierre Fauconnier () Les sept laids tuent ( Lewis Carol ) Remplacez nospam.nospam par pfi.be pour répondre. Merci
"Beabou" a écrit dans le message de news:1e3d601c45536$a2663a20$ Bonjour, Comment interpréter la chose suivante en VBA :
Supprimer les lignes dont les cellules de la colonne A contiennent le mot somme.
Merci par avance. Beabou
La ligne i=range... est de trop
"Pierre Fauconnier" <pierre.fauconnier@nospam.nospam> a écrit dans le
message de news:%232M2hoTVEHA.556@tk2msftngp13.phx.gbl...
Bonjour
Par exemple avec cette macro
Sub SuppressionLignesSomme()
Dim i As Long
i = Range("a65536").End(xlUp).Row
For i = Range("a65536").End(xlUp).Row To 1 Step -1
If UCase(Cells(i, 1)) = "SOMME" Then Cells(i, 1).EntireRow.Delete
Next i
End Sub
Cela convient-il?
--
Pierre Fauconnier (pierre.fauconnier@nospam.nospam)
Les sept laids tuent ( Lewis Carol )
Remplacez nospam.nospam par pfi.be pour répondre. Merci
"Beabou" <anonymous@discussions.microsoft.com> a écrit dans le message de
news:1e3d601c45536$a2663a20$a101280a@phx.gbl...
Bonjour,
Comment interpréter la chose suivante en VBA :
Supprimer les lignes dont les cellules de la colonne A
contiennent le mot somme.
"Pierre Fauconnier" a écrit dans le message de news:%
Bonjour
Par exemple avec cette macro
Sub SuppressionLignesSomme() Dim i As Long i = Range("a65536").End(xlUp).Row For i = Range("a65536").End(xlUp).Row To 1 Step -1 If UCase(Cells(i, 1)) = "SOMME" Then Cells(i, 1).EntireRow.Delete Next i End Sub
Cela convient-il?
-- Pierre Fauconnier () Les sept laids tuent ( Lewis Carol ) Remplacez nospam.nospam par pfi.be pour répondre. Merci
"Beabou" a écrit dans le message de news:1e3d601c45536$a2663a20$ Bonjour, Comment interpréter la chose suivante en VBA :
Supprimer les lignes dont les cellules de la colonne A contiennent le mot somme.
Merci par avance. Beabou
AV
Supprimer les lignes dont les cellules de la colonne A contiennent le mot somme.
Pour éviter une boucle (étiquette de colonne en A) :
Sub zzzz() derL = [A65536].End(3).Row Range("A1:A" & derL).AutoFilter Field:=1, Criteria1:="=*somme*" Range("A2:A" & derL).SpecialCells(xlCellTypeVisible).EntireRow.Delete [A1].AutoFilter End Sub
AV
Supprimer les lignes dont les cellules de la colonne A
contiennent le mot somme.
Pour éviter une boucle (étiquette de colonne en A) :
Sub zzzz()
derL = [A65536].End(3).Row
Range("A1:A" & derL).AutoFilter Field:=1, Criteria1:="=*somme*"
Range("A2:A" & derL).SpecialCells(xlCellTypeVisible).EntireRow.Delete
[A1].AutoFilter
End Sub
Supprimer les lignes dont les cellules de la colonne A contiennent le mot somme.
Pour éviter une boucle (étiquette de colonne en A) :
Sub zzzz() derL = [A65536].End(3).Row Range("A1:A" & derL).AutoFilter Field:=1, Criteria1:="=*somme*" Range("A2:A" & derL).SpecialCells(xlCellTypeVisible).EntireRow.Delete [A1].AutoFilter End Sub
AV
Beabou
C'est parfait. Encore merci.
-----Message d'origine----- La ligne i=range... est de trop
"Pierre Fauconnier" a écrit dans le
message de news:%
Bonjour
Par exemple avec cette macro
Sub SuppressionLignesSomme() Dim i As Long i = Range("a65536").End(xlUp).Row For i = Range("a65536").End(xlUp).Row To 1 Step -1 If UCase(Cells(i, 1)) = "SOMME" Then Cells(i, 1).EntireRow.Delete
Next i End Sub
Cela convient-il?
-- Pierre Fauconnier () Les sept laids tuent ( Lewis Carol ) Remplacez nospam.nospam par pfi.be pour répondre. Merci
"Beabou" a écrit dans le message de
news:1e3d601c45536$a2663a20$ Bonjour, Comment interpréter la chose suivante en VBA :
Supprimer les lignes dont les cellules de la colonne A contiennent le mot somme.
Merci par avance. Beabou
.
C'est parfait.
Encore merci.
-----Message d'origine-----
La ligne i=range... est de trop
"Pierre Fauconnier" <pierre.fauconnier@nospam.nospam> a
écrit dans le
message de news:%232M2hoTVEHA.556@tk2msftngp13.phx.gbl...
Bonjour
Par exemple avec cette macro
Sub SuppressionLignesSomme()
Dim i As Long
i = Range("a65536").End(xlUp).Row
For i = Range("a65536").End(xlUp).Row To 1 Step -1
If UCase(Cells(i, 1)) = "SOMME" Then Cells(i,
1).EntireRow.Delete
Next i
End Sub
Cela convient-il?
--
Pierre Fauconnier (pierre.fauconnier@nospam.nospam)
Les sept laids tuent ( Lewis Carol )
Remplacez nospam.nospam par pfi.be pour répondre. Merci
"Beabou" <anonymous@discussions.microsoft.com> a écrit
dans le message de
news:1e3d601c45536$a2663a20$a101280a@phx.gbl...
Bonjour,
Comment interpréter la chose suivante en VBA :
Supprimer les lignes dont les cellules de la colonne A
contiennent le mot somme.
-----Message d'origine----- La ligne i=range... est de trop
"Pierre Fauconnier" a écrit dans le
message de news:%
Bonjour
Par exemple avec cette macro
Sub SuppressionLignesSomme() Dim i As Long i = Range("a65536").End(xlUp).Row For i = Range("a65536").End(xlUp).Row To 1 Step -1 If UCase(Cells(i, 1)) = "SOMME" Then Cells(i, 1).EntireRow.Delete
Next i End Sub
Cela convient-il?
-- Pierre Fauconnier () Les sept laids tuent ( Lewis Carol ) Remplacez nospam.nospam par pfi.be pour répondre. Merci
"Beabou" a écrit dans le message de
news:1e3d601c45536$a2663a20$ Bonjour, Comment interpréter la chose suivante en VBA :
Supprimer les lignes dont les cellules de la colonne A contiennent le mot somme.