Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel suppression de lignes en VBA

suppression de lignes en VBA

3 réponses
Avatar
Michel
Bonjour,

Dans la colonne D, j'ai des noms de clients et j'aimerai créer une macro qui
me permette de supprimer toutes les lignes qui correspondent à un nom de
client particulier figurant dans la colonne D.

Merci de votre aide

Michel
Signaler un problème avec ce contenu

3 réponses

Supprimer
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
Avatar
garnote
Salut Michel,

Essaie ceci :

Sub Supprime_Lignes_Barberousse_ColonneD()
Dim plage As Range
Dim cellule As Range
Set plage = Range(Range("D1"), Range("D65536").End(xlUp))
For Each cellule In plage
If cellule.Value = "Barberousse" Then cellule.EntireRow.Delete
Next cellule
End Sub

Serge

"Michel" a écrit dans le message de news:
Bonjour,

Dans la colonne D, j'ai des noms de clients et j'aimerai créer une macro qui
me permette de supprimer toutes les lignes qui correspondent à un nom de
client particulier figurant dans la colonne D.

Merci de votre aide

Michel


Avatar
Michel
Merci Serge,

c'est exactement ce qu'il me falait


Salut Michel,

Essaie ceci :

Sub Supprime_Lignes_Barberousse_ColonneD()
Dim plage As Range
Dim cellule As Range
Set plage = Range(Range("D1"), Range("D65536").End(xlUp))
For Each cellule In plage
If cellule.Value = "Barberousse" Then cellule.EntireRow.Delete
Next cellule
End Sub

Serge

"Michel" a écrit dans le message de news:
Bonjour,

Dans la colonne D, j'ai des noms de clients et j'aimerai créer une macro qui
me permette de supprimer toutes les lignes qui correspondent à un nom de
client particulier figurant dans la colonne D.

Merci de votre aide

Michel







Avatar
garnote
Non, non, non ;-)
C'est plutôt ça :

Sub Supprime_Lignes_Barberousse_ColonneD()
Dim plage As Range
Dim cellule As Range
Set plage = Range(Range("D1"), Range("D65536").End(xlUp))
For i = plage.Cells.Count To 1 Step -1
If plage(i).Value = "Barberousse" Then plage(i).EntireRow.Delete
Next i
End Sub

Serge




"Michel" a écrit dans le message de news:
Merci Serge,

c'est exactement ce qu'il me falait


Salut Michel,

Essaie ceci :

Sub Supprime_Lignes_Barberousse_ColonneD()
Dim plage As Range
Dim cellule As Range
Set plage = Range(Range("D1"), Range("D65536").End(xlUp))
For Each cellule In plage
If cellule.Value = "Barberousse" Then cellule.EntireRow.Delete
Next cellule
End Sub

Serge

"Michel" a écrit dans le message de news:

Bonjour,

Dans la colonne D, j'ai des noms de clients et j'aimerai créer une macro qui
me permette de supprimer toutes les lignes qui correspondent à un nom de
client particulier figurant dans la colonne D.

Merci de votre aide

Michel