Xipotera
XLDnaute Nouveau
Bonjour, grâce à la macro suivante, je teste la valeur d'une cellule lorsque je sors de celle-ci.
si celle-ci est vide, je l'affiche en rouge, j'alerte mon utilisateur et je reselectionne sur celle-ci.
le problème est que mon MsgBox s'affiche deux fois, une fois lorsque je sors de ma cellule (la c'est normal) puis une seconde fois lorsque je spécifie dans ma macro de re-selectionner la cellule.
Quelqu'un aurait une idée pour éviter ce double affichage.
si celle-ci est vide, je l'affiche en rouge, j'alerte mon utilisateur et je reselectionne sur celle-ci.
le problème est que mon MsgBox s'affiche deux fois, une fois lorsque je sors de ma cellule (la c'est normal) puis une seconde fois lorsque je spécifie dans ma macro de re-selectionner la cellule.
Quelqu'un aurait une idée pour éviter ce double affichage.
Code:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim KeyCells As Range
Set KeyCells = Cells(3, 4)
If KeyCells.Value = "" Then
KeyCells.Interior.ColorIndex = IIf(Target.Interior.ColorIndex = 3, xlNone, 3)
MsgBox "Veuillez saisir un Code Produit"
KeyCells.Select
Else
KeyCells.Interior.ColorIndex = 0
End If
End Sub