insertion objet

[jeffjeff]

bonjour tout le monde,
je souhaite inserer un shape (rectangle par exemple) mais un endroit precis.
l'insertion est à l'angle supérieur gauche de la cellule C2. sachant que la largeur des colonnes sont ajustables.
merci de votre aide

 

[kingfadhel]

Re,
Une option avec demande de la largeur et la hauteur (inputbox)

Sub addshapetocell()
dimensions = InputBox("Saisir la hauteur ; la largeur", "Séparateur point-virgule")
haut = Left(dimensions, InStr(1, dimensions, ";") - 1)
lrg = Right(dimensions, Len(dimensions) - 1 - Len(haut))
Set my_shape = ActiveSheet.Shapes.AddShape(msoShapeRectangle, ActiveCell.Left, ActiveCell.Top, haut, lrg)
End Sub

 

[Staple1600]

Re

@kingfadhel
La même en deux lignes

Sub addshapetocell_II()
d = InputBox("Saisir la hauteur ; la largeur", "Séparateur point-virgule")
Set my_shape = ActiveSheet.Shapes.AddShape(msoShapeRectangle, ActiveCell.Left, ActiveCell.Top, Split(d, ";")(1), Split(d, ";")(0))
End Sub

 

[jeffjeff]

encore merci pour vos astuces.
autre question sur ce sujet.
en validant sur une cellule, j'aimerai effacer l'objet située sur la ligne (colonne non connue) de la cellule active

 

[phlaurent55]

Bonjour à tous,

autre question sur ce sujet.
en validant sur une cellule, j'aimerai effacer l'objet située sur la ligne (colonne non connue) de la cellule active

voir fichier joint

à+
Philippe

 

[jeffjeff]

bonjour et un grand merci pour ton aide, c'est exactement ce que je voulais.
je vais essayer de dechiffrer ton code