Discussion :

[BUX07]

Bonjour, je voudrais pouvoir utiliser une macro qui me sorte sur une feuille annexe les lignes correspondant à des cellules vides. Ce programme permet, pour un besoin en matériel de suivre 4 dates (récpetion demande, transmission, récupération, livraison). L'objectif est de pouvoir isoler les lignes avec des dates vides pour effectuer une relance. En pièce jointe une petite partie du fichier sachant qu'il pourra contenir plusieurs centaines de lignes.
Merci beaucoup de votre aide

[Daniel.C]

Bonjour,

Essaie la macro :

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
Sub test()
    Dim c As Range, Plage As Range, Ligne As Long, Libs, Nbrs
    Libs = Array("reçu", "demandé", "pris ST", "livré CIS")
    With Sheets("Feuil1")
        Set Plage = .Range(.[D3], .Cells(.Rows.Count, 4).End(xlUp))
    End With
    With Sheets("Feuil2")
        For Each c In Plage
            If c.Offset(, 1) = "" Then
                Ligne = Ligne + 1
                decal = (Application.Match(c.Value, Libs, 0) - 1) * -1
                .Cells(Ligne, 1).Value = c.Offset(decal, -3)
                .Cells(Ligne, 2).Value = c.Offset(decal, -2)
                .Cells(Ligne, 3).Value = c.Offset(decal, -1)
                .Cells(Ligne, 4).Value = c
            End If
        Next c
    End With
End Sub

Sur la pièce jointe, les résultats sont sur Feuil2.