Validations de données dans un "InputBox"[Résolu]

[nono159]

Bonjour le forum,

J'ai un souci sur une macro, ci joint un exemple.

Lorsque je lance ma macro, je souhaite que l'utilisateur ne puisse recherchez que les numéros indiqués dans la plage comme la validations de données classique. Sauf que dans le cas présent, c'est en VB et dans un inputbox.

La plage à un nom et se met à jour toute seul lorsqu'il y a des nouvelles entrées.
Je n'arrive pas à faire le test avec la plage entière


D'avance MERCI.

 

[nono159]

Re : Validations de données dans un "InputBox"

Voici le code que j'ai déja mis en place :

Sub test()

Dim Num As Variant
Dim i As Integer

i = 0
Do While i < 1
    Num = InputBox("Veuillez tapez un numéro de LOT SVP.(exemple : B080034AE2)", "Numéro de LOT ", NUMERO)
    If Num = "" Then Exit Sub ' si on écrit rien on sort de la boucle
    
    ' validation de données ( dans le document en entier les données sont dans une autre feuille dans la plage("J2:J1797") ...)
    If Num <> Range("A2").Value Or Num <> Range("A3").Value Or Num <> Range("A4").Value Then
       MsgBox ("Erreur ! Merci de taper un numéro valide")
    
    Else ' on sort de la boucle
    i = i + 1
    End If
Loop

Range("D3") = Num

End Sub

 

[Misange]

Re : Validations de données dans un "InputBox"

Bonjour

essaie ceci
If IsError(Application.Match(num, Range("maplage"), 0)) Then
'si le N° ne correspond pas à une des valeurs de la plage maplage...

en nommant ma plage la plage dynamique J2:J...

 

[nono159]

Re : Validations de données dans un "InputBox"

Ca marche !!

MERCI MISANGE !!!

A++