Macro code barre, rechercheV et beep

  • Initiateur de la discussion Initiateur de la discussion therealtom
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
7
Affichages
795
Réponses
0
Affichages
3 K
Retour