Macro sur modif cellule précise

[donpopo]

Bonsoir le forum,

Je cherche à créer une macro événementielle placée sur une worksheet qui se déclencherait uniquement sur une cellule précise, en l'occurence, C20.

Mais, premièrement, cette cellule C20 est alimentée par un choix dans une liste déroulante située en C15. J'ai essayé une procédure simple; celle-ci fonctionne lorsque j'encode moi-même une valeur dans la cellule, mais pas lorsque la valeur encodée dépend de la liste déroulante.

Deuxièmement, je voudrais que la macro ne fonctionne que si C20 prend la valeur "2" uniquement.

Est-il possible de réaliser une telle procédure?

Merci d'avance


J'ai joint un fichier pour expliquer plus clairement.

Donpopo

 

[hamcec]

Re : Macro sur modif cellule précise

Bonsoir,

il te suffit de mettre les lignes suivantes dans la partie code de ta feuille :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row = 3 And Target.Column = 20 Then
If Target = 2 Then
'---Ton traitement
End If
End If
End Sub

A+

 

[Robert]

Re : Macro sur modif cellule précise

Bonsoir Donpopo, Hamcec, bonsoir le forum,

Peut-être comme ça :

Private Sub Worksheet_Calculate()
If Range("C20").Value = 2 Then MsgBox "ok"
End Sub

 

[donpopo]

Re : Macro sur modif cellule précise

Bonsoir hamcec et merci de me répondre,

Je viens de mettre ce code dans le code de ma feuille, mais je n'arrive pas à la faire fonctionner.

Je me trompe peut-être?

Merci

Donpopo

 

[hamcec]

Re : Macro sur modif cellule précise

Ton code (Worksheet_Calculate) n'est exécuté qu'à la suite d'un calcul, si tu saisis directement 2 dans la cellule C20, ton traitement n'a lieu ...

 

[donpopo]

Re : Macro sur modif cellule précise

Bonsoir Robert,

Merci, c'est juste ce que je cherche. Merci aussi hamcec.

Bonsoir tous deux

Donpopo

 

[hamcec]

Re : Macro sur modif cellule précise

Mon code dans ce cas ne fonctionne pas, je pensais que tu devais saisir 2 dans la cellule C20, dans ton cas il faut plutôt utiliser le code de Donpopo :

Private Sub Worksheet_Calculate()
If Range("C20").Value = 2 Then MsgBox "ok"
End Sub

Cela fonctionne très bien ...

A+