XL 2010 selection de plusieurs cellule pour msgbox

Nicolas33gin33!

XLDnaute Nouveau
Bonjour,

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

XLDnaute Barbatruc
Bonjour.
Pourquoi ne le feriez vous pas avec une validation de donnée ?
upload_2017-4-12_12-34-48.png
 

Discussions similaires

Réponses
7
Affichages
462

Statistiques des forums

Discussions
312 889
Messages
2 093 348
Membres
105 696
dernier inscrit
FrancisR