Nom d'un bouton control Le sujet est résolu

Y compris Power BI, Power Query et toute autre question en lien avec Excel
Répondre
P
PoUlMoUtH
Jeune membre
Jeune membre
Messages : 26
Inscrit le : 12 octobre 2014
Version d'Excel : 2010 FR

Message par PoUlMoUtH » 2 novembre 2014, 21:34

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 ...
"ce qui nous rend plus fou nous rend moins con" Moi
h
h2so4
Passionné d'Excel
Passionné d'Excel
Messages : 9'446
Appréciations reçues : 427
Inscrit le : 16 juin 2013
Version d'Excel : 365 UK Windows 10

Message par h2so4 » 3 novembre 2014, 00:15

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
Avatar du membre
eriiic
Passionné d'Excel
Passionné d'Excel
Messages : 9'709
Appréciations reçues : 446
Inscrit le : 7 février 2010
Version d'Excel : 2010fr

Message par eriiic » 3 novembre 2014, 00:49

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
En essayant continuellement, on finit par réussir.
Donc plus ça rate, plus on a de chances que ça marche.
(les Shadoks)

En plus du merci (si si, ça se fait !!!), penser à mettre en résolu. Merci
P
PoUlMoUtH
Jeune membre
Jeune membre
Messages : 26
Inscrit le : 12 octobre 2014
Version d'Excel : 2010 FR

Message par PoUlMoUtH » 3 novembre 2014, 11:14

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
Semaine 43.xlsm
(239.42 Kio) Téléchargé 19 fois
"ce qui nous rend plus fou nous rend moins con" Moi
Avatar du membre
eriiic
Passionné d'Excel
Passionné d'Excel
Messages : 9'709
Appréciations reçues : 446
Inscrit le : 7 février 2010
Version d'Excel : 2010fr

Message par eriiic » 3 novembre 2014, 11:55

Sans ouvrir le fichier : me.name ?
eric
En essayant continuellement, on finit par réussir.
Donc plus ça rate, plus on a de chances que ça marche.
(les Shadoks)

En plus du merci (si si, ça se fait !!!), penser à mettre en résolu. Merci
P
PoUlMoUtH
Jeune membre
Jeune membre
Messages : 26
Inscrit le : 12 octobre 2014
Version d'Excel : 2010 FR

Message par PoUlMoUtH » 3 novembre 2014, 12:09

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
"ce qui nous rend plus fou nous rend moins con" Moi
h
h2so4
Passionné d'Excel
Passionné d'Excel
Messages : 9'446
Appréciations reçues : 427
Inscrit le : 16 juin 2013
Version d'Excel : 365 UK Windows 10

Message par h2so4 » 3 novembre 2014, 13:37

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
P
PoUlMoUtH
Jeune membre
Jeune membre
Messages : 26
Inscrit le : 12 octobre 2014
Version d'Excel : 2010 FR

Message par PoUlMoUtH » 3 novembre 2014, 15:05

merci beaucoup !! :D ça marche
"ce qui nous rend plus fou nous rend moins con" Moi
Répondre
  • Sujets similaires
    Réponses
    Vues
    Dernier message