therealtom
XLDnaute Nouveau
Bonjour,
Je recherche un moyen pour pouvoir vérifier à partir d'une même feuille de calcul les différents codes barres entrés par scan, afin d'identifier les codes barres erronés (ceux présentant moins de 10 chiffres), et les nouveaux codes barres entrants.
Pour résumé:
- je présente une feuille de calcul ayant de nombreuses colonnes avec les codes barres en fonctions des dates d'entrées et d'expéditions.
- lorsque j'entre une valeur à partir du scan, j'aimerais pouvoir émettre un son puis ouvrir une boite de dialogue (MsgBox) lorsque le code barre est nouveau ou non valide. De plus je recherche à différentier ces deux problèmes avec le message qui lui correspond.
Je suis un mini mini mini débutant en VBA. Votre aide me serait vraiment précieuse.
J'avais essayé un petit quelque chose, mais il ne respecte qu'une condition, et le message ne s'arrête jamais.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Rg As Range, C As Range
Set Rg = Range("A2:ZZ500")
If Not Intersect(Rg, Target) Is Nothing Then
For Each C In Rg
If 0 < C.Value < 999999999 Then
MsgBox "Le code barre entré est erroné, veuillez réitérer l'opération SVP"
Call Beep(400, 400)
End If
Next
End If
End Sub
Merci par avance de votre aide.
Bonne journée
Je recherche un moyen pour pouvoir vérifier à partir d'une même feuille de calcul les différents codes barres entrés par scan, afin d'identifier les codes barres erronés (ceux présentant moins de 10 chiffres), et les nouveaux codes barres entrants.
Pour résumé:
- je présente une feuille de calcul ayant de nombreuses colonnes avec les codes barres en fonctions des dates d'entrées et d'expéditions.
- lorsque j'entre une valeur à partir du scan, j'aimerais pouvoir émettre un son puis ouvrir une boite de dialogue (MsgBox) lorsque le code barre est nouveau ou non valide. De plus je recherche à différentier ces deux problèmes avec le message qui lui correspond.
Je suis un mini mini mini débutant en VBA. Votre aide me serait vraiment précieuse.
J'avais essayé un petit quelque chose, mais il ne respecte qu'une condition, et le message ne s'arrête jamais.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Rg As Range, C As Range
Set Rg = Range("A2:ZZ500")
If Not Intersect(Rg, Target) Is Nothing Then
For Each C In Rg
If 0 < C.Value < 999999999 Then
MsgBox "Le code barre entré est erroné, veuillez réitérer l'opération SVP"
Call Beep(400, 400)
End If
Next
End If
End Sub
Merci par avance de votre aide.
Bonne journée
