Discussion :

[djack7917]

bonjour, j'ai créé un userform sous excel avec plusieurs contrôle dont 1 avec une case à cocher.
J'aimerai savoir s'il est possible lorsque je valide mon userforme, que l'ensemble de la case à cocher soit insérer dans une celulle au hasard de facon que je puisse décocher certaine case sans ouvrir mon userform

exemple celulle c1 : nom - c2 : prénom : c3 : une case à cocher payé.
dans mon userform 1er ctrl : nom - 2eme ctrl : prénom : 3eme ctrl une case à cocher payé et un bouton valide

quand je coche la case (3ème contrôle) ca me mets dans la feuille excel, vrai ou faux, mais moi j'aimerai avoir une case cochée ou non.....
merci de votre aide
djack

[Theze]

Bonjour,

Je n'ai pas bien compris ce que tu veux mais voici une piste si tu veux intégrer une case à cocher dans une cellule, adapte à tes besoins :

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
24
25
 
Sub CaseACocher()
 
    Dim S As Shape
 
    'case à cocher en cellule C1 aux dimensions de la cellule
    With [C1]
 
        Set S = ActiveSheet.Shapes.AddFormControl(xlCheckBox, _
                                                  .Left, _
                                                  .Top, _
                                                  .Width, _
                                                  .Height)
 
    End With
 
    'paramètre la case à cocher (titre et cochée)
    With S
 
        .TextFrame.Characters.Text = "Nom de la case à cocher"
        .ControlFormat.Value = 1
 
    End With
 
End Sub

Tu peux appeler cette proc à la fermeture de ta Form pour ajouter la case à cocher ou sur l'évènement "Click" de celle qui se trouve sur ta Form.

Hervé.