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
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
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