Discussion :

[Cyril031]

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.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[mle007]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Menhir]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

        If Cellule = Cellule(0) Then

C'est quoi Cellule(0) ???

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

            Else

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

Ton code un peu optimiser :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Cyril031]

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

[unparia]

Bonjour

1)

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 !

[mle007]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[unparia]

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

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).

[Menhir]

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.

[Cyril031]

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