extraire d'une liste

[loulou72]

Bonjour le forum

Dans mon fichier se trouve une liste. Il faut que je fasse une extraction des gens qui sont présents au mois de juillet. J'ai fait un copier coller de la réponse que j'aimerais trouver (en rouge)

Merci

 

[Jocelyn]

Re : extraire d'une liste

Bonjour Le Forum,
Bonjour loulou72,

je t'ai laisser une nouvelle version ici :


https://www.excel-downloads.com/threads/extraction-dune-liste.124398/

si l'on pouvait savoir si c'est bon ou pas ?

Jocelyn

Edit : Bonjour Robert pas de soucis en plus loulou aura le choix macro ou formule

 

[Robert]

Re : extraire d'une liste

Bonjour Loulou, bonjour le forum,

je te propose la macro ci-dessous :

Sub Macro1()
Dim cel As Range 'déclare la variable cel (CELlule)
Dim dest As Range 'déclare la variable dest (DESTination)
 
For Each cel In Range("D3:D" & Range("D2").End(xlDown).Row) 'boucle sur toutes les cellules éditées de la colonne D
    If CDate(cel.Value) >= "01/07/09" Then 'condition : si la date de la cellule est supérieure ou égale au 1er juillet 2009
        Set dest = Range("A65536").End(xlUp).Offset(1, 0) 'définit la variable dest
        Range(Cells(cel.Row, 1), Cells(cel.Row, 4)).Copy dest 'copie et colle
        dest.EntireRow.Font.ColorIndex = 3 'couleur d'encre rouge
    End If 'fin de la condition
Next cel 'prochaine cellule de la boucle
End Sub

Édition :

Bonjour Jocelyn on s'est croisé. Loulou tu devrais prendre le temps de lire la Lien supprimé du forum. Ça t'éviterait d'ouvrir plusieurs posts pour le même sujet...