Discussion :

[PierreDrome]

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.

[Philippe Tulliez]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[tototiti2008]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[PierreDrome]

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