Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

modification de code

bennisay

XLDnaute Occasionnel
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"


PHP:
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

XLDnaute Occasionnel
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

XLDnaute Occasionnel
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
 
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…