Boucle Multi Caption Label/Tableau

Bonjour a tous,

J'ai une petite question pour optimiser mon code.
Actuellement j'ai une userform avec plusieurs labels dedans. Ces labels reprennent le caption d'une cellule de mon tableur.
Pour cela j'utilise le code suivant :

Code:

---

1 2 3 4 5 6 7 8 9

Private Sub OptionButton1_Click() Configuration.Label1.Caption = Worksheets("1").Range("A2").Value Configuration.Label2.Caption = Worksheets("1").Range("B2").Value Configuration.Label3.Caption = Worksheets("1").Range("C2").Value Configuration.Label4.Caption = Worksheets("1").Range("D2").Value   (EXT)......   End Sub

---

Ça marche mais par contre c'est pas du tout optimisé...

Y aurait-il possibilité de faire une boucle, pour ne pas avoir à faire ça chaque fois ?


Si vous avez une idée je suis preneur.

Merci d'avance et bonne journée

Bonjour,

Code:

---

1 2 3 4 5 6 7

Private Sub OptionButton1_Click() With Worksheets("1").Range("A2") For i = 0 To 3 Me.Controls("Label" & i + 1).Caption = .Offset(0, i).Value Next End With End Sub

---

Ok super merci ca marche pour mon exemple !
Cependant j'essaye de le mettre dans ma vraie application mais ca ne marche pas.
Je crois que c'est a cause des label. En effet les labels commencent a partir de 61 et se terminent a 79
j'ai essayé de changer le i mais ca ne marche pas...

Donc c'est 61+i

Super !!!!!
Merci beaucoup

Bonjour bonjour,

Bon j'ai de nouveau un petit soucis... Tout aller bien jusqu'à présent pourtant.

Le code que vous m'aviez transmis répondait parfaitement a ce que je voulais faire.

Cependant j'ai dupliqué ce code sur chaqu'une de mes multi pages de ma userform j'ai donc un code qui s'apparente à ca :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

Private Sub UserForm_Initialize()   Dim Cpt As Byte   For Cpt = 141 To 164 Me.Controls("Label" & Cpt).Visible = False Next Cpt   For Cpt = 61 To 79 Me.Controls("Label" & Cpt).Visible = False Next Cpt   For Cpt = 221 To 241 Me.Controls("Label" & Cpt).Visible = False Next Cpt   For Cpt = 331 To 351 Me.Controls("Label" & Cpt).Visible = False Next Cpt   End sub

---

Le problème c'est que dès que j'ajoute cette ligne la :

Code:

---

1 2 3 4

For Cpt = 331 To 351 Me.Controls("Label" & Cpt).Visible = False Next Cpt

---

La userform ne se lance plus et un message : error6 Overflow apparait....


Avez vous une solution pour pouvoir palier à ce problème ?

Bonne journee

Bonjour à tous,
La variable Cpt est déclarée en Byte, elle ne peut donc pas aller au-delà de 255

C'est très malheureux ca...

Il n'a pas moyen de pouvoir changer cela ?

Bonjour,

si consulter enfin l'aide VBA interne quant aux types de variable à disposition afin de déclarer logiquement la variable !
Sans compter les tutoriels de ce forum …

___________________________________________________________________________________________________________

Je suis Paris, Egypte, Nigeria, New-York, Mogadicio, Barcelone, London, Manchester, Stockholm, Istanbul, Berlin, Nice, Bruxelles, Charlie, …