Macros par clic sur cellule et sous conditions Résolu/Fermé

Question

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.


Configuration: Windows / Firefox 100.0

Le Pingou · Answer

Bonjour,
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

Joseph · Answer

Mon  Clic  est  maintenant sécurisé.
Merci

Macros par clic sur cellule et sous conditions

2 réponses

Discussions similaires