Discussion :

[lalamira]

Bonjour,

je suis novice dans la création de macro et je souhaite en réaliser une qui m'indique les chevauchement dans les périodes des enregistrements sur un même employé.
J'ai commencé à la coder et mon code vérifie s'il y'a des chevauchements sur l'ensemble de mes lignes sans vérifier l'ID de l'employé.
Je ne comprend pas pourquoi, pourriez-vous m'éclairer?


Je vous mets un fichiers exemple ou cette macro devrait fonctionner

Merci
ChevauchementDate.xlsm

[78chris]

Bonjour

Deux solutions : formules et PowerQuery

J'ai modifié 2 dates car l'une avait une date de fin inférieure à la date de début et l'autre pour avoir au moins un cas

Pour PowerQuery, intégré à Excel 2016 et +, actualiser par Données, Actualiser Tout

[lalamira]

Merci pour la solution ça fait bien ce que je cherche à vérifier.
Mais y-a-il un moyen de savoir pourquoi ma macro ne fonctionne pas s'il vous plait ?

Mira

[78chris]

Re

y n'est pas réévalué alors que tes boucles tournent

Tu as inutilement compliqué

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
20
21
22
23
Sub DateAnter()
'DateAnter Macro
 
Dim Result As Long
Dim i As Long
Dim j As Long
 
    For i = 2 To (Cells(Rows.Count, 1).End(xlUp).Row) - 1
        j = i + 1
        Date1 = CDate(Left(Replace(Cells(i, "D"), "-", "/"), 19)) 'Transformer les dates format perso en format accepté par excel
        Date2 = CDate(Left(Replace(Cells(j, "C"), "-", "/"), 19))
        Result = Date2 - Date1 '****************
        If Result < 0 And Cells(i, "B") = Cells(j, "B") Then
            MsgBox Date1
            MsgBox Date2
            MsgBox Result
            MsgBox "Chevauchement"
 
            Exit Sub
        End If
    Next
 
End Sub

[lalamira]

Merci beaucoup
effectivement, j'ai compliqué pour rien.