Discussion :

[francoisem]

Bonjour à tous,

Je tiens tout d'abord à vous remercier pour ce magnifique forum. J'y ai trouvé 100% de réponses à mes problèmes (notamment grâce à l'énorme FAQ).
J'ai débuté sous Access il y a quelques mois, et je me sens plutôt familier avec le VBA. Je débute seulement sur Excel, et j'ai donc un peu de mal avec les propriétés propres à celui-ci.

Mon problème est le suivant :

J'ai récupéré des milliers de très vieux documents Excel dans lesquels je souhaiterai extraire quelques infos (notamment des checkbox).
J'ai trouvé beaucoup de solutions pour boucler sur les objets, conditionner sur leurs types ect... J'ai besoin ici de récupérer la VALEUR de ces checkbox ainsi que le TEXTE DE REMPLACEMENT.

Cependant pendant mes tests j'ai relevé plusieurs types de CheckBox, et je dois donc me balader dans la collection d'OLEobjects, et de Shapes.
Pour les Shapes, je n'ai eu aucun soucis :

Code :

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

1
2
ActiveSheet.Shapes(#Nomducontrôle).OLEFormat.Object.Value
ActiveSheet.Shapes(#Nomducontrôle).OLEFormat.Object.Text

Cependant pour les OLEobjects j'arrive à extraire la valeur mais pas le texte de remplacement :

Code :

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

ActiveSheet.OLEObjects(#Nomducontrôle).Object.Value

J'ai trouvé une propriété AlternativeText mais qui ne me renvoie rien, j'ai pourtant bien un texte de remplacement (alt text), dans la propriété "Format controls" de mon contrôle.
J'espère ne pas faire face ici à une bête incompréhension de propriétés, car j'ai déjà résolu des problèmes bien plus importants grâce au FAQ (j'espère également que mon problème ne se situe pas dans celui-ci, si contraire, veuillez m'en excuser).

Je vous remercie d'avance et vous souhaite une agréable journée,
François.

[Daniel.C]

Bonjour,

Contrôle de formulaire ou contrôle ActiveX, la valeur du texte de remplacement est :

Code :

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

Var = ActiveSheet.Shapes(1).AlternativeText

[francoisem]

Bonjour,

Tout d'abord merci pour vos réponses.

Je me sens terriblement bête et désolé. Les OLEobject que j'avais pu pointer par mon code était en fait des checkbox cachées derrière mon formulaire qui n'avait pas d'alternative text.
La propriété de Daniel est donc juste pour tous les Shapes peu importe leur type, et ça je ne le savais pas je te remercie donc.

J'aurai tout de même apprit quelque chose, bonne journée et encore merci!

(Je garde ton TypeOf en tête, il me sera très probablement utile par la suite !)

François

[Daniel.C]

Je me sens terriblement bête et désolé.

Bof, c'est depuis que j'ai commencé à programmer, c'était il y a 40 ans , que je me sens terriblement bête et désolé ! On apprend à vivre avec.

[Nako_lito]

salut,

Tu pourrais faire une boucle sur tous les contrôles de ton documents et si c'est un textbox, tu extrais sa valeur.

Tu a la méthode TypeOf en VBA qui te permets de tester le type d'objet.