code VBA a améliorer

[Titi]

Bonjour le forum.
J'ai un petit problème avec un code Vba
Private Sub Worksheet_Calculate()
If Range("B3") = Range("A64") Then MsgBox "Vous avez selectionné la fabrication de disques attention aux horaires des différentes personnes"
End Sub
Ce message s'affiche a chaque fois que la case b3
est = a la case a64, mais je voudrais qu'il s'affiche qu'une seul fois, là il s'affiche a chaque fois que l'on rentre sur les cellule B9:B10:B11:B12:B13
Si vous avez la solution
Merci

 

[Sebb]

Salut !
c'est normal, sur chaque calcul il vérifie à nouveau si ta condition est vraie
eszaie ca
Private Sub Workbook_SheetCalculate(ByVal Sh As Object)
testnombre = 0
If Range("B3") = Range("b4") Then testnombre = 1
If testnombre = 1 Then MsgBox "Vous blabla"
End Sub

 

[Titi]

Bonjour Sebb.
Désole mais ce code ne foctionne pas, il n'y a pas de message qui apparaît.
la cellule B3 est une liste déroulante et si je selectione ce qui se trouve en cellule A64 le message doit apparaître.
Titi

 

[le CH'TI160]

Salut "Sebb ,Titi"
essaies cela je pense que c'est bon

Private Sub Worksheet_Change(ByVal Target As Range)
testnombre = 0
If Range("B3") = Range("A64") Then testnombre = 1
If testnombre = 1 Then MsgBox "Vous blabla"
End Sub
A+++
Jean Marie

 

[patrice]

Bonjour à tous,
Essai :
If ActiveCell.Address <> "$B$3" Then Exit Sub
avant ton If ..
A+

 

[Titi]

Bonjour, Jean marie et merci de ta réponse.
Mais çà ne marche pas , j'ai déjà un Private Sub Worksheet_change sur ma feuille, et dés que je positionne le tiens çà ne fonctionne pas
A te lire
Titi

 

[Titi]

Merci Patrice, tu as mis le doigt en plein dessus.
Un grand merci a tous
Titi

 

[le CH'TI160]

re "Titi"
tu places le code dans ton private Worksheet change
Soit
testnombre = 0
If Range("B3") = Range("A64") Then testnombre = 1
If testnombre = 1 Then MsgBox "Vous blabla"
A+++
Jean Marie