E
Eric D
Guest
Bonjour toutes et tous,
J'ai un pt Pb, Je n'arrive pas à effacer les bons Objets. J'ai des Objets créer d'origine sur ma feuille, et j'en ai d'autre qui sont créer après coup par le code suivant:
Set Obj = Sheets(A).OLEObjects.Add(ClassType:='Forms.TextBox.1', _
Link:=False, DisplayAsIcon:=False, Left:=369, Top:=12, Width:=342, Height:=20)
d'autre part j'ai cette ligne de code:
ActiveSheet.OLEObjects.Delete
mais elle me supprime les Objets d'origine, alors que je voudrais supprimer ceux créer après coup par le code et pas les autres.
Merci pour vos réponses.
Eric D
J'ai un pt Pb, Je n'arrive pas à effacer les bons Objets. J'ai des Objets créer d'origine sur ma feuille, et j'en ai d'autre qui sont créer après coup par le code suivant:
Set Obj = Sheets(A).OLEObjects.Add(ClassType:='Forms.TextBox.1', _
Link:=False, DisplayAsIcon:=False, Left:=369, Top:=12, Width:=342, Height:=20)
d'autre part j'ai cette ligne de code:
ActiveSheet.OLEObjects.Delete
mais elle me supprime les Objets d'origine, alors que je voudrais supprimer ceux créer après coup par le code et pas les autres.
Merci pour vos réponses.
Eric D