Discussion :

[pascal80540]

bonjour

je voudrais regarder sur trois collonnes si :si 3 cellules vide sur la ligne supprimer la ligne
je connais rien du tout en vba

Code :

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

1
2
3
4
5
Sub effacer()
For Each c In Sheets("FEUILLE_PROD").Range("B22:B23:B24:B25" & Range("B65356").End(xlUp).Row)
If c = "" Then c.EntireRow.Delete
Next c
End Sub

j ai trouvé ça sa marche pas

pouvez vous m'aider
merci

[clementmarcotte]

Bonjour,

Pas besoin de VBA pour ça. Avec un filtre avancé (élaboré) , tu peux le plus simplement du monde extraire sur une nouvelle feuille, les lignes qui n'ont pas trois cellules vides.

P.S. avec un peu de chance, il y a un modérateur qui va supprimer ton fichier-joint:

http://www.developpez.net/forums/d84...s-discussions/

[pascal80540]

ah ok
peux-tu me dire comment réaliser le filtre?

[Docmarti]

je voudrais regarder sur trois collonnes si :si 3 cellules vide sur la ligne supprimer la ligne

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 effacer()
Set f = Sheets("FEUILLE_PROD")
 
dern = f.Cells(Rows.Count, "B").End(xlUp).Row
 
For i = dern To 1 Step -1
 
If f.Cells(i, "A") = "" And f.Cells(i, "B") = "" And f.Cells(i, "C") = "" Then
 f.Cells(i, 1).EntireRow.Delete
End If
 
Next
 
End Sub

[pascal80540]

Merci a toi

j'ai trouvé un code qui fonctionne avec des améliorations

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
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
Sub effaceLigneter()
'décalration des variables
Dim Efface As Variant, DLig As Integer
 
 
    Columns("B:B").Select
    With Selection.Font
        .ColorIndex = xlAutomatic
        .TintAndShade = 0
    End With
    Range("X7:AA7").Select
    With Selection
        .HorizontalAlignment = xlGeneral
        .VerticalAlignment = xlCenter
        .WrapText = True
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = True
    End With
    Selection.UnMerge
    Columns("Y:AE").Select
    Selection.Delete Shift:=xlToLeft
 
With Sheets("Feuille_Prod")
    'recherche la dernière cellule vide de la colonne
    DLig = .Range("V" & Rows.Count).End(xlUp).Row
 
    'boucle  de V7 à la dernière ligne
    For Each Efface In .Range("V7:V" & DLig)
        'teste sur la même ligne si les 4 cellules sont vides. Colonnes V,W,X et Y
        If Efface = "" And Efface.Offset(, 1) = "" And Efface.Offset(, 2) = "" And Efface.Offset(, 3) = "" Then
           Efface.EntireRow.Delete ' efface la ligne
        End If
    Next
 
End With
 
End Sub