un probleme avec ma userform et recherche de donnée

Version imprimable

1 pièce(s) jointe(s)

bonjours
j'ai un sheets qui aa comme tableaux :
Pièce jointe 513355

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

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
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

mais ça marche pas !!!!!!

26/10/2019, 21h43
anasecu

Bonsoir,

Citation:

Envoyé par azzeddine2005

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

Normal car quand tu transformes "17/0001" en CLng cela ne peux pas fonctionner car le "/" n'est pas numérique.
26/10/2019, 21h53
azzeddine2005

Citation:

Envoyé par anasecu

Bonsoir,

Normal car quand tu transformes "17/0001" en CLng cela ne peux pas fonctionner car le "/" n'est pas numérique.

oui mais la solution ????? :calim2:
26/10/2019, 22h20
anasecu

Citation:

Envoyé par azzeddine2005

oui mais la solution ????? :calim2:

il faut utiliser ta rubrique en alpha et sans doute utiliser l'événement exit plutôt que change et ainsi cela fonctionnera.

Code:

.nar = Application.WorksheetFunction.VLookup(Me.id.Value, sheet20.Range("lookup"), 2, 0)
26/10/2019, 22h31
azzeddine2005

Citation:

Envoyé par anasecu

il faut utiliser ta rubrique en alpha et sans doute utiliser l'événement exit plutôt que change et ainsi cela fonctionnera.

Code:

.nar = Application.WorksheetFunction.VLookup(Me.id.Value, sheet20.Range("lookup"), 2, 0)

ça marche pas
run-time error '1004' 8O
27/10/2019, 09h03
anasecu

1 pièce(s) jointe(s)

Bonjour,

Citation:

Envoyé par azzeddine2005

ça marche pas run-time error '1004' 8O

Et pourtant il me semble que cela fonctionne même si ta méthode ne me parait pas très pertinante ;)
27/10/2019, 13h49
azzeddine2005

Citation:

Envoyé par anasecu

Bonjour,

Et pourtant il me semble que cela fonctionne même si ta méthode ne me parait pas très pertinante ;)

désolé ça marche pas avec le code 17/0001

ça marche si le code et : 1 - 2 - 3 - ..... -100
27/10/2019, 14h02
boisgontierjacques

1 pièce(s) jointe(s)

Bonjour,

Recherche multi-mots multi-colonnes avec un pgm générique

Boisgontier
27/10/2019, 14h19
azzeddine2005

Citation:

Envoyé par boisgontierjacques

Bonjour,

Recherche multi-mots multi-colonnes avec un pgm générique

Boisgontier

super programmation
merci merci merci