Lancer une macro à la sélection d'au moins 2 cellules
Bonjour le forum,
Je bloque sur la création d'un planning. Je souhaiterai que lorsque l'utilisateur sélectionne au moins 2 cellules (au format horaire) une macro soit lancée ?
Merci d'avance pour votre aide.
Bonne journée à vous.
Bonjour Samsam07,
Avec la macro ci-dessous une sélection de 2 cellules avec format horaire va lancer une macro souhaitée.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Cible de 2 cellules
If Target.Count = 2 Then
Application.EnableEvents = False
'Si les 2 cellules sélectionnées sur 2 colonnes même ligne sont en format horaire de type heure + minute
macro = IIf(ActiveCell.NumberFormat = "h:mm" And ActiveCell.Offset(0, 1).NumberFormat = "h:mm", 1, 0)
Application.EnableEvents = True
End If
'Alors le résultat dans la variable macro sera de 1 afin d'effectuer la macro LanceMacro
If macro = 1 Then Call LanceMacro
End SubA adapter selon format horaire et position de ceux-ci . Ici l'exemple est réalisé pour une même ligne sur 2 colonnes.
Bonsoir X Cellus,
Un grand merci pour le bout de code qui fait le job parfaitement
Je vais l'adapter à ma feuille mais sans problème je pense.
Bonne soirée et encore félicitation pour la réponse