Msgbox suite recherchev et doublon
Bonsoir,
Je réalise une simple feuille de control de sortie de préparation par code EAN13 en colonne B
Apres recherche, j ai trouvé un code sur le forum et l ai adapté.
Dans la zone de "Bipage" ( colonne D ) si ok confirmation en colonne C
mais je n arrive pas à ajouter un message box disant que l EAN bipée n est pas présent dans la base .
et si l EAN a été bipé alors message DOUBLON
Merci pur votre aide à venir.
Cdt
Bonsoir,
L' ean rechercher en D est retranscrit en C juste devant la ligne correspondant au code bipé avec code couleur pour une meilleur visibilité.
La feuille peut être modifié sans problème si tu le souhaites pour une meilleur visibilité de l ensemble.
Cdt
Bonjour,
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
'Macros par Claude Dubois pour "lmylvc" Excel-Pratique le 02/06/10
Dim Lg%, x%
Lg = Range("d65536").End(xlUp).Row
If Not Application.Intersect(Target, Range("d4:d" & Lg)) Is Nothing Then
If Application.CountIf(Range("d:d"), Target) > 1 Then
x = Application.Match(Target, Range("d:d"), 0)
If x = Target.Row Then
x = Application.Match(Target, Range(Target.Offset(1, 0), Cells(Lg, 1)), 0) + Target.Row
End If
MsgBox ("DOUBLON !!!!!" & Chr(10) & "ligne " & x)
'Cells(x, 1).Select
Target.ClearContents
Exit Sub
Else
MsgBox ("L'EAN bippé n'est pas présent dans la base de données !")
End If
End If
End SubPar contre ta deuxième demande était déjà présent dans ton code
Bonsoir KoKo_Swiff,
Tout d abord merci pour ton implication et pour avoir répondu à ma demande pour le Msgbox " l ean non present...
avec le petit Else , c'est parfait.
Merci.
Pour la deuxième demande, j ai du mal formuler mes propos dsl.
Cdlt
Re, de rien
Alors quelle est elle ?
Re,
C'est ça le problème ,il n y en as pas
Bonsoir KoKo_Swiff , gmd
Je reviens vers vous pour mon soucis de MsgBox
la solution du ELSE ne va pas , en effet celle ci, s' affiche à chaque bipage
Comment transcrire en VBA
SI le code EAN en D est Non présent en colonne A alors Msgbox Inconnu
Cdt