Macros par clic sur cellule et sous conditions
Résolu
Joseph
-
Joseph -
Joseph -
Bonjour,
Je souhaiterais que des macros s'exécutent suite à un clic sur une cellule et sous conditions.
Le clic sur la cellule A1 :
appelle la macro 1 si B1=1 et C1=1 puis
appelle la macro 2 si B1=1 et D1=1 puis
appelle la macro 3 si B1=1 et E1=1 puis
appelle la macro 4 si B1=1
L'objectif est de prendre en compte, par une seule opération, diverses situations tout en sécurisant le clic.
Merci de votre aide.
Je souhaiterais que des macros s'exécutent suite à un clic sur une cellule et sous conditions.
Le clic sur la cellule A1 :
appelle la macro 1 si B1=1 et C1=1 puis
appelle la macro 2 si B1=1 et D1=1 puis
appelle la macro 3 si B1=1 et E1=1 puis
appelle la macro 4 si B1=1
L'objectif est de prendre en compte, par une seule opération, diverses situations tout en sécurisant le clic.
Merci de votre aide.
Configuration: Windows / Firefox 100.0
A voir également:
- Macros par clic sur cellule et sous conditions
- Excel cellule couleur si condition texte - Guide
- Windows 11 clic droit afficher plus d'options par défaut - Guide
- Proteger cellule excel - Guide
- Clic gauche souris ne fonctionne plus ✓ - Forum souris / Touchpad
- Aller à la ligne dans une cellule excel - Guide
2 réponses
Bonjour,
Essayez le code suivant à mettre dans le module de la feuille concernée.
Essayez le code suivant à mettre dans le module de la feuille concernée.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, Range("A1")) Is Nothing Then
If Range("B1") = 1 Then
cde = Application.WorksheetFunction.Sum(Range("C1:E1"))
If cde = 0 Then
MsgBox "Call Macro_4"
ElseIf cde = 1 Then
If Range("C1") = 1 Then
MsgBox "Call Macro_1"
ElseIf Range("D1") = 1 Then
MsgBox "Call Macro_2"
ElseIf Range("E1") = 1 Then
MsgBox "Call Macro_3"
End If
End If
End If
End If
End Sub
