Automatisation du dejeuner au travail

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

Bonjour Hunter et bienvenu, bonjour le forum,

Essaie comme ça :

Sub Dej()
Dim CQR As String 'définit la variable CQR (Celui Qui Raque)

'définit CQR en fonction du jour de la semaine de la date du jour (1 (lundi) = Dimitri, 2 (mardi) = Glawdis, etc...)
CQR = Choose(Weekday(Date, vbMonday), "Dimitri", "Glawdis", "Maxt", "MaxtF", "Greg", "Sam", "Julie")
MsgBox "C'est " & CQR & " !" 'message
End Sub

Heu... Pour moi ça sera un café avec deux sucres (j'suis diabétique...)

@ThauThème c'est super gentil, tu gères :)

Je prend en note la commande pour le café ;)

BonjourHunter666 et

Une petite présentation ICI serait la bienvenue

Si vous ne l'avez pas encore fait, je vous invite à lire la charte du forum [A LIRE AVANT DE POSTER]
qui vous aidera dans vos demandes et réponses sur ce forum et notamment pour la mise entre balises du code déposé.

Ainsi que sur les fonctionnalités (Nouveau Forum au bas de page notamment)

Merci de votre participation

Cordialement