Réponses différentes meme demande
Bonjour le forum,
J'ai un souci avec mon code erreur.
Si je mets que la 1ere condition, il l'éxécute cette demande:
avec ce code:
cpt1 = 0
For q = debSalarie To finsalarie
'If ((CDate(TextBox2.Value) = Sheets("cascade").Range("D" & q)) _
'Or Month(CDate(TextBox2.Value)) = Month(Sheets("cascade").Range("D" & q))) _
' Or ((CDate(TextBox1.Value) = Sheets("cascade").Range("E" & q))
If Month(CDate(TextBox1.Value)) = Month(Sheets("cascade").Range("E" & q)) Then
lign = q
MsgBox Month(CDate(TextBox2.Value)) & " = " & Month(Sheets("cascade").Range("D" & q)) ' _
'& " or " & CDate(TextBox1.Value) & " = " & Sheets("cascade").Range("E" & q)
cpt1 = cpt1 + 1
GoTo ligne3 'ligne 3
End If
Next q
Mais pour d'autres demandes ou il n'y a pas d'enregistrement correspondant avec le mois, il bug.
Si je rajoute le code 'pas d'enregistrement',
cpt1 = 0
For q = debSalarie To finsalarie
'If ((CDate(TextBox2.Value) = Sheets("cascade").Range("D" & q)) _
'Or Month(CDate(TextBox2.Value)) = Month(Sheets("cascade").Range("D" & q))) _
' Or ((CDate(TextBox1.Value) = Sheets("cascade").Range("E" & q))
If Month(CDate(TextBox1.Value)) = Month(Sheets("cascade").Range("E" & q)) Then
lign = q
MsgBox Month(CDate(TextBox2.Value)) & " = " & Month(Sheets("cascade").Range("D" & q)) ' _
'& " or " & CDate(TextBox1.Value) & " = " & Sheets("cascade").Range("E" & q)
cpt1 = cpt1 + 1
GoTo ligne3 'ligne 3
End If
'pas d'enregistrement
ElseIf cpt1 = 0 Then
MsgBox "Pas d'enregistrement avec cette période." & Chr(10) & Chr(10) & _
"Veuillez enregistrer une nouvelle absence."
GoTo ligne4
End If
Next q
çà ne bug plus, mais il me répond 'pas d'enregistrement' aussi pour la 1ere demande qui passait.
merci de votre aide
fronck
Bonjour,
Tu l'avais presque ... il fallait descendre sous le "Next q".
À tester ...
ric
Bonjour,
Oui il fallait finir la boucle des enreg d'un salarié pour connaitre le compteur.
je t'informe que le fichier est fini et a été accepté en téléchargement.
merci
Fronck