Dooz
XLDnaute Nouveau
Bonjour à Tous
Mon niveau n'est pas très elévé sous Visual Basic et je suis entrain de modifier la macro ci-dessous d'un planificateur de Congés.
En fait, si un CF est posé, la macro vérifie actuellement si un CA est adjacent.
Je voudrai apporter en supplément: la vérification d'un RTT.
Donc condition: 1 CA ou 1 RTT adjacent.
Je ne trouve pas la syntaxe qu'il faudrait.
D'avance merci.
Mon niveau n'est pas très elévé sous Visual Basic et je suis entrain de modifier la macro ci-dessous d'un planificateur de Congés.
La modification à apporter porte sur 2 conditions et non plus sur une seule.If Choix = "CF" Then
Solde = Sheets("DROITS").Cells(Lig, 7)
période = Sheets("DROITS").Cells(Lig, 4)
'Vérification d'un CA adjacent
If VerifP <> "CA" And VerifS <> "CA" And VerifP <> "CF" And VerifS <> "CF" Then GoTo ErreurCA_Non_Adjacent
If période = 0 Then GoTo PériodeUtilisée
If Solde = 0 Then GoTo DroitsExpirés
If Solde < NbJours Then GoTo DroitsInsuffisants
'Vérification de la continuité des CF pour décompter une période
If VerifP <> "CF" And VerifS <> "CF" Then
Sheets("DROITS").Cells(Lig, 4) = période - 1
End If
If VerifP = "CF" And VerifS = "CF" Then
Sheets("DROITS").Cells(Lig, 4) = période + 1
End If
Sheets("DROITS").Cells(Lig, 7) = Solde - NbJours
GoTo Saisie
End If
En fait, si un CF est posé, la macro vérifie actuellement si un CA est adjacent.
Je voudrai apporter en supplément: la vérification d'un RTT.
Donc condition: 1 CA ou 1 RTT adjacent.
Je ne trouve pas la syntaxe qu'il faudrait.
D'avance merci.