Discussion :

[Arthursl]

Bonjour,

Voilà mon problème :

Je souhaite supprimer toutes les lignes qui possède quelque chose dans la colonne (BE) de ma feuille.
Comment faire svp ? (je sais pas si c'est clair mais en gros, si une il y a quelque chose d'écrit dans la colonne BE alors je veux que la ligne se supprime)

Merci d'avance

[révèr]

Bonjour Arthur,

Je suppose que tu peux partir sur un :

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
 
Private Sub SupprCellVide()
 
Dim CBR as Range, CellCBR as Range
Dim derLig as Integer
 
derLig = Range("BE1:BE" & Rows.Count).End(xlUp).Row
 
Set CBR = Range("BE1:BE" & derLig)
 
For Each CellCBR in CBR
   If CellCBR.Value = "" Then
      CellCBR.EntireRow.Delete
   End If
Next
 
End Sub

Cela devrait fonctionner, à moins que j'aie oublié quelques détails ce qui risque d'être probable. Je ne l'ai pas testé.

[Arthursl]

J'ai fais ça au final

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub SuprLigne()
 
Dim F As Worksheet
Dim I As Long
Dim Dligne As Long
Set F = Sheets("feuille1")
Application.ScreenUpdating = False
Dligne = F.Range("A" & Rows.Count).End(xlUp).Row 
For I = Dligne To 2 Step -1 
If Cells(I, "BE") <> "" Then Rows(I).Delete
Next I
Application.ScreenUpdating = True
 
End Sub

[révèr]

Oui, pardon. J'avais mis = "" au lieu de <> "",

J'ai pris pour habitude de Set ma plage variable. Je trouve ça plus agréable, sûrement cela peut avoir une utilité au niveau de l'allègement du code je ne sais pas. Mais toujours est-il que je l'utilise énormément dans mon projet actuellement. Cela m'a par ailleurs permis d'outrepasser des erreurs qui m'avaient bloqué jusque-là (pour une raison que j'ignore).

Heureux que tu aies trouvé ta solution en tout cas ! Bon courage pour la suite de ton code

[Arthursl]

Je vois ! J'y penserai la prochaine fois que je suis bloqué, ça pourra peut être m'aider !

Merci pour ton aide en tout cas et à une prochaine !

[MarcelG]

Bonsoir à vous, Bonsoir au Forum,

(Désolé pour cette absence. Débordé)

Je suis persuadé que toutes les lignes des cellules concernées pourraient être supprimées sans balayage, ce qui se nomme, sauf erreur, "One Shot" (Je suis plus doué en italien!)
Et ce en utilisant une bonne argumentation de la méthode quant aux cellules spéciales.