Bonjour à tous,

J'aimerais extraire toutes les lignes contenant un vide (incompete) avec ce code :

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
Private Sub CommandButton1_Click()
 
    Dim Cel As Range
    Dim LastLg As Integer
 
    LastLg = Sheets("BD").[A65000].End(xlUp).Row
    MsgBox "LastLg = " & LastLg
    Sheets("Incomplets").Range([A3], Range("F" & [A65000].End(xlUp).Row)).ClearContents
 
    For Each Cel In Sheets("BD").Range("A2:F" & LastLg).Rows
        If Application.CountBlank(Cel) > 0 Then
            MsgBox "Cel adddresse = " & Cel.Address & vbCrLf & _
                   "Cel.row = " & Cel.Row & vbCrLf & _
                   "Range(A" & Cel.Row & ":K" & Cel.Row & ")"
            Sheets("BD").Range("A" & Cel.Row & ":K" & Cel.Row).Copy Sheets("Incomplets").Range("A3")
        End If
    Next Cel
 
End Sub
Mias j'ai une erreur dans cette ligne :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
Sheets("Incomplets").Range([A3], Range("F" & [A65000].End(xlUp).Row)).ClearContents
Merci.