(vba) Declenchement d'une macro dans une fonction conditionnelle

Private Sub Worksheet_Change(ByVal Target As Range)
If Range("A11") = 2 Then
tamacro
end if
End Sub

Option Explicit

Function callMacroIf(cellule As Range)
Application.Volatile

If cellule = True Then
        Call macroTest
        callMacroIf = "la macro a été appelée"
    Else
        callMacroIf = "la macro a n'a pas été appelée"
    End If

End Function

Sub macroTest()
    MsgBox " la valeur de la cellule est VRAI"
End Sub

Function callMacroIf(cellule As Range)
Application.Volatile

If cellule = True Then
        Call macroTest(cellule)
        callMacroIf = "la macro a été appelée"
    Else
        callMacroIf = "la macro a n'a pas été appelée"
    End If

End Function

Sub macroTest(LaCellule As Range)
    MsgBox " la valeur de la cellule  " & LaCellule.Address & "  est  " & LaCellule.Value
End Sub

'---------------------------------------------------------------------------------------
' Module    : Feuil1
' Auteur    : Luki sur xld pour pjp666
' Date      : 05/12/2007
' Description : Procédure événementielle pour changer la couleur de remplissage de
' la cellule en fonction de sa valeur.
' L'événement déclencheur est 'Change' dans la feuille
'---------------------------------------------------------------------------------------

Option Explicit
'-------------------------------------------------------
Private Sub Worksheet_Change(ByVal Target As Range) 'target est la cellule qui appelle la macro événementielle

Dim WorkRange As Range

    'Définit la plage sur laquelle travailler
    Set WorkRange = Range("A1:A20")
    
    'Si l'intersection de la cible(target) et de la plage de travail ne renvoie aucune
    'cellule, sortie macro.
    If Intersect(Target, WorkRange) Is Nothing Then Exit Sub
    'Si la cible contient plusieurs cellules, sortie macro pour éviter les bugs
    If Intersect(Target, WorkRange).Cells.Count > 1 Then Exit Sub

'>>> Choix d'une macro à appeler en fonction de la valeur de cellule <<<
 
    'Si target est vide, appelle macro04 et sortie
    If IsEmpty(Target) Then Call macro04(Target): Exit Sub
    
    'Sinon:
    'Appelle une macro en fonction de la valeur en lui passant 'target' comme argument.
    Select Case Target.Value
        Case Is < 10
            Call macro01(Target)
        Case Is = 10
            Call macro02(Target)
        Case Is > 10
            Call macro03(Target)
    End Select
        
End Sub
'-----------------------------------------------------------------
Sub macro01(cible As Range) 'affecte une couleur de remplissage
    cible.Interior.ColorIndex = 5
End Sub

Sub macro02(cible As Range) 'affecte une couleur de remplissage
    cible.Interior.ColorIndex = 10
End Sub

Sub macro03(cible As Range) 'affecte une couleur de remplissage
    cible.Interior.ColorIndex = 15
End Sub

Sub macro04(cible As Range) ' supprime la couleur de remplissage
    cible.Interior.ColorIndex = xlNone
End Sub

Private Sub Worksheet_Change(ByVal Target As Range) 'target est la cellule qui appelle la macro événementielle

Dim Plage_Cible As Range
Dim Plage_A_Traiter As Range
Dim C As Range

    'Définit la plage qui doit réagir à l'évènement "change"
    Set Plage_Cible = Range("A1:A20")
    
    'Limitation de  la plage à traiter par l'intersection de "target" et de la plage_cible (target pourrait_
    'être plus grand que la plage cible, ou à cheval, dans le cas d'un copier/coller)
    Set Plage_A_Traiter = Intersect(Target, Plage_Cible)
    
    'Si elle ne contient aucune cellule, sortie.
    If Plage_A_Traiter Is Nothing Then Exit Sub
    
'astuce de débuggage : afficher des infos sur la plage à traiter dans la fenêtre_
'exécution( à passer en commentaire quand ça marche)
Debug.Print Plage_A_Traiter.Address & vbLf & Plage_A_Traiter.Cells.Count
    
    
    'boucle sur chaque cellule de la plage à traiter( pasage obligé, le_
    '"selectcase" ne peut travailler que sur une cellule à la fois)
       For Each C In Plage_A_Traiter.Cells
       
            'nettoyage de la couleur de  remplissage avant d'agir
            C.Interior.ColorIndex = xlNone
            
            'Action seulement sur cellule non-vide
            If Not IsEmpty(C) Then
                    'Appelle une macro en fonction de la valeur en lui passant 'C' comme argument.
                     Select Case C.Value
                         Case Is < 10
                             Call macro01(C)
                         Case Is = 10
                             Call macro02(C)
                         Case Is > 10
                             Call macro03(C)
                         Case Else
                             Call macro04(C)
                     End Select
            End If
       Next C
        
End Sub