Bonjour à tous,
Voilà j'ai beau retourner le problème dans tous les sens, je n'arrive pas à faire exécuter la condition vraie
si si J = Jeudi alors .... La valeur de J est bien Jeudi dans mon cas d'essais mais ça saute la condition je n'y comprend rien ; j'ai même essayé de changer la déclaration de J et seul String est accepté
Voici le code :
Hélas il y a 7 jour dans la semaine donc 7 conditions que je dois d’ailleurs étoffées quand elle seront prise en compte. On doit pouvoir faire plus simple mais vu mes maigres connaissances en VBA quand ça fonctionne je suis déjà content.
Enfin merci d’avance si vous trouvez une solution à mon problème
Voilà j'ai beau retourner le problème dans tous les sens, je n'arrive pas à faire exécuter la condition vraie
si si J = Jeudi alors .... La valeur de J est bien Jeudi dans mon cas d'essais mais ça saute la condition je n'y comprend rien ; j'ai même essayé de changer la déclaration de J et seul String est accepté
Voici le code :
Code:
Private Sub DTPicker21_Change()
ActiveSheet.Unprotect
Dim AQ2 As Date
If DTPicker21.Value <> "" Then
Range("AQ2").Value = DTPicker21.Value
End If
Dim R As Range
Dim myDate As String
Dim A As Date
A = Range("AQ2").Value
myDate = WeekdayName(Weekday(A - 1))
Range("DN1") = myDate
Set R = Range("F5:R5").Find(myDate, lookat:=xlWhole)
Dim J As String
J = R.Value
If J = "lundi" Then
Range("F5") = A
Range("F6") = 1
End If
If J = "mardi" Then
Range("H5") = A
Range("H6") = 1
End If
If J = "mercredi" Then
Range("J5") = A
Range("J6") = 1
End If
If J = "jeudi" Then
Range("L5") = A
Range("L6") = 1
End If
If J = "vendredi" Then
Range("N5") = A
Range("N6") = 1
End If
If J = "samedi" Then
Range("P5") = A
MsgBox ("Voulez-vous vraiment travailler un Samedi ?"), vbYesNo
If vbNo Then
Range("F5") = A
Range("F6") = 1
If vbYes Then
Range("P6") = 1
End If
End If
If J = "dimanche" Then
Range("R5") = A
MsgBox ("Alors, on travail les Dimanche maintenant ?"), vbYesNo
If vbNo Then
Range("F5") = A
Range("F6") = 1
End If
If vbYes Then
Range("R6") = 1
End If
End If
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End If
End Sub
Hélas il y a 7 jour dans la semaine donc 7 conditions que je dois d’ailleurs étoffées quand elle seront prise en compte. On doit pouvoir faire plus simple mais vu mes maigres connaissances en VBA quand ça fonctionne je suis déjà content.
Enfin merci d’avance si vous trouvez une solution à mon problème