OLEObject

[apt]

Bonjour à tous,

Pourqui cette procédure abouti à cette erreur :

impossible de lire la propriété OLEObject de la classe Worksheet.

Private Sub CommandButton2_Click()
    If ActiveSheet.OLEObjects("Case d'option 1").Object.Value = True Then
        MsgBox "Case d'option"
    End If
End Sub

😕

Merci.

 

[skoobi]

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":

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

 

[apt]

Re : OLEObject

Bonjour skoobi,

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

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

J'ai eu cette erreur :

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

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

 

[skoobi]

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.

 

[apt]

Re : OLEObject

Salut skoobi,

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

 

[tototiti2008]

Re : OLEObject

Bonjour à tous,

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

 

[apt]

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.

????

 

[skoobi]

Re : OLEObject

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

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

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

 

[apt]

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.

 

[skoobi]

Re : OLEObject

Re,

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

 

[apt]

Re : OLEObject

Re,

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

 

[skoobi]

Re : OLEObject

Re,

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

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

 

[apt]

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.

 

[skoobi]

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.....

 

[apt]

Re : OLEObject

Re,

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

Sur la ligne :

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