Exctraction de date
Bonjour,
J'ai un fichier ou des données d'absences sont mis par numéro de semaine
je voudrai convertir ce fichier ou extraire une partie pour que celui-ci me donne dates de début et de fin
le fichier excel vous aidera
mais par exemple j'ai :
matricule 3
mois 9 semaine 36 lundi présent; mardi cp; mercredi cp; jeudi présent; vendredi rtt
je voudrai convertir en:
matricule 3 cp date début 12/09/2019 date de fin 13/09/2019 (date pour exemple)
matricule 3 rtt date début 15/09/2019 date de fin 15/09/2019 (date pour exemple)
j'ai simplement besoin des motifs d'absences, pas besoin des dates de présences
j'ai ça pour 300 personnes!
Je ne suis pas doué en VBA, si quelqu'un peux m'orienter svp!
merci bcp de votre aide
SAlut !!
Bon voila la macro marche (il faut juste ajouter l'année comme dans le fichier joint !)
et modifier le format des colonnes dates en format date pour bien voir le JJ/MM/AAAA
ça marche pour toi ??
Je suis débutant les pro pourront surement améliorer ce code!!! :p ( mais ça tourne bien
Sub test()
a = 2
nb = 0
nbl = Application.WorksheetFunction.CountA(Range("$A:$A"))
For L = 2 To nbl
For n = 8 To 14
If Cells(L, n).Value = "cp" Or Cells(L, n).Value = "rtt" Then
nb = nb + 1
datd = 43831 + 7 * (Cells(L, 3).Value - 1) + n - 7
If Cells(L, n).Value = Cells(L, (n + 1)).Value Then
nb = nb + 1
n = n + 1
If Cells(L, n).Value = Cells(L, (n + 1)).Value Then
nb = nb + 1
n = n + 1
If Cells(L, n).Value = Cells(L, (n + 1)).Value Then
nb = nb + 1
n = n + 1
If Cells(L, n).Value = Cells(L, (n + 1)).Value Then
nb = nb + 1
n = n + 1
If Cells(L, n).Value = Cells(L, (n + 1)).Value Then
nb = nb + 1
n = n + 1
If Cells(L, n).Value = Cells(L, (n + 1)).Value Then
nb = nb + 1
n = n + 1
End If
End If
End If
End If
End If
End If
End If
datf = 43831 + 7 * (Cells(L, 3).Value - 1) + n - 7
If nb <> 0 Then
Cells(a, 16) = Cells(L, 6).Value
Cells(a, 17) = Cells(L, n).Value
Cells(a, 18) = datd
Cells(a, 21) = datf
a = a + 1
End If
nb = 0
Next
Next
End SubBonjour à tous
Une solution PowerQuery, intégré à ta versions Excel.
Il serait plus fiable d'indiquer l'année quelque part dans le classeur...
Actualiser par Données, Actualiser Tout si ajout ou modifications de la source
Edit tu peux copier coller la requête et la fonction dans ton classeur réel en ayant préalablement mis le tableau source sous forme de tableau nommé Absences