modification de code

[bennisay]

Bonjour le forum

Svp comment modifier ce code de sorte que je ne reçois le messagbox qu une seule fois et continuer la saisie sans être interrompu par le message meme si j ai la valeur "1" dans la cellule " B1"

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Worksheets("Feuil1").Cells(1, 2).Value = 1 Then
MsgBox ("1 est dans la cellule B1"), vbExclamation
End If

End Sub

 

[DL_13]

Re : modification de code

Bonjour,

essaye avec

Private Sub Worksheet_Change(ByVal Target As Range)
If Worksheets("Feuil1").Cells(1, 2).Value = 1 Then MsgBox ("1 est dans la cellule B1"), vbExclamation
End Sub

Bonne journée

 

[bennisay]

Re : modification de code

RE
Non ca ne marche pas tant que la valeur "1" est dans la cellule "b1" le messagbox apparaisse meme si je click sur autre cellule le message se déclenche tjrs

 

[DL_13]

Re : modification de code

Alors peut-être comme cela

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect([B1], Target) Is Nothing Then
If Worksheets("Feuil1").Cells(1, 2).Value = 1 Then MsgBox ("1 est dans la cellule B1"), vbExclamation
End If
End Sub

Bonne journée

 

[bennisay]

Re : modification de code

re
Merci infiniment ca marche
merci pour la rapidité de votre réponse

 

[bennisay]

Re : modification de code

re
desole j ai un autre cas mais le code ne fonctionne pas avec
c est toujours la cellule "B1" mais sa valeur cette fois ci est sous forme de formule je ne saisie pas 1 dans "B1"
comment faire donc
MERCI