XL 2010 selection de plusieurs cellule pour msgbox

[Nicolas33gin33!]

Bonjour,

j'ai un soucis avec ce 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 If

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 ?

 

[Dranreb]

Bonjour.
Pourquoi ne le feriez vous pas avec une validation de donnée ?

 

[Nicolas33gin33!]

zut
c'est pas bête comme idée !

merci beaucoup

 

[Nicolas33gin33!]

zut
c'est pas bête comme idée !

merci beaucoup