Déclenchement de macros à partir de la valeur d'une cellule

Bonjour,

Je souhaite déclencher alternativement deux macros en fonction du contenu d'une cellule qui est une case à cocher.
J'ai écrit le script suivant et rien ne se passe quand je coche la cellule C1.
Les deux macros appelées (Pays_Retenus et Tous_Pays) fonctionnent indépendamment normalement.

Private Sub worksheet_change(ByVal target As Range)
Set target = Range("C1")
If target.Value = VRAI Then
Call Pays_Retenus
Else
Call Tous_Pays
End If
End Sub

Merci d'avance pour votre aide.

Bonjour,
Il y a une incohérence dans votre code.
En effet Target est l'objet Range où a lieu le changement de valeur or vous lui assignez une autre cellule soit C1
Je vous conseille la lecture de ce tutoriel Les évènements dans la feuille de calcul Excel
De plus la ligne If target.Value = VRAI n'est pas correcte remplacez VRAI par True

[EDIT]
Voici un exemple de code. qui intercepte l'événement de changement de valeur qui a lieu dans la colonne Check d'un tableau structuré nommé "t_Data"

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Private Sub Worksheet_Change(ByVal Target As Range) Const LabelName As String = "Check" Const TableName As String = "t_Data" Dim oList As ListObject, oRange As Range Set oList = Range(TableName).ListObject Set oRange = oList.ListColumns(LabelName).DataBodyRange If Not Application.Intersect(Target, oRange) Is Nothing Then ' Ici le code With Target MsgBox "Vous avez cliqué sur " & .Address & " sa valeur est " & .Value End With End If Set oList = Nothing: Set oRange = Nothing End Sub

---

Illustration
Pièce jointe 663253

Bonjour,

Pour compléter les remarques de Philippe, faire attention au fait que Change peut affecter plusieurs cellules à la fois (par exemple si on efface le contenu d'une sélection (touche Suppr))
Si on ne veut pas que le code plante dans ce cas, prévoir de boucler sur toutes les cellules affectées

du genre (sur base de l'exemple de Philippe)

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Private Sub Worksheet_Change(ByVal Target As Range) Const LabelName As String = "Check" Const TableName As String = "t_Data" Dim oList As ListObject, oRange As Range, Cellule as Range Set oList = Range(TableName).ListObject Set oRange = oList.ListColumns(LabelName).DataBodyRange If Not Application.Intersect(Target, oRange) Is Nothing Then ' Ici le code For each Cellule in Application.Intersect(Target, oRange).cells With Cellule MsgBox "Vous avez cliqué sur " & .Address & " sa valeur est " & .Value End With Next End If Set oList = Nothing: Set oRange = Nothing End Sub

---

Merci à tous les deux.
Je vais tester mais après le réveillon.
Bonne fête !!