Discussion :

[MsKrDd]

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.

[mfoxy]

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 :

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

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

[Menhir]

Code :

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

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