Concatenation code VBA

**toolmeup** · 23/07/2007, 13h47

Bonjour tout le monde,
est ce que quelqun peut me montrer comment faire pour concatener le code suivant

Code :

1
2
3
4
5
For I = 1 To 4
 
ExcelSheet.celles(Arg_Ligne + 1, 1 + I + Arg_Colonne) = Arg_Rs popechantcontI]
 
Next

je veux que Arg_Rs![popechantcont " I " ] change en fonction du I
merci

**dalmasma** · 23/07/2007, 14h08

Salut,

essaye

Code :

ExcelSheet.celles(Arg_Ligne + 1, 1 + I + Arg_Colonne) = Arg_Rs![popechantcont & I & ]

mais en général on utilise ça avec des chaines de caractères, ça serait pas plutôt :

Code :

ExcelSheet.celles(Arg_Ligne + 1, 1 + I + Arg_Colonne) = Arg_Rs!["popechantcont " & I  ]

?

**toolmeup** · 23/07/2007, 14h12

j'ai essayé mais ça ne marche pas.
j'ai essayé ça aussi mais en vain:
....... = "Arg_rs![popechantcont" & I & "]"

**dalmasma** · 23/07/2007, 14h34

lol dsl je suis un noob aussi :p

T'es sûr de la syntaxe de ExcelSheet.celles() ?

Arg_RS c'est un formulaire ou une table ?

**Vince1603** · 23/07/2007, 14h40

Bonjour,
je pense que c'est plutôt :
excelsheet.cells(........

**toolmeup** · 23/07/2007, 14h43

arg_rs est un recordset
et oui vous avez raison c'est cells plutot que celles.

**dalmasma** · 23/07/2007, 16h53

Je sais pas si t'avais résolu ton problème mais je suis tombé sur ça :

Code :

MonRecordSet.Fields("NomDuChampDuRecordSet").Value

là tu peux faire

Code :

MonRecordSet.Fields("NomDuChampDuRecordSet" & I).Value

Tchou

VBA Access