Code indigeste ?

Bonjour à tous.

J'aimerais bien votre avis sur le code suivant écrit dans un CommandButton sur une feuille excel.

Dim oOLE As OLEObject

Set oOLE = ActiveWorkbook.ActiveSheet.OLEObjects.Add(ClassType:="Forms.Label.1", _

Link:=False, DisplayAsIcon:=False, Left:=10, Top:=50, Width:=200, Height:=30)

oOLE.Name = "Temporaire" 'Rem Ici je donne un nom au label que je viens de créer tout se passe bien.

Temporaire.Caption = "Ce bouton" 'Rem ici je veux changer la propriété caption et là VBA m'indique ne pas connaitre le label.

En revanche si je supprime seulement la ligne de code soulignée en gras que je la place dans un second CommandButton ça fonctionne !

Si vous avez un avis, merci de votre retour.

Amicalement, Marckaos.

Bonjour

A essayer

Sub test()
Dim oOLE As OLEObject

  Set oOLE = ActiveWorkbook.ActiveSheet.OLEObjects.Add(ClassType:="Forms.Label.1", Link:=False, DisplayAsIcon:=False, Left:=10, Top:=50, Width:=200, Height:=30)

  oOLE.Name = "Temporaire" 'Rem Ici je donne un nom au label que je viens de créer tout se passe bien.
  oOLE.Object.Caption = "Ce bouton"
'Temporaire.Caption = "Ce bouton" 'Rem ici je veux changer la propriété caption et là VBA m'indique ne pas connaitre le label.
End Sub

Bonjour,

Sans le fichier support, difficile de tester et conseiller

Merci Banzai64,

effectivement, ça fonctionne des fois on cherche des trucs trop compliqués !

Amitié, Marckaos.