Discussion :

[ESVBA]

Bonsoir,

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
    Dim Ctrl As OLEObjects 'Shape                 'OLEObjects
 
    '--- Identifie les boutons enfoncés
 
    For Each Ctrl In ActiveSheet.Shapes   
        Debug.Print Ctrl.Name                                                 'OK FONCTIONNE
        If UCase(Left(Ctrl.Name, 10)) = "TGBJOURSEM" Then
            Debug.Print "--" & Ctrl.Caption
            Debug.Print "--" & Ctrl.Value
            Debug.Print Ctrl.LinkedCell
           '...

j'ai à chaque fois

Propriété ou méthode non gérée par cet objet

Comment dois-je définir mon "CTRL" ?

Merci

ESVBA

[casefayere]

Bonsoir,
s'il s'agit de ActiveX

Code :

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

 Dim Ctrl As OLEObject'sans s

exemple

Code :

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

1
2
3
For Each Ctrl In ActiveSheet.OLEObjects
        MsgBox Ctrl.Object.Caption
Next

ton code

Code :

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

1
2
3
4
5
6
Dim Ctrl As OLEObject 'Shape                 'OLEObjects
For Each Ctrl In ActiveSheet.OLEObjects                                         'OK FONCTIONNE
  If UCase(Left(Ctrl.Object.Name, 10)) = "TGBJOURSEM" Then
      Debug.Print "--" & Ctrl.Object.Caption
      Debug.Print "--" & Ctrl.Object.Value
      Debug.Print Ctrl.Object.LinkedCell

[ESVBA]

Merci de ta réponse.

j'ai recopié dans le post un peu n'importe quoi après avoir testé n'importe quoi.



Donc il faut ajouter ".Object".
Mais "MsgBox Ctrl.Name" fonctionne, c'est la propriété par défaut donc VBA trouve le bon nom ?

J'ai la même erreur sur

If UCase(Left(Ctrl.Object.Name, 10)) = "TGBJOURSEM" Then

mais pas si je mets :

If UCase(Left(Ctrl.Name, 10)) = "TGBJOURSEM" Then

.

Quand dois-je ajouter ".Object ?"

ESVBA

[casefayere]

je n'ai pas vérifié pour le "Name" donc si ça fonctionne...
ma référence http://silkyroad.developpez.com/VBA/...lcul/#LII-A-14

[ESVBA]

Merci pour le lien.

Je ne ferme pas immédiatement le post au cas où j'aurais encore un problème du même genre avec les "OLEObjects".

Sinon un grand merci de votre participation.


ESVBA

[ESVBA]

Bonjour,

je reviens vers vous pour dire que j'ai obtenu ce que je voulais sans hélas comprendre réellement quand il faut ajouter ".object".

Question résolue.

Merci.


ESVBA