[VBA] boucle caption

[steph23_1]

bonjour,
je suis débutante en vba et je n'arrive pas a faire une boucle correcte
je souhaite faire cette action :

commandbutton345.caption = feuill5.range("b9").value
commandbutton346.caption = feuill5.range("b10").value
....
...
..
commandbutton428.caption = feuill5.range("b92").value

voila, je voudrais faire une boucle pour ne pas avoir a écrire chaque ligne, et comme je suis débutant, j'ai du mal avec les boucles.
Pourriez vous m'aider?

merci par avance

 

[Guest]

Re : [VBA] boucle caption

Bonjour Steph23,

Voici un type de boucle sur des contrôles de userform

Dim Ligne as Long
dim cpt as byte
Ligne=9
For cpt =345 to 428
   Me.Controls("commandbutton" & cpt).Caption=feuill5.range("B" & Ligne).Text
  Ligne=Ligne+1
Next cpt

A+

 

[steph23_1]

Re : [VBA] boucle caption

bonsoir, et merci pour votre réponse.
toutefois lorsque que je fais la boucle comme vous me l'avez indiqué, une erreur apparait : depassement de capacité !!
comment resoudre le probleme??

bonne soiree

 

[JNP]

Re : [VBA] boucle caption

Bonjour Steph23_1, Hasco ,
Essaye de modifier

Dim cpt As Byte

par

Dim cpt As Double

Bonne soirée

 

[Guest]

Re : [VBA] boucle caption

Bonjour Steph

Alors probablement qu'il faille changer la déclaration de cpt en

Dim cpt as Integer

A+

 

[steph23_1]

Re : [VBA] boucle caption

super ca marche

merci beaucoup.....