Rectangles (shapes) à renommer
Bonjour à toutes et à tous,
J'ai fait une feuille Excel sur la mythologie grecque. Elle comporte 288 rectangles (shapes) affichant le nom des dieux ou héros et reliés par des traits (line).
Sur cette feuille, j'ai la liste (AG1:AG288) de tous les noms contenus dans les rectangles.
Je voudrais maintenant faire deux choses :
1) Que le nom de chaque rectangle soit le texte affiché dans le rectangle. J'ai fait cette procédure qui ne fonctionne pas !
For Each Cell In Range("AG1:AG288")
Selection.ShapeRange.Name = Cell.Value
Next
2) Je voudrais qu'en mettant le focus sur une cellule de la liste (AG1:AG288) le rectangle portant le même nom se colorie en rouge.
Là … je cale aussi !
Si un(e) spécialiste pouvait me mettre sur la piste, ça m'enlèverait une sacrée épine du pied !
Merci d'avance
Bonjour
Un fichier avec quelques shapes et un exemple de ce que tu veux obtenir
Banzai64, je ne vois pas comment insérer un fichier ! J'ai "Insérer une image" et "Insérer un lien" ... mais pas un fichier !
Comment faire ?
Ci-joint fichier exemple !
Merci Banzai64 ... ça marche du feu de Dieu !
Je vais bien étudier ton code pour me coucher moins bête