Coller une forme dans une cellule

gerard55 · 6 Décembre 2014

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 · 6 Décembre 2014

Re : Coller une forme dans une cellule

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

mapomme · 6 Décembre 2014

Re : Coller une forme dans une cellule

Bonjour gerard55,

Pour le fun. Le code est dans module1.

edit : bonjour jpb388

gerard55 · 6 Décembre 2014

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 · 6 Décembre 2014

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 · 6 Décembre 2014

Re : Coller une forme dans une cellule

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

jpb388 · 6 Décembre 2014

Re : Coller une forme dans une cellule

re
Bonjour mapomme
regarde si cela te va
a+
jp

gerard55 · 7 Décembre 2014

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

Coller une forme dans une cellule

gerard55

XLDnaute Occasionnel

jpb388

XLDnaute Accro

mapomme

XLDnaute Barbatruc

Pièces jointes

gerard55

XLDnaute Occasionnel

Pièces jointes

mapomme

XLDnaute Barbatruc

gerard55

XLDnaute Occasionnel

Pièces jointes

jpb388

XLDnaute Accro

Pièces jointes

gerard55

XLDnaute Occasionnel

Discussions similaires