Herve29000
Messages postés38Date d'inscriptiondimanche 6 juillet 2008StatutMembreDernière intervention20 octobre 2014
-
24 août 2008 à 19:44
PCPT
Messages postés13272Date d'inscriptionlundi 13 décembre 2004StatutMembreDernière intervention 3 février 2018
-
25 août 2008 à 08:08
Bonjour
Voila j'ai une userform avec 20 TEXTBOX, nommées de T1 à T20
Je voudrais les charger via une procedure en utilisant un allias de variable :
For i=1 to 20
ch="T"&str(i)
userform1.ch=cells(ctr,i+3)
next i
Mais j'ai un probleme de compil, la valeur CH ne convient pas
Si vous pouviez m'aider, j'en serais ravi - Merci à tous
dedenet2
Messages postés372Date d'inscriptionvendredi 27 juillet 2007StatutMembreDernière intervention22 juillet 20132 25 août 2008 à 00:35
Salut à tous ,
Jmfmarques a trouver la bonne voie.
Je propose un code:
For Each c In Controls
If c.Name Like "T*" Then
i = i + 1
Me.Controls("T" & i).Value = Cells(ctr, i + 3)
End If
Next
Pour que ça fonctionne , il faut que les textbox soient nommés dans l'ordre
T1,T2,T3,........etc.
A adapter à ton projet.
+++