Lier un checkbox avec une case a cocher

Bonjour

quel est la formule a utiliser pour lier un checkbox avec une case a cocher???

c'est a dire

If CheckBox1.Value = True Then.......???

merci d'avance

j'ai pas compris

capture

bonjour

merci pour l'explication, mais...

dans un USERFORM il y a "CheckBox"

si on utilise sur une feuille EXCEL dans l'onglet "DEVELOPPEUR" dans la partie "INCERTION" -->contrôles de formulaires il y a "case a cocher"

voici ma question

je voudrais que quand je coche le chckbox dans le userform

If CheckBox1.Value = True

la case a cocher sera coché (la case a cocher se nome "case a cocher")

merci d'avance

Bonjour

je vous joint un fichier ou a travers "BOUTON" j'ouvre un USERFORM ou il y a un CHECKBOX!!

j'aimerais que quand je coche déçu, la case a chose de feuille 1 se coche

je vous remercie d'avance

cordialement

200test.xlsm (17.59 Ko)

Bonsoir,

peu-être en utilisant l'événement clic de la case à cocher sur ton userform :

Private Sub CheckBox1_Click()
 Feuil1.Shapes("Case à cocher 1").OLEFormat.Object.Value = CheckBox1.Value
End Sub

?? la mise en forme du forum bugge avec des balises de codes :

Private Sub CheckBox1_Click()

Feuil1.Shapes("Case à cocher 1").OLEFormat.Object.Value = CheckBox1.Value

End Sub

Bonjour,

Attention, si s'appelle Case à cocher, il s'agit d'un contrôle de formulaire et non d'un ActiveX (Shape et pas pas OLEObject). A voir.

Par contre répondra aussi bien (sinon mieux) au nom de Check Box 1.

bonjour

merci PIERRE JY

merci MFERRAND

j'ai trouvé ceci qui fonctionne bien

Private Sub ComboBox1_Change()
Dim X As Long
With Me.ComboBox1
    If .ListIndex <> -1 Then
        X = Application.Match(.Value, Range(.RowSource), 0)
        Me.TextBox1 = Range(.RowSource)(X, 1)  ' le 1 verie suivant la colonne voulu 
    Else
        MsgBox "Choisir d'abord un item dans la liste déroulante."
    End If
End With
End With
End Sub

donc je met ce post comme resolu

merci encore une fois


désolé

car jetait sur 2 problématique

donc je n'ai toujours pas troué de solution a ce post

encore une fois pardon


re

ta solution PIERRE JY fonctionne

Private Sub CheckBox1_Click()
 Feuil1.Shapes("Case à cocher 1").OLEFormat.Object.Value = CheckBox1.Value
End Sub

merciiiiiiiiiiiiiiiiiiiiiiiiiiiiiii

Rechercher des sujets similaires à "lier checkbox case cocher"