Discussion :

[stefan.l]

Bonjour à toutes et à tous,

j'ai créé des objets shapes que j'ai nommés dans une diapositive. Mes shapes dépendent de zones que j'ai attribuées.
Ils ont donc des noms de base du style [Zone]_[nom_du_shape]

Je souhaiterais parcourir certains shape appartenenant à une zone donnée afin de modifier éventuellement des attributs par VBA.

Je ne trouve pas le moyen de parcourir ces shapes en discrétisant ce que je recherche pour modification.

Pourriez me guider sur ce sujet ?

merci de votre aide.

Bonne journée

[stefan.l]

Je pensais faire ceci :


for each forme in pptSlide.Shapes
if forme.Name like "[Zone]_" then forme.monAction
next forme

[Gado2600]

Bonjour,
Ce que tu as commencé est pas mal pour lister :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Dim pptShape as shape
Dim pptSlide as slide
 
set pptSlide = activepresentation.activeslide
 
for each pptShape in pptSlide.Shapes
if pptShape.Name Like "[Zone]_*" then
...
end if
 
next pptShape

Qu'est-ce qui ne va pas dans ce que tu avais fait ?
Cordialement,

[stefan.l]

merci Gado pour votre aide. En fait j'avais oublié l'étoile ! :-)

Par contre je cherche à récupérer les shapes qui ont un nom de base style ZONE_ALPHA_nomObjet mais pour récupérer seulement nomObjet et pas le shape.name complet. Et là suis un peu coincé !

[Gado2600]

Bonjour,
Tu as la possibilité de te baser sur le second "_" de tes noms et de faire un Right(nom_du_shape, nb_caractères_a_partir_de_la_fin)
En regardant sur ce tutoriel, tu trouveras ton bonheur :
http://silkyroad.developpez.com/VBA/...nesCaracteres/

Avec InStr, nb_caractères_a_partir_de_la_fin donnerait :
nb_caractères_a_partir_de_la_fin = InStr(6, nom_du_shape, "_")
J'ai pris 6 comme valeur de départ pour être sur de commencer à partir de ZONE_A (ce qui met de côté le premier _)

Bref, lis ce tutoriel, il t'expliquera mieux que moi

[stefan.l]

merci Gado pour ces explications.

[Gado2600]

Pas de soucis
N'oublie pas de mettre Résolu si tu estimes que c'est ok.

[stefan.l]

je ne sais pas où il faut mentionner que le post est résolu du coup je l'ai mis dans l'intitulé.