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

[mle007]

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

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à !

[mjpmjp]

bonjour,

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



@+JP