Discussion :

[seblafrite78]

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 :

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

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

[Invité]

Bonjour,

Code :

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

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

[seblafrite78]

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...

[Invité]

Donc c'est 61+i

[seblafrite78]

Super !!!!!
Merci beaucoup

[seblafrite78]

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 :

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

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 :

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

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

[HopPopPop]

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

[seblafrite78]

C'est très malheureux ca...

Il n'a pas moyen de pouvoir changer cela ?