Et oui me revoilà déjà ...
Je viens d'essayer de nommer mes boutons mais ca ne marche pas. J'ai suivi la procédure d'un userform avec .caption =" " mais rien ne s'est passé.
De plus je ne vois pas comment je peux y faire référence ils sont tous identiques comme le montre l'exemple.
Donc j'essaye de faire deux choses: 1) de nommer mes boutons 2) d'y écrire une programmation adaptée à chacun d'eux
Merci Xa
ActiveSheet.OLEObjects.Add(ClassType:="Forms.CommandButton.1", Link:=False, DisplayAsIcon:=False, Left:=627, Top:=14.25, Width:=72, Height:=24) .Select
ActiveSheet.OLEObjects.Add(ClassType:="Forms.CommandButton.1", Link:=False , DisplayAsIcon:=False, Left:=631.5, Top:=63.75, Width:=72, Height:= 24).Select
ActiveSheet.OLEObjects.Add(ClassType:="Forms.ComboBox.1", Link:=False, DisplayAsIcon:=False, Left:=21, Top:=16.5, Width:=72, Height:=18). Select