Discussion :

[michelr06]

Bonjour,

voici mon problème, je souhaite récupérer un valeur d'un champs en incrémentant son nom avec une bouche pour remplir un tableau.
Dur a expliquer..

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Dim tableau As Variant '(mon tableau)
Dim Valeurcell As Integer, Textcell As String, i as integer
tableau = Array(15)
 
For i = 1 To 15
Tcell = "Me!r" & i   ' qui donne le nom de ma cellule ex ME!R1
Vcell = Tcell         ' qui devrait donner la valeur de ma cellule ME!R1, mais qui donne une erreur
tableau(i) = Vcell   'remplissage du tableau
Next i

Si vous pouvez m'aider
Merci

[marot_r]

Bonjour

Remplace

Code :

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

Vcell = Tcell

par

Code :

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

Vcell=me.controls("R" & i)

Cela devrait résoudre ton problème.

A+

[michelr06]

Super parfait merci

Top

A+