Discussion :

[chuspyto]

bonjour,

j'ai essayé d'optimiser mon code d'origine en ce qui va suivre mais je n'ai aucun résultat ni message d'erreur

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
If Cadre1.Value = 2 And Cadre2.Value = 3 And Cadre3.Value = 3 Then
table = "Table_1"
tables = "Table_1a"
ElseIf Cadre1.Value = 2 AndCadre2.Value = 3 And Cadre3.Value = 7 Then
table = "Table_2"
tables = "Table_2a"
ElseIf Cadre1.Value = 3 And Cadre2.Value = 3 And Cadre3.Value = 3 Then
table = "3"
tables = "3a"
For i = 1 To 40
res = Nz(DLookup("Chm", "tables", "[ID] = " & i))
Next i

merci

[jimbolion]

chuspyto,

Tout me semble confus dans ton code mais "tables" ne varie pas parce que protégé :

Il faut passer la variable soit :

Code :

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

res = Nz(DLookup("Chm", tables, "[ID] = " & i))

Pour le reste je ne sais pas ou tu veux en venir, mais j'espère que toi tu le sais

Et le End IF il est ou ?

Pourvu que Mumen ne tombe pas sur ce fil de discussion


JimboLion

[chuspyto]

je suis d'accord avec toi dans le coté confus c'est pour cela que j'aimerai que le nom de ma table prend le nom en fonction des cases qui sont cochés

[jimbolion]

chuspyto,

Me voilà déjà rassuré !

Bon as tu essayé la modif sur le test et n'oublie pas de mettre ton End if avant le for

JimboLion

[chuspyto]

j' ai fais ce que tu m'as dit, a peine une case cochée et j'ai un message d'erreur d'execution 2428
vous avez entre un argument non valide dans une fonction de domaine
l'erreur se situe dans la ligne du dlookup

Code :

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

res = Nz(DLookup("Chm", tables, "[ID] = " & i))

[jimbolion]

chuspyto,

peux tu afficher le contenu des variables avant le dlookup

Je viens te tester ta fonction, pas de soucis chez moi

JimBoLion