B
BoSo
Guest
Bonjour tout le monde, est il possible de lancer une macro via un menu deroulant? Si oui, pourriez vous m'expliquer la demarche a suivre?
Sub Menu_Deroulant()
Select Case Sheets('SAISIE JOURNEE').Range('L27').Value
Case 1: Lundi
Case 2: Mardi
Case 3: Mercredi
Case 4: Jeudi
Case 5: Vendredi
End Select
End Sub
Sub Lundi()
Dim TheReply As Byte
Dim RSource As Range, RCible As Range
TheReply = MsgBox('Vous avez cliqué sur Lundi' & vbCrLf & vbCrLf & _
'Voulez-vous continuer ?', vbQuestion + vbOKCancel, 'Process pour Lundi')
If TheReply = vbOK Then
Set RSource = Sheets('SAISIE JOURNEE').Range('A1:I70')
Set RCible = Sheets('SAUVEGARDE JOURNEE').Range('A1')
RSource.Copy Destination:=RCible
MsgBox 'Operation Effectuée'
Else
MsgBox 'Operation Annulée par Utilisateur'
End If
End Sub