Bonjour,
Je suis encore novice dans le codage vba du coup dès que je peux , j'essaye de faire du vba :)
Au taff chaques semaines (le lundi ou vendredi), une personne rapporte le peti dej et du coup je voulais automatisé cela pour savoir à qui était le tour.
Du coup j'ai essayer un petit truc mais ça ne fonctionne pas :/
Dim mydate As Date
Dim n As Integer
Sub Dej()
n = 0
If Weekday(mydate, vbMonday) = 1 Then
n = n + 1
If n = 1 Then
MsgBox ("c'est à Dimitri")
Else
End If
If n = 2 Then
MsgBox ("c'est à Glawdis")
Else
End If
If n = 3 Then
MsgBox ("c'est à Maxt")
Else
End If
If n = 4 Then
MsgBox ("c'est à MaxF")
Else
End If
If n = 5 Then
MsgBox ("c'est à Greg")
Else
End If
If n = 6 Then
MsgBox ("c'est à Sam")
Else
End If
If n = 7 Then
MsgBox ("c'est à Julie")
n = 0
Else
End If
Else
End If
End Sub
Je ne connais pas beaucoup de formules du coup je fais avec les moyens du bord..
Je me doute qu'il y a plus simple mais je ne connais pas asser :(
Merci à vous