Nicolas33gin33!
XLDnaute Nouveau
Bonjour,
j'ai un soucis avec ce code :
Il marche très bien, cependant, je veux faire le même pour D3, D4, ... D119.
Donc, c'est pas franchement la joie de faire 120 copier/coller.
Auriez-vous une solution svp ?
j'ai un soucis avec ce code :
Code:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Valeur As Integer
Valeur = Range("D2").Value
If Valeur > Range("E2") Then
MsgBox " Attention dépassement du stock " & Chr(10) & _
"Veuillez modifier votre quantité " & Chr(10) & _
" " & Chr(10) & _
"Merci " & Chr(10) & _
" ", vbOKOnly + vbExclamation, "Attention"
Range("D2").Select
End IfIl marche très bien, cependant, je veux faire le même pour D3, D4, ... D119.
Donc, c'est pas franchement la joie de faire 120 copier/coller.
Auriez-vous une solution svp ?
