Dear all, I'm trying to find a way to add textbox to shape created by the code below
Sub créeShape(parent, niv, Attribut, coul)
hauteurshape = 48
largeurshape = 92
colonne = colonne + 1
forga.Shapes.AddShape(msoShapeRectangle, 10, 10, largeurshape, hauteurshape).Name = parent...