[VBA-E] Question à propos des checkbox

Version imprimable

25/04/2005, 17h51
Timfg

[VBA-E] Question à propos des checkbox

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 :D), 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 :D

Timfg - Débutant powered :wink:

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:

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

26/04/2005, 11h19
Timfg

Merci bien.

Je teste et te tiens au courant :D
26/04/2005, 12h15
Catbull
Bidou, pourquoi ne pas directement écrire :
Code:

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?
26/04/2005, 13h27
bidou

non tu as raison, c'est mieux de l'écrire directement
26/04/2005, 15h09
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 :chin:
:lahola: