giorgio34 a écrit :
- comment je fais si je veux utiliser cette extraction sur une fiche de présence d'un mois entier. Je fais copier coller sur la feuille 1 et la feuille 2 fait le reste?
Merci encore
la feuil 2 fait presque tout : c'est-à-dire :
- qu'il faut quand même mettre à jour la liste déroulante (rajouter les date ou modifier la liste avec "la validation de donnée")
- il faut que le format de la feuille 1 reste la même : 3colonne/date , la date sur la ligne 3 , les noms sur colonne 1 et les date commence à la colonne D (sinon il faudra faire quelque modification très simple sur le code bva)...
je vous l'accord le code est très peu responsive
remplacer cette partie déjà sa sert plus simple pour la suite :
If Not Application.Intersect(Target, Range("B3")) Is Nothing Then
Sheets("Feuil2").Rows("8:1000").Delete
For j = 4 To Sheets("Feuil1").Range("IV3").End(xlToLeft).Column Step 3
If Target.Value = ws.Cells(3, j).Value Then
col = j
End If
Next j
For i = 5 To ws.Range("A" & Rows.Count).End(xlUp).Row
remplacer l'ancien par celui-ci
comme sa vous pouvais l'utiliser sur tout le mois voir plus tant que sa respect le format de la feuille 1 que vous avez envoyer
il faudra quand même modifier la liste déroulante