Coller une forme dans une cellule

[gerard55]

Bonjour à tous
j'ai un problème pour coller une forme dans une cellule. En théorie c'est simple, le code ci-dessous fonctionne. Il permet de coller un triangle jaune dans les cellules prévues mais, le triangle est centré dans la cellule alors que je voudrais un qu'il soit en bas de la cellule (horizontal)

ActiveSheet.Shapes.Range(Array("AutoShape 152")).Select
Selection.Copy
Sheets("planning").Select
ActiveSheet.Paste Cells(ligPolySt, 3) 'Lundi
ActiveSheet.Paste Cells(ligPolySt, 4) 'Mardi
ActiveSheet.Paste Cells(ligPolySt, 5) 'mercredi
ActiveSheet.Paste Cells(ligPolySt, 7) 'vendredi
Merci d'avance pour vos conseil
a+ Gérard

 

[jpb388]

Re : Coller une forme dans une cellule

Bonjour à tous
exp:
ActiveSheet.Shapes.Range(Array("AutoShape 152")).top=Cells(ligPolySt, 3).top

 

[mapomme]

Re : Coller une forme dans une cellule

Bonjour gerard55,

Pour le fun. Le code est dans module1.

edit : bonjour jpb388

 

[gerard55]

Re : Coller une forme dans une cellule

Merci pour vos réponse
Mais, je n'arrive pas à les adaptés. j'ai essayé sur une feuille excel mais rien ne se passe.
Il y a sans doute quelques choses qui m'échappent
Quant à la réponse de jpb388, je ne comprend pas où est le modèle recopier.
Merci de me donner quelques conseils
A +
Gérard

 

[mapomme]

Re : Coller une forme dans une cellule

Bonsoir gerard55,

A moins d'avoir déjà trop abusé à l'apéro de ce samedi soir, j'ai l'impression que votre fichier (message #4) est vide !

 

[gerard55]

Re : Coller une forme dans une cellule

Non pas d'abus d'apéro
Cette fois c'est bon

 

[jpb388]

Re : Coller une forme dans une cellule

re
Bonjour mapomme
regarde si cela te va
a+
jp

 

[gerard55]

Re : Coller une forme dans une cellule

Merci pour cette proposition très complète. Avec ça,je dois m'en sortir
A + Gérard