Changer caption checkbox

**JPDU92** · 03/12/2007, 10h45

Bonjour, j'ai un souci, je ne sais pas comment m'y prendre pour créer un bouton dans un userform qui me changerait un checkbox sélectionnée. c'est à dire, je remplis manuellement un textbox dans mon userform, je clique sur checkbox36 (par exemple) et je clique sur un autre bouton qui change le caption de ma checkbox36 par rapport au textbox préalablement rempli. Qui me m'aider ??? Merci

**Singular** · 03/12/2007, 11h01

Dans l'évenement Click de ton bouton, tu écris:

Code :

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

1
2
3
4
5
 
' Remplaces TextBox1 par le nom de ton TextBox
If Not TextBox1.Value = vbNullString Then
    checkbox36.Caption = TextBox1.Value
End If

Voir message de ouskel'n'or ci-bas:

Edit
Grillé par Singular

Cooooooooool!!!!!!!!!!!!!

**ouskel'n'or** · 03/12/2007, 11h01

Dans le clic du bouton

Code :

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

Me.checkbox36.caption = "NouveauCaption"

Si tu as un soucis, tu dis
A+

Edit
Grillé par Singular

**JPDU92** · 03/12/2007, 11h08

Merci pour ces réponses mais en fait j'ai plus de 50 checkbox et je voudrais que cette formule change n'importe laquelle de ces checkbox (sachant qu'il faudrait la cocher pour qu'elle puisse changer). Je cherche de mon coté...

**ouskel'n'or** · 03/12/2007, 11h18

La question à cent sous : Comment détermines-tu le check à modifier ? Une liaison entre le txtbox et le check (un N° identique ?)
Si check et txtbox ont le même N°, tu peux automatiser ça.
Tu dis

**JPDU92** · 03/12/2007, 11h30

Ben en fait je détermine les checkbox à changer en cliquant dessus quand l'userform est lancé. Merci pour ces réponses rapide

**Singular** · 03/12/2007, 11h33

Regardes ça...

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 CommandButton1_Click()
    Dim ctl As Control
    Dim sCheckBox As String
    Dim sTextBox As String
    Dim sNum As String
    Dim sTxtName As String
 
    sCheckBox = "CheckBox"  ' Les noms des Checkbox doivent commencer par ce string suivi de chiffres
    sTextBox = "TextBox"    ' Les noms des Textbox doivent commencer par ce string suivi de chiffres correspondants
                            '   à ceux du checkbox associé
 
    For Each ctl In Me.Controls
        If Left(ctl.Name, Len(sCheckBox)) = sCheckBox Then
            If ctl.Value = -1 Or IsNull(ctl.Value) Then
                sNum = Right(ctl.Name, Len(ctl.Name) - Len(sCheckBox))
                sTxtName = sTextBox & sNum
                If Not Me.Controls(sTxtName).Value = vbNullString Then
                    ctl.Caption = Me.Controls(sTxtName).Value
                End If
            End If
        End If
    Next ctl
End Sub

**JPDU92** · 03/12/2007, 11h36

Je sais pas si je me suis mal exprimé mais en fait il n'y a qu'un textbox et plusieurs checkbox...

**ouskel'n'or** · 03/12/2007, 11h49

Alors ça ne change rien

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub CommandButton1_click()
    For Each Controle In Me.Controls
        If TypeOf Controle Is Msforms.CheckBox Then
            If InStr(Controle.Name, "CheckBox") <> 0 Then
                If Controle Then
                    Controle.Caption = Me.Controls("TextBox1").Text
                End If
            End If
        End If
    Next
End Sub

**ouskel'n'or** · 03/12/2007, 12h00

Edit

Tu as une solution pour connaître le dernier contrôle activé, déclarer une variable globale en tête de l'userform, variable à laquelle tu affectes le nom du contrôle actif. Ainsi, en modifiant légèrement le code qu'on t'a passé, tu peux savoir quel checkbox est concerné.
Pour affecter le nom du contrôle actif, c'est

Code :

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