Discussion :

[rampage92]

Bonjour J'ai fait le code suivant :

Code :

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

1
2
3
4
5
6
7
8
9
Valeur_CheckBox = "Me.CheckBox" & i & ""
Valeur_Label = "Label" & i + 9 & ".caption"
    Select Case Valeur_CheckBox
          Case Is = True
                mneumonic = Valeur_Label
           Case Else
    End Select
 
Next i

Et la Variable Valeur_Checkbox et Valeur_Label prennent pas la valeur de la Checkbox mais une chaine de caractère pas Exemple Checkbox1 ...

Pouvez vous m'éclairer ?

[riaolle]

Bonjour,
Ici : http://silkyroad.developpez.com/VBA/...UserForm/#LI-B tu trouveras plus de précisions sur la façon dont tu peux manipuler tes controles grâce à leurs noms. Notamment avec l'exemple suivant :

Code :

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

1
2
3
4
5
6
Private Sub CommandButton1_Click()
    Dim i As Integer
    For i = 1 To 10
        Cells(i, 1) = Me.Controls("TextBox" & i)
    Next i
End Sub

Tu remarqueras qu'on utilise le mot Controls.