Salut,

Place ce code dans le code feuille en faisant clic droit sur la feuille concernée/visualiser le code, une feuille blanche va s'ouvrir et fais un copier coller de ce code.

ensuite tu l'adaptes, dans l'exemple, le déclenchement se fera lorsque la cellule A3 sera = à 10 mais tu peux également dire >= à 10 ou l'inverse ou avec un mot ="titi".
Ensuite dans l'espace vide place le code que tu souhaites exécuter

Private Sub Worksheet_Change(ByVal Target As Range)
If Range("A3") = 10 Then

'ICI PLACE TON CODE MACRO QUE TU SOUHAITES EXECUTER


End If
End Sub

A+

Tout d'abord merci de m'aider.

J'ai taper ceci :

Sub test()
'
' test Macro
'
Private Sub Worksheet_Change(ByVal Target As Range)
If Range("E6") = Mecachrome Then
'
With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("Client")
.PivotItems("Mecachrome").Visible = True

End With
End Sub

Mais lorsque j'execute la macro je reçoit un message me disant qu'il y a une erreur de compilation. As tu une explication?

Encor merci

Salut,

Non tu ne saisis pas une macro dans un module, Tu place l'ensemble du code comme je te l'ai écris dans le code feuille

Places ce code dans le code feuille en faisant clic droit sur l'onglet de ta feuille concernée/visualiser le code, une feuille blanche va s'ouvrir et fais un copier coller de ce code.

Private Sub Worksheet_Change(ByVal Target As Range)
If Range("A3") = 10 Then

'ICI PLACE TON CODE MACRO QUE TU SOUHAITES EXECUTER ou simplement le nom de ta macro que tu as créé dans un module par exemple Sub titi () tu saisis simplement titi et la macro titi s'exécutera automatiquement dès que dans ta cellule A3 il y aura 10


End If
End Sub

A+

Je suis vraiment désolé mais je dois me planter à un moment,

Je tape :

Private Sub Worksheet_Change(ByVal Target As Range)
If Range("C10") = Mecachrome Then


' testtttttt

End If
End Sub
et rien ne se passe (j'ai vérifier que la macro "testtttttt" fonctionne bien et c'est bon.

Qu'en penses tu?

Salut,

Normal tout texte doit être entre "" c'est à dire "Mecachrome". Ensuite le nom de ta macro ne doit pas être précédé '
C'est à dire que tu dois saisir testtttttt

En fait voila le code que tu dois saisir

Private Sub Worksheet_Change(ByVal Target As Range)
If Range("C10") = "Mecachrome" Then

testtttttt

End If
End Sub

Dès que dans ta cellule C10 tu aura Mecaghrome ta macro testttttt s'exécutera automatiquement

A+

Si ou dès que ton problème sera résolu n'oublis pas de le marquer ton statut résolu

ça fonctionne!!!

Un grand merci à toi d'avoir prit le temps de te pencher sur mon problème.
Trés bonne continuation.

+++