Création forme à partir de cellule sélectionner

Bonjour,

Je me permet de poser une question car je suis assez novice et j'aimerais avoir l'avis de personnes qui on plus de "bouteille" que moi sur la possibilité de ma demande :

En effet, je souhaite créer une macro qui me permet d'insérer des forme rectangulaire sur une feuille. Cependant je souhaite que les formes ainsi créés se positionnent a l'endroit de la cellule sélectionné. En effet, mes formes sont amenées à être créées le long de la feuille au gré du besoin.

Lorsque je crée une forme rectangulaire, j'utilise ce type d'argument : .AddShape ( type , Gauche , Haut , Largeur , Hauteur ). Du coup, il y a toujours des coordonnées de départ ou le rectangle sera créé.

Est ce possible du coup de trouver une solution qui permet de générer cette forme au fur et a mesure de mon avancée dans la feuille ?

Merci d'avance pour les futures contributions.

Bonsoir,

Peut-être en modifiant les coordonnées fix de votre addshape par Cel de la cellule sélectionné
Quelque chose du genre pour récupérer les coordonnées celule en cours et ajouter les variables dans votre fonction d ajout de forme

Code:

---

1 2 3 4 5 6 7 8 9

Dim cl as Range   Set cl = Range(Selection.Address) '<-- Range("C2")   clLeft = cl.Left clTop = cl.Top clHeight = cl.Height clWidth = cl.Width

---

Code:

---

ActiveSheet.Shapes.AddShape msoShapeRectangle, Selection.Left, Selection.Top, Selection.Width, Selection.Height

---