OVH Cloud OVH Cloud

Suppression lignes

4 réponses
Avatar
Beabou
Bonjour,
Comment interpr=E9ter la chose suivante en VBA :

Supprimer les lignes dont les cellules de la colonne A=20
contiennent le mot somme.

Merci par avance.
Beabou

4 réponses

Avatar
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
Avatar
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




Avatar
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

Avatar
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





.