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

nono159 · 5 Juin 2012

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 · 5 Juin 2012

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

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

Code:

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 · 5 Juin 2012

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 · 5 Juin 2012

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

Ca marche !!

MERCI MISANGE !!!

A++

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

nono159

Guest

Pièces jointes

nono159

Guest

Misange

XLDnaute Barbatruc

nono159

Guest

Discussions similaires

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

nono159

Guest

Pièces jointes

nono159

Guest

Misange

XLDnaute Barbatruc

nono159

Guest

Discussions similaires

Privacy & Transparency

Privacy & Transparency