[XL-2010] Supprimer ligne VBA

Supprimer ligne VBA

Bonjour,

Je souhaite supprimer des lignes si la cellule en B est vide j'ai crée ce code mais il me laisse des cellules vides encore. :calim2:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 Sub Supprimer_cellule_vide()
 
    Dim Cellule As Range
    Dim Derniere_Ligne As Long
    Dim Compteur As Long
 
    ' Déterminer la dernière ligne utilisée de la colonne A
    Derniere_Ligne = Range("B65536").End(xlUp).Row
 
    ' Démarrer du bas pour scanner toutes les lignes
    For Compteur = Derniere_Ligne To 2 Step -1
        ' Déterminer la cellule à traiter
        Set Cellule = Range("B" & Compteur)
        If Cellule = Cellule(0) Then
 
        Cellule.EntireRow.Delete
            Else
 
   End If
  Next Compteur
 End Sub

Merci de votre aide.

Cyril

La solution n'est pas de moi mais de M. BENNASR
Si en la cellule A,B ou C est vide ... il supprime la ligne

Code:

1
2
3
4
5
6
7
8
Sub EntireRow()
 
     For i = Range("A" & Rows.Count).End(xlUp).Row To 1 Step -1
             If Cells(i, 1) = "" And Cells(i, 2) = "" And Cells(i, 3) = "" Then
             Cells(i, 1).EntireRow.Delete
              End If
       Next i
    End Sub

Citation:

Envoyé par Cyril031

Code:

If Cellule = Cellule(0) Then

C'est quoi Cellule(0) ???

Citation:

Code:

Else

Ceci ne sert à rien.
Efface cette ligne, ton code fonctionnera aussi bien.

Ton code un peu optimiser :
Code:

1 2 3 4 5 6 Sub Supprimer_cellule_vide() Dim Compteur As Long For Compteur = Cells(Rows.Count).End(xlUp).Row To 2 Step -1 If Cells(Compteur, 2) = "" Then Rows(Compteur).Delete Next Compteur End Sub

1 pièce(s) jointe(s)

Pièce jointe 322365

si j'enlève cette info, ça me supprime tout alors que j'ai des données à conserver dans cette ligne.

Bonjour

1)

Citation:

je souhaite supprimer des lignes si la cellule en B est vide

(ce que fait le code de Menhir)
et
2) si j'enlève cette info, ça me supprime tout alors que j'ai des données à conserver dans cette ligne.
Je ne te comprends pas !

Code:

1
2
3
4
5
6
7
8
Sub EntireRow()
 
     For i = Range("A" & Rows.Count).End(xlUp).Row To 1 Step -1
             If Cells(i, 2) = ""  Then
             Cells(i, 1).EntireRow.Delete
              End If
       Next i
    End Sub

Bonjour mle007
en quoi ton code serait-il différent (avec des effets distincts) de celui de Menhir ? :koi:

Attendons la réaction de Cyril031, qui n'a manifestement pas parlé de ce qui figurait en fait sur sa feuille (encore une question de précision et de terminologie). ;)

Citation:

Envoyé par Cyril031

si j'enlève cette info, ça me supprime tout alors que j'ai des données à conserver dans cette ligne.

A quel message réponds-tu ?
De quelle "info" parles-tu ?
Fais une demande claire et précise et peut-être pourras-tu obtenir une réponse utile.

Bonsoir,

Désole de la réponse tardive j'ai eu des obligation.
J'ai trouver la solution avec tous les code que vous m'avait donner.

Merci beaucoup

Citation:

Envoyé par unparia

Bonjour mle007
en quoi ton code serait-il différent (avec des effets distincts) de celui de Menhir ? :koi:

Attendons la réaction de Cyril031, qui n'a manifestement pas parlé de ce qui figurait en fait sur sa feuille (encore une question de précision et de terminologie). ;)

Simplement ... une variante ;)
Je n'ai pas eu le courage de tester le code de Menhir. Celui de M. BENNASR, que j'avais écrit au début du poste travaillait sur trois cellules, je l'ai recorrigé pour ne pas induire Cyril31 en erreur.
Voili voilà !

bonjour,

Citation:

J'ai trouver la solution avec tous les code que vous m'avait donner.
Merci beaucoup

merci de bien vouloir cliquer sur "résolue"....
merci de bien vouloir être cool et de mettre le code de la solution...

:furieux:

@+JP