bennisay
XLDnaute Occasionnel
bonjour le forum
j ai ce code pour interdire les doublons
Private Sub Worksheet_Calculate()
If Range("I5") = 2 Then MsgBox "ATTENTION ARTICLE DEJA SAISI"
If Range("G1") = "Attention" Then MsgBox "ATTENTION BON DEJA SAISI", vbInformation
Select Case Range("E5")
Case Is = 1
MsgBox ("ALERTE DEPASSEMENT DU STOCK"), vbInformation
Case Is = 2 '*
MsgBox (""), vbInformation '*
End Select
End Sub
pour le message box de "I5" et "E5" c est bon
par contre pour la cellule "G1" ce que je veux : si j ai la valeur "Attention" en "G1" j aurai le Msgbox de la maniere suivante :
ATTENTION BON DÉJÀ SAISIE
VOULEZ VOUS CONTINUER
OUI NON
SI c est non il va empêcher la saisie par contre si c est non je continue la saisie normal avec le doublon
MERCI POUR VOTRE AIDE
j ai ce code pour interdire les doublons
Private Sub Worksheet_Calculate()
If Range("I5") = 2 Then MsgBox "ATTENTION ARTICLE DEJA SAISI"
If Range("G1") = "Attention" Then MsgBox "ATTENTION BON DEJA SAISI", vbInformation
Select Case Range("E5")
Case Is = 1
MsgBox ("ALERTE DEPASSEMENT DU STOCK"), vbInformation
Case Is = 2 '*
MsgBox (""), vbInformation '*
End Select
End Sub
pour le message box de "I5" et "E5" c est bon
par contre pour la cellule "G1" ce que je veux : si j ai la valeur "Attention" en "G1" j aurai le Msgbox de la maniere suivante :
ATTENTION BON DÉJÀ SAISIE
VOULEZ VOUS CONTINUER
OUI NON
SI c est non il va empêcher la saisie par contre si c est non je continue la saisie normal avec le doublon
MERCI POUR VOTRE AIDE