Discussion :

[rom1deh]

Bonjour à tous,

Je voulais savoir si c'était possible de cocher une case à cocher depuis une autre case.

je m'explique sur une userform j'ai une une case à cocher et j'aimerais que celle-ci coche la case sur ma feuille excel en G27.

G27 je l'ai lié à la cellule je sais pas si c'est le bon choix.

Par contre j'ai un peu de mal avec les case à cocher ou les checkbox pour moi c'est la même chose ??

[Theze]

Bonjour,

Si ta case à cocher (CheckBox) sur ta feuille est un contrôle Formulaire :

Code :

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

1
2
3
4
5
6
 
Private Sub CheckBox1_Click()
 
    ActiveSheet.Shapes("Case à cocher 1").ControlFormat.Value = CheckBox1.Value
 
End Sub

si c'est un contrôle ActiveX :

Code :

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

1
2
3
4
5
6
 
Private Sub CheckBox1_Click()
 
    ActiveSheet.OLEObjects("CheckBox1").Object.Value = CheckBox1.Value
 
End Sub

Adapter les noms des contrôles bien sûr ! Ici par défaut "Case à cocher 1" pour le contrôle Formulaire & "CheckBox1" pour le contrôle ActiveX dans la feuille et sur la Form

[rom1deh]

Bonjour,

Merci de votre réponse.

Mais je me suis débrouiller autrement.

Je me suis servit de la Vrai faux que me renvois ma checkbox pour incrémenter ma base de donnée.

Code :

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

1
2
3
4
5
6
7
Private Sub CheckBox1_Click()
    If CheckBox1.Value = True Then
        Sheets("fiche d'intervention").Range("G27") = "VRAI"
    Else
        Sheets("fiche d'intervention").Range("G27") = "FAUX"
    End If
End Sub

Code :

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

1
2
3
4
5
6
7
8
If CheckingField = True Then Exit Function
            'Importation des données sur la fiche d'intervention
            Worksheets("fiche d'intervention").Range("D10").Value = .LblUserProfil
            Worksheets("fiche d'intervention").Range("K13").Value = .LblDate
            Worksheets("fiche d'intervention").Range("I10").Value = .Systeme.Text
            Worksheets("fiche d'intervention").Range("M10").Value = .Compteur_machine.Text
            Worksheets("fiche d'intervention").Range("C19:N24").Value = .Description_du_dysfonctionnement.Text
            Worksheets("fiche d'intervention").Range("G27").Value = .CheckBox1

Donc voila

Merci à vous

[Philippe Tulliez]

Bonjour,
VRAI et FAUX (True et False) sont des valeurs booléennes et pas une chaîne de caractères donc tu aurais dû écrire ceci

Code :

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

1
2
3
4
5
6
7
Private Sub CheckBox1_Click()
    If CheckBox1.Value = True Then
        Sheets(1).Range("G27") = True
    Else
        Sheets(1).Range("G27") = False
    End If
End Sub

Mais comme la valeur du CheckBox et la valeur à placer dans la cellule sont des booléens, il est parfaitement inutile de donner une valeur par un test logique.
Cette ligne suffit amplement

Code :

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

1
2
3
Private Sub CheckBox1_Click()
 Sheets(1).Range("G27").Value = CheckBox1.Value
End Sub

[rom1deh]

Merci j'ai apporté les modifications