Nom d'un bouton control

Bonjour à tous

J'aimerais récupérer le nom de boutons control Active X fonctions d'une variable dans une feuille afin de déterminer sa position.

Existe t-il une formule de type ActiveControl.Name ?

Merci d'avance

help sinon je crois que je vais me tirer une bastosse ...

Bonsoir,

ce petit bout de code te permet d'afficher le nom des différents objets OLE sur ta feuille

Sub test()
    For Each oob In ActiveSheet.OLEObjects
        MsgBox oob.Name
    Next
End Sub

Bonjour,

S'il est sur une feuille tu le sélectionnes et son nom apparait dans la zone des références au-dessus des n° de ligne.

eric

Bonjour

Merci pour vos réponses mais je suis désolé je me suis mal exprimé. Je voudrais connaitre le bouton que j'ai cliqué.

C'est assez brouillon j'ai commencé VBA il y a 1 mois.

Dans les grandes ligne l'objetif est :

=> j'ouvre un userform = FAIT

=> Compile et écrit le code dans une feuille a partir d'une recherche fuzzylookup = FAIT

=> créer un bouton de confirmation dans cette feuille = FAIT

=> en appuyant sur le bouton de confirmation il ouvre un autre userform qui reprend les cellules de la ligne du bouton, et écrit ce qu'il y a sur la ligne dans une autre feuille et modifie le stock les quantités dans le stock.

Ci joint le fichier.

En vous remerciant

Sans ouvrir le fichier : me.name ?

eric

dsl je ne comprends pas tout.

Dans le userform3 il me faudrait la position du bouton qui à permit de l'ouvrir sur la feuille Meudon.

Mais c'est un call de userform3.

Me.name va me donnait quoi ?

Merci

bonjour,

à essayer , je n'ai pas pu tester car chez moi ton code se plante sur une librairie que je n'ai pas

1) definir une variable globale

Global boutonmeudon as String

2) ajouter dans la génération du code (module 6)

    Code = "Private Sub ToggleButton" & A & "_Click()" & vbCrLf
    'Code = Code & "Call BoutonName" & vbCrLf
    Code = Code & "B = ActiveSheet.Name" & vbCrLf
    Code = Code & "" & vbCrLf
    Code = Code & "Dim Ligne As Long" & vbCrLf
    Code = Code & "Dim Debut As Long" & vbCrLf
    Code = Code & "Dim Fin As integer" & vbCrLf
    Code = Code & "" & vbCrLf
    Code = Code & "boutonmeudon= ""ToggleButton"" & A" & vbCrLf ' on mémorise le nom du bouton dans boutonmeudon avant lancer userform3

merci beaucoup !! ça marche