Discussion :

[Timfg]

Bonjour,

J'ai fait le tour des Cours & Tutoriels (qui m'ont déjà bien servi), et de google aussi, et je n'arrive pas à trouver la réponse à ma question. :

Je m'explique.

Le but de mon travail est de remplir un document excel existant grâce à un formulaire lié à ce document (quand on ouvre ce document, un formulaire s'ouvre et prend la main)
Dans ce formulaire se trouve des TextBox, qui remplissent des zones de texte dans le document excel (ca ca marche nickel grâce à vos tutos ), et j'ai aussi des checkbox qui servent à régler les checkbox du document excel (c'est là que ca marche pas). J'arrive pas à faire le lien entre les checkbox de mon formulaire et les checkbox de mon document.

Exemple:
Dans mon formulaire: []Demande de création [] Demande de modification
([]=> ca represente les checkbox)

Dans mon document excel: []Demande de création [] Demande de modification

J'aimerai pouvoir cocher une checkbox dans mon formulaire et que ca coche la checkbox correspondante dans le document excel.

J'espere avoir réussi à être clair.

Merci pour votre aide

Timfg - Débutant powered

[bidou]

Tout dépend si ta case à cocher vient de la barre formulaire (Shapes) ou commande (OLEObjects). Il faut de toute façon utiliser le nom de la case à cocher.

Je te met les deux syntaxes

Code :

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

1
2
3
4
5
6
7
8
9
10
    Dim MaFeuille As Worksheet
 
    Set MaFeuille = ThisWorkbook.Worksheets("Feuil1")
    If Me.CheckBox1.Value Then
        MaFeuille.OLEObjects("chkOLE").Object.Value = 1
        MaFeuille.Shapes("chkShape").ControlFormat.Value = 1
    Else
        MaFeuille.OLEObjects("chkOLE").Object.Value = 0
        MaFeuille.Shapes("chkShape").ControlFormat.Value = 0
    End If

[Timfg]

Merci bien.

Je teste et te tiens au courant

[Catbull]

Bidou, pourquoi ne pas directement écrire :

Code :

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

1
2
MaFeuille.OLEObjects("chkOLE").Object.Value = Me.CheckBox1.Value
MaFeuille.Shapes("chkShape").ControlFormat.Value = Me.CheckBox1.Value

Y-aurait-il une différence entre les codes value de la forme et de la feuille Excel?

[bidou]

non tu as raison, c'est mieux de l'écrire directement

[Timfg]

Merci à vous c'est résolu. j'ai un autre problème maintenant, mais ca fera l'objet d'un nouveau post.
Encore merci