Trouver la liste des Shapes d'un fichier

[Pierre]

Bonjour à tous,

J'ai été un peu surpris en revenant sur le site, j'ai pensé mettre trompé d'adresse.
Aprés avoir parcouru les nouvelles 'installations' je dois vous dire bravo pour cette initiative.
Ma question concerne les Shapes, je n'arrive pas à savoir comment je peux connaître les numéros des Shapes contenus dans mon fichier Excel.
Quelqu'un peut-il m'apporter une réponse ?

Merci d'avance et surtout longue vie à ce Forum qui ma beaucoup apporté.

Bon aprés-midi

 

[Hervé]

bonjour

une proposition qui te donne le nom des shapes présentes dans ton fichier, à placer dans un module standard :

Public Sub vev()
Dim forme As Object, ws As Object

For Each ws In Worksheets
    For Each forme In ws.Shapes
        MsgBox 'la forme : ' & forme.Name & ' est présente en feuille ' & ws.Name
    Next forme
Next ws
End Sub

je renvoi les info via une msgbox, a toi d'adapter ou à me faire signe, si ca ne te vas pas.

Salut
Hervé

 

[MichelXld]

bonsoir Pierre , bonsoir Hervé

Hervé j'esepre que tu ne m'en voudra pas d'intervenir sur ce fil
ta procedure fonctionne tres bien , mais il est aussi possible de déclarer les variables comme ci dessous

...
Dim forme As Shape
Dim Ws As Worksheet
...


tres bonne soiree
MichelXld

 

[Hervé]

Salut Michel

Pourquoi voudrais-tu que je t'en veuille, lol ?

Merci pour ce complément d'info, il faut que je perde l'habitude de tous déclarer en object.

Par contre je n'ai pas trouvé dans l'aide d'excel, d'informations concernant leur taille ????

Au faite, pierre, tu nous as pas dit si ca t'allait ?

Salut
Hervé

 

[Michelxld]

bonjour Hervé

pour la taille je ne saurai te répondre .

par contre c'est interessant et pratique pour visualiser les propriétés et méthodes des différents objets ( aide semi automatique lors de la saisie )

dans ce domaine j'ai eu la chance d'avoir un super prof pour apprendre à déclarer des variables... merci @+Thierry


bon apres midi
MichelXld

 

[Pierre]

Bonjour Hervé et Michel,

Excusez moi de ma réponse tardive, je viens de reprendre mon problème il y a quelques instants, aprés avoir essayé la solution de Hervé je dois dire bravo et merci, çà marche impeccable.

Bon aprés midi à vous deux

 

[Otello]

Récupérer le Nom d'une Case à Cocher

Bonjour à tous,

Je viens de m'inscrire... mais j'apprécie déjà l'ambiance qui se dégage !
Je souhaiterais soumette un problème VBA ?

J'ai inséré une case à cocher par la barre 'Formulaire'
Je désire récupérer son nom.
J'y parviens par la ligne de commande :
Nom = Selection.ShapeRange.Name
mais seulement à condition de sélectionner manuellement cette case.
Si je veux le faire par la macro :
Sub Caseàcocher_QuandClic()
Excel ne considère pas la case comme étant sélectionnée...

Pourquoi je veux récupérer ce nom ?
Parce que j'ai plus de 300 cases à cocher et que je veux avoir une seule macro qui pourra tourner avec les différentes cellules liées en jouant avec les numéros des cases à cocher (dans le style Case1, Case2 etc.)

Merci encore de m'apporter votre aide.
Salutations chaleureuses !