XL pour MAC Module VBA pour suppression de ligne

Viomlr

XLDnaute Nouveau
Bonjour à tous,

J'ai eu quelques cours Visual Basic mais pas encore assez pour gérer mon problème.. Je crée une base de donnée générale pour mon entreprise et j'aimerai créer un module VBA pour supprimer les lignes dont la cellule H est vide ?

Pouvez-vous m'aider ? ou m'envoyer le code à inscrire ?

Je vous remercie par avance !

Violette
 
Solution
Bonjour Viomlr, bonjour le forum,

Quand on supprime des lignes il faut partir de la fin et remonter mais en fonction de la taille de ta basse de données le code peut-être différent. Sinon le basique (à adapter) :

VB:
Sub Macro1()
Dim O As Worksheet
Dim PL As Range
Dim I As Integer

Set O = Worksheets("Feuil1")
Set PL = O.Range("A1").CurrentRegion
For I = PL.Rows.Count To 2 Step -1
    If O.Cells(I, "H").Value = "" Then O.Rows(I).Delete
Next I
End Sub

Robert

XLDnaute Barbatruc
Repose en paix
Bonjour Viomlr, bonjour le forum,

Quand on supprime des lignes il faut partir de la fin et remonter mais en fonction de la taille de ta basse de données le code peut-être différent. Sinon le basique (à adapter) :

VB:
Sub Macro1()
Dim O As Worksheet
Dim PL As Range
Dim I As Integer

Set O = Worksheets("Feuil1")
Set PL = O.Range("A1").CurrentRegion
For I = PL.Rows.Count To 2 Step -1
    If O.Cells(I, "H").Value = "" Then O.Rows(I).Delete
Next I
End Sub
 

Viomlr

XLDnaute Nouveau
Bonjour Viomlr, bonjour le forum,

Quand on supprime des lignes il faut partir de la fin et remonter mais en fonction de la taille de ta basse de données le code peut-être différent. Sinon le basique (à adapter) :

VB:
Sub Macro1()
Dim O As Worksheet
Dim PL As Range
Dim I As Integer

Set O = Worksheets("Feuil1")
Set PL = O.Range("A1").CurrentRegion
For I = PL.Rows.Count To 2 Step -1
    If O.Cells(I, "H").Value = "" Then O.Rows(I).Delete
Next I
End Sub

Bonjour Robert,
Bonjour à tous,

Je vous remercie pour votre réponse. Après relecture de ma requête, je me suis aperçu que j'avais parlé de la cellule H, alors que je parlais bien évidemment des cellules dans la colonne H . Et pour répondre à votre question, ma BDD va jusqu'à la ligne 15500. Je vais tout de suite essayer d'adapter votre code
 

Discussions similaires

Statistiques des forums

Discussions
311 733
Messages
2 082 019
Membres
101 872
dernier inscrit
Colin T