OLEObject

skoobi

XLDnaute Barbatruc

• 5 Septembre 2008

• #2

Re : OLEObject

Bonjour,

l'objet "OLEObject" est réservé pour les boutons de la "boîte à outils contrôles".
Tu parles sûrement d'un bouton "formulaire":

Code:

Sub CommandButton2_Click()
    If ActiveSheet.Shapes("Case d'option 1").ControlFormat.Value = xlOn Then
        MsgBox "Case d'option cochée"
    End If
End Sub

 

Vote positif 0 Vote négatif

A

apt

XLDnaute Impliqué

• 5 Septembre 2008

• #3

Re : OLEObject

Bonjour skoobi,

en voulant appliquer la solution à mon travail avec cette ligne :

Code:

If ActiveSheet.Shapes("Case d'option 63").ControlFormat.Value = xlOn Then

J'ai eu cette erreur :

L'élément portant ce nom est introuvable.

Cliquez pour agrandir...

Pourtant sur la feuille, il y'a bien une "Case d'option 63". 😕

 

Vote positif 0 Vote négatif

skoobi

XLDnaute Barbatruc

• 5 Septembre 2008

• #4

Re : OLEObject

Re,

Tu trouveras le nom exact de la case dans la "zone nom" qui se trouve à coté de la barre de formule.

Bon après-midi.

 

Vote positif 0 Vote négatif

A

apt

XLDnaute Impliqué

• 5 Septembre 2008

• #5

Re : OLEObject

Salut skoobi,

Oui c'est bien "Case d'option 63", mais vba continue à ne pas la reconnaître ... !! 😡

 

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 5 Septembre 2008

• #6

Re : OLEObject

Bonjour à tous,

chez moi ça fonctionne trés bien.. un petit bout de fichier, c'est possible ?

 

Vote positif 0 Vote négatif

A

apt

XLDnaute Impliqué

• 5 Septembre 2008

• #7

Re : OLEObject

Bonjour tototiti,

J'ai même ajouté une autre case "Case d'option 67", mais même erreur de signaler !

Si je cré un nouveau fichier et teste, ça marche !!!

Pourquoi, je ne sais pas ?

Quand je boucle pour avoir tous ce qui est sur la feuille, "Case d'option 63" figure parmis les objets de la feuille.

????

 

Dernière édition: 5 Septembre 2008

Vote positif 0 Vote négatif

skoobi

XLDnaute Barbatruc

• 5 Septembre 2008

• #8

Re : OLEObject

Re,
Tu n'as pas confirmé ma supposition:

Tu parles sûrement d'un bouton "formulaire":

Cliquez pour agrandir...

Si c'est oui, comme le fait remarqué tototiti (que je salue 🙂, on y verrait plus clair avec le fichier sous les yeux.

 

Vote positif 0 Vote négatif

A

apt

XLDnaute Impliqué

• 5 Septembre 2008

• #9

Re : OLEObject

Bonsoir skoobi,

Oui, la case d'option est issue de la barre d'outils formulaire.

Pour le bout de code que j'ai préparé, la "Case d'option 63" est reconnue et l'essai est bon !!!!

Y'a-t-il une interférence quelque part dans le code ?

Merci.

 

Vote positif 0 Vote négatif

skoobi

XLDnaute Barbatruc

• 5 Septembre 2008

• #10

Re : OLEObject

Re,

Edit: merci de mettre le fichier ici pour tout le monde 😉

 

Dernière édition: 5 Septembre 2008

Vote positif 0 Vote négatif

A

apt

XLDnaute Impliqué

• 5 Septembre 2008

• #11

Re : OLEObject

Re,

Merci de me le rappeler, mais son auteur ma demandé de ne pas le faire circuler hors son site.

 

Vote positif 0 Vote négatif

skoobi

XLDnaute Barbatruc

• 5 Septembre 2008

• #12

Re : OLEObject

Re,

Y'a-t-il une interférence quelque part dans le code ?

Cliquez pour agrandir...

Je ne comprend pas ce que tu veux. Quelle interférence? De quoi parles-tu? 😕

 

Vote positif 0 Vote négatif

A

apt

XLDnaute Impliqué

• 5 Septembre 2008

• #13

Re : OLEObject

Re,

Je me pose des questions seulement.

Pourquoi quand j'enleve presque tout le code et ne laisser que la ligne correspondante, ça marche.

 

Vote positif 0 Vote négatif

skoobi

XLDnaute Barbatruc

• 5 Septembre 2008

• #14

Re : OLEObject

Je te conseille d'exécuter la macro en pas à pas, ça aide à comprendre car parfois entre ce que l'on veut faire et le résultat.....

 

Vote positif 0 Vote négatif

A

apt

XLDnaute Impliqué

• 5 Septembre 2008

• #15

Re : OLEObject

Re,

J'ai éxécuté le pas à pas.

Sur la ligne :

Code:

If ActiveSheet.Shapes("Case d'option 63").ControlFormat.Value = xlOn Then

J'ai eu l'erreur suivante :

Erreur d'éxécution '5':
Argument ou appel de procédure incorrect

Cliquez pour agrandir...

 

Vote positif 0 Vote négatif