Problème Boucle while

Version imprimable

12/10/2020, 10h53
lalamira

1 pièce(s) jointe(s)

Problème Boucle while

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
Pièce jointe 581259
12/10/2020, 12h30
78chris

1 pièce(s) jointe(s)

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
12/10/2020, 14h32
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

Re

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

Tu as inutilement compliqué

Code:

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

12/10/2020, 20h12
lalamira

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