Discussion :

[azzeddine2005]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 !!!!!!

[anasecu]

Bonsoir,

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.

[azzeddine2005]

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 ?????

[anasecu]

oui mais la solution ?????

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[azzeddine2005]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

ça marche pas
run-time error '1004'

[anasecu]

Bonjour,

ça marche pas run-time error '1004'

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