Changer caption checkbox

Version imprimable

03/12/2007, 10h45
JPDU92

Changer caption checkbox

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
03/12/2007, 11h01
Singular
Dans l'évenement Click de ton bouton, tu écris:
Code:

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:

Citation:

Edit
Grillé par Singular :(

Cooooooooool!!!!!!!!!!!!! :yaisse2:
03/12/2007, 11h01
ouskel'n'or

Dans le clic du bouton

Code:

Me.checkbox36.caption = "NouveauCaption"

Si tu as un soucis, tu dis
A+

Edit
Grillé par Singular :(
03/12/2007, 11h08
JPDU92

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é...
03/12/2007, 11h18
ouskel'n'or

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
03/12/2007, 11h30
JPDU92

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

Regardes ça...

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

03/12/2007, 11h36
JPDU92

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

Alors ça ne change rien

Code:

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

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

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:

LaVar = Me.activecontrol.name

Tu places ça dans chaque Click de tes checkbox et
à la place de cette ligne,

Citation:

If InStr(Controle.Name, "CheckBox") <> 0 Then

tu mets

Code:

If Controle.Name LaVar Then

Tu dis
A+
03/12/2007, 12h01
JPDU92

Merci ouskel'n'or, en fait tu es en or, c'est ça ? En tout cas tes conseils, ça marche trop bien, tu es trop fort ! Merci beaucoup
03/12/2007, 12h06
ouskel'n'or

Citation:

Envoyé par JPDU92

Merci ouskel'n'or, en fait tu es en or, c'est ça ? En tout cas tes conseils, ça marche trop bien, tu es trop fort ! Merci beaucoup

Attends, avant de dire ça, je dois te dire que je n'ai pas compris ton pb. J'ai supposé, dans mon dernier post, que tu avais plusieurs checkbox et que tu voulais, en fonction du dernier check validé, affecter le contenu du txtbox au caption de ce check
C'est pas ça ?
Explique-nous tout :mouarf:
A+