Macro sur modif cellule précise

H

hamcec

Guest

• 14 Juillet 2009

• #2

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+

 

Vote positif 0 Vote négatif

Robert

XLDnaute Barbatruc

Repose en paix

• 14 Juillet 2009

• #3

Re : Macro sur modif cellule précise

Bonsoir Donpopo, Hamcec, bonsoir le forum,

Peut-être comme ça :

Code:

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

 

Vote positif 0 Vote négatif

donpopo

XLDnaute Occasionnel

• 14 Juillet 2009

• #4

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

 

Pièces jointes

• Classeur2.zip

  9.7 KB · Affichages: 21
• Classeur2.zip

  9.7 KB · Affichages: 22
• Classeur2.zip

  9.7 KB · Affichages: 23

Vote positif 0 Vote négatif

H

hamcec

Guest

• 14 Juillet 2009

• #5

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 ...

 

Vote positif 0 Vote négatif

donpopo

XLDnaute Occasionnel

• 14 Juillet 2009

• #6

Re : Macro sur modif cellule précise

Bonsoir Robert,

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

Bonsoir tous deux

Donpopo

 

Vote positif 0 Vote négatif

H

hamcec

Guest

• 14 Juillet 2009

• #7

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+

 

Vote positif 0 Vote négatif