Un probleme avec ma userform et recherche de donnée
bonjours
j'ai un sheets qui aa comme tableaux :
si je recherche le ID : 17/0001 ...... 17/0254 j'ais rien comme donnée
mais si je recherche le id comme : 1 - 2 - 3 - 4 - .... - 10000
ça marche tres bien
le code de ma userform
Private Sub CommandButton1_Click()
MsgBox "Merci pour utilisé UserForm"
Unload Me
End Sub
Private Sub id_Change()
X = WorksheetFunction.CountIf(sheet20.Range("a:a"), Val(Me.id.Value))
With Me
If .id.Value <> "" And X <> 0 Then
.nar = Application.WorksheetFunction.VLookup(CLng(Me.id.Value), sheet20.Range("lookup"), 2, 0)
.prar = Application.WorksheetFunction.VLookup(CLng(Me.id.Value), sheet20.Range("lookup"), 3, 0)
.dateid = Application.WorksheetFunction.VLookup(CLng(Me.id.Value), sheet20.Range("lookup"), 4, 0)
.moy1 = Application.WorksheetFunction.VLookup(CLng(Me.id.Value), sheet20.Range("lookup"), 5, 0)
.moy2 = Application.WorksheetFunction.VLookup(CLng(Me.id.Value), sheet20.Range("lookup"), 6, 0)
.moy3 = Application.WorksheetFunction.VLookup(CLng(Me.id.Value), sheet20.Range("lookup"), 7, 0)
.moy4 = Application.WorksheetFunction.VLookup(CLng(Me.id.Value), sheet20.Range("lookup"), 8, 0)
.moy5 = Application.WorksheetFunction.VLookup(CLng(Me.id.Value), sheet20.Range("lookup"), 9, 0)
.moy6 = Application.WorksheetFunction.VLookup(CLng(Me.id.Value), sheet20.Range("lookup"), 10, 0)
.moyall = Application.WorksheetFunction.VLookup(CLng(Me.id.Value), sheet20.Range("lookup"), 11, 0)
.resultat = Application.WorksheetFunction.VLookup(CLng(Me.id.Value), sheet20.Range("lookup"), 12, 0)
Else
.nar = ""
.prar = ""
.dateid = ""
.moy1 = ""
.moy2 = ""
.moy3 = ""
.moy4 = ""
.moy5 = ""
.moy6 = ""
.moyall = ""
.resultat = ""
End If
End With
End Sub[attachment=0]Etude2020ver2.xlsm[/attachment]merci
ça marche
mais je cherche que les donnée s'affiche juste que code existe sans validé ma recherche
merci merci merci
ok
pour 1,2,3 : ça marchait, mais pas pour les autres valeurs qui avaient plus d'un caractères
car l’événement était "change", donc dès qu'on tapait un caractère le code était exécuté, ce qui entraînait une erreur
d'ou la nécessité d'utiliser l'événement clic avec un bouton
je vais essayer avec un autre éventement "sur sortie"
une autre solution
j'ai remplacé la plage nommé "lookup" par un tableau "t_resultat"
ce qui permet d'ajouter des lignes sans modifier la plage
if suffit de taper l'id et de cliquer dans un autre champ (nom par exemple