VBA Récupérer le nom du format de contrôle

Créer une discussion
Répondre
  • Initiateur de la discussion Initiateur de la discussion FAB80170
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
F

FAB80170

XLDnaute Junior
Bonsoir,

j'ai une série de 25 boutons (format de contrôle), dont le nom est à chaque fois différent.

Je souhaiterais qu'au clic de chaque bouton, le nom de ce dernier s'écrive dans la cellule M13. (Un copier coller du nom du bouton).

Je souhaiterais si possible, regrouper les macros individuelles dans un seul code.

Par avance Merci pour votre aide.
 

Pièces jointes

Trier par date Trier par votes
Bonsoir Eric.

Merci pour votre réponse et sincèrement désolé si j'ai manqué à un retour d'infos ou remerciements.

Néanmoins, je peux vous envoyer de nombreuses réponses avec de chaleureux remerciements.

Bonne Année à vous.



"Bonsoir JBARDE,

désolé de répondre si tard; journée très chargée ...
êtes vous auto-entrepreneur ou simplement passionné ?
Je reviens vers vous au plus vite.
J'ai toujours pas de mots ... pour exprimer ma gratitude.

Bonne nuit."

.....................................
 
Vote positif 0 Vote négatif
phlaurent55 à dit:
Bonjour à tous,

voir fichier joint (après avoir remis un peu d'ordre dans les boutons)

à+
Philippe
Cliquez pour agrandir...

Bonsoir Philippe, bonsoir à tous.

Je suis désolé, dans ma demande initiale, je pense avoir confondu "nom du Bouton" avec "texte du Bouton".

Est-ce possible avec "texte du Bouton" ?

Encore désolé pour cette confusion de ma part.

"Bonsoir,

j'ai une série de 25 boutons (format de contrôle), dont le nom est à chaque fois différent.

Je souhaiterais qu'au clic de chaque bouton, le nom de ce dernier s'écrive dans la cellule M13. (Un copier coller du nom du bouton).

Je souhaiterais si possible, regrouper les macros individuelles dans un seul code.

Par avance Merci pour votre aide."
 
Vote positif 0 Vote négatif
Re-bonjour,

pour le texte du bouton, la réponse a été donnée dans mon fichier, il s'agissait de:
Code: 
Sub Bouton()
[M13] = "Bouton " & Mid(Application.Caller, 8, 2) - 25
End Sub

pour le nom du bouton il suffit de remplacer le code de mon fichier précédent par celui-ci:
Code: 
Sub Bouton()
[M13] = Application.Caller
End Sub

à+
Philippe
 
Vote positif 0 Vote négatif
phlaurent55 à dit:
Re-bonjour,

pour le texte du bouton, la réponse a été donnée dans mon fichier, il s'agissait de:
Code: 
Sub Bouton()
[M13] = "Bouton " & Mid(Application.Caller, 8, 2) - 25
End Sub

pour le nom du bouton il suffit de remplacer le code de mon fichier précédent par celui-ci:
Code: 
Sub Bouton()
[M13] = Application.Caller
End Sub

à+
Philippe
Cliquez pour agrandir...

Bonjour Philippe et une nouvelle fois merci pour ton retour.

Alors, ma demande concernait bien le texte du bouton; mais ce que je ne comprends pas, c'est que si je fais un clic droit pour modifier le texte du bouton 1 (exemple "titi") et que je clique sur ce dernier, c'est toujours le texte "Bouton 1" qui s'affiche dans la cellule M13 ... au lieu de "titi".
Je dois être amené à modifier le texte de mes 25 boutons aléatoirement ... peut-être que ce n'est pas le bon emplacement pour la modification du texte ?

P.S. Désolé de vous importuner à nouveau, et, par avance, merci pour votre retour.

Bien cordialement.
 
Vote positif 0 Vote négatif
Bonsoir,
Liste des Boutons associé au Macro VBA de ceux-ci :

VB: 
Sub test()
Dim shp  As Shape
For Each shp In ActiveSheet.Shapes
    'shp.Select
    'MsgBox shp.TextFrame.Characters.Caption
    'MsgBox Split(shp.OnAction, "!")(1)
Cells(12, 13) = "Nom bouton"
Cells(12, 14) = "Nom de la macro"
    ' Nom bouton
    cpt = cpt + 1
    Cells(12 + cpt, 13) = shp.TextFrame.Characters.Caption
    ' Nom de la macro
    If shp.OnAction <> Empty Then
    Cells(12 + cpt, 14) = Split(shp.OnAction, "!")(1)
    End If
Next shp
End Sub
 

Pièces jointes

Vote positif 0 Vote négatif
laurent950 à dit:
Bonsoir,
Liste des Boutons associé au Macro VBA de ceux-ci :

VB: 
Sub test()
Dim shp  As Shape
For Each shp In ActiveSheet.Shapes
    'shp.Select
    'MsgBox shp.TextFrame.Characters.Caption
    'MsgBox Split(shp.OnAction, "!")(1)
Cells(12, 13) = "Nom bouton"
Cells(12, 14) = "Nom de la macro"
    ' Nom bouton
    cpt = cpt + 1
    Cells(12 + cpt, 13) = shp.TextFrame.Characters.Caption
    ' Nom de la macro
    If shp.OnAction <> Empty Then
    Cells(12 + cpt, 14) = Split(shp.OnAction, "!")(1)
    End If
Next shp
End Sub
Cliquez pour agrandir...

Bonsoir laurent950

Un grand Merci pour votre retour.
J'ai collé le code puis affecté chaque bouton à ce dernier. Mais le résultat n'est pas celui escompté. Mais je maitrise si mal les macros, que je pense peut être la cause de ce désordre. (le fichier en pj).
Néanmoins, la solution proposé par Philippe marche à merveille.
Encore merci !
 

Pièces jointes

Vote positif 0 Vote négatif
laurent950 à dit:
Il y a des boutons avec des noms pour chaque boutons (Il y a une macro différente pour chacun des boutons) la macro fait le listing des macros qui correspondent a chacun de ces boutons

Vous voulez faire quoi pour comprendre ?
Cliquez pour agrandir...

Laurent,
au regard du code et de vos explications, je ne sais pas quoi trop vous répondre, car le fossé est énorme ...
... j'affecte à chacun des boutons la même macro en changeant le "nom bouton" et le "nom de la macro" ?
Sincèrement navré d'être aussi ignare ... et merci pour votre aide.
 
Vote positif 0 Vote négatif
... j'affecte à chacun des boutons = Cells(14, 2) = "Nom bouton"
la même macro = shp.OnAction = "test"
en changeant le "nom bouton" = Cells(14, 3) = "Nom Bouton Modifié"

' j'ai pas fait mais
et le "nom de la macro" = shp.OnAction = "test" (ici remplacer "test") par un autre nom de macro au choix

Nota : Sub test() c'est shp.OnAction = "test"

VB: 
Sub test()
Dim shp  As Shape
For Each shp In ActiveSheet.Shapes
    'shp.Select
    'MsgBox shp.TextFrame.Characters.Caption
    'MsgBox Split(shp.OnAction, "!")(1)
Cells(13, 2) = "Actuel"
Cells(13, 3) = "Modification"
Cells(14, 2) = "Nom bouton"
Cells(14, 3) = "Nom Bouton Modifié"
Cells(14, 4) = "Nom de la macro"
    ' Nom bouton
    cpt = cpt + 1
    Cells(14 + cpt, 2) = shp.TextFrame.Characters.Caption
    ' Si Nom Modifié = Nouveau nom
    If Cells(14 + cpt, 3) <> Cells(14 + cpt, 2) And Cells(14 + cpt, 3) <> Empty Then
    shp.TextFrame.Characters.Caption = Cells(14 + cpt, 3)
    End If
    ' Affecte une macro a un bouton (la même a tous les boutons
        shp.OnAction = "test"
    ' Nom de la macro
    If shp.OnAction <> Empty Then
    Cells(14 + cpt, 4) = Split(shp.OnAction, "!")(1)
    End If
Next shp
End Sub

Laurent
 
Dernière édition:
Vote positif 0 Vote négatif
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

M
  • Résolu(e)
Microsoft 365 Impression Userform en format paysage + Envoyer l'imprime écran du Userform par courriel
2
Réponses
17
Affichages
770
patricktoulon
patricktoulon
P
  • Résolu(e)
XL 2016 VBA Insérer une date dans le nom de fichiers PDF publipostés via WORD à partir d"excel
Réponses
3
Affichages
241
PHIL37
P
Titof06
  • Résolu(e)
XL 2019 Fonction "Find" qui ne fonctionne pas selon le format de cellule
Réponses
12
Affichages
242
Titof06
Titof06
K
  • Résolu(e)
XL 2019 Aide pour macro vba
2
Réponses
20
Affichages
872
Kev1407
K
J
  • Question Question
XL 2016 Comment récupérer en format excel un ticket de caisse supermarché ?
2
Réponses
18
Affichages
3 K
patricktoulon
patricktoulon
P
  • Question Question
XL 2019 Macro VBA appliquer un filtre lors d'une importation de données
Réponses
1
Affichages
203
fanch55
fanch55
Darkopsix
  • Résolu(e)
XL 2021 Récupérer des données de fichiers dons les noms sont renseignés dans des cellules
Réponses
2
Affichages
664
Darkopsix
Darkopsix
S
  • Question Question
XL 2019 Calculer dimanche de pâques puis insertion du 29 février
2
Réponses
26
Affichages
687
dysorthographie
dysorthographie
anthoYS
  • Résolu(e)
Microsoft 365 Programme de lecture d'un très gros livre (3 différents livres par semaine et un chapitre de chaque par jour)
2
Réponses
18
Affichages
836
crocrocro
C
M
  • Question Question
XL 2021 Générateur Tournoi Ecole de Rugby
Réponses
5
Affichages
612
Magis
M
miguelangelo
  • Question Question
Microsoft 365 Récupérer le nom du combobox dès qu'il change de valeur
Réponses
2
Affichages
548
mromain
mromain
S
  • Résolu(e)
Microsoft 365 vba, récupérer le résultat d'un INDEX(EQUIV en fonction du résultat
Réponses
6
Affichages
535
SOP
S
L
  • Question Question
Microsoft 365 Faire agir une macro en fonction de l'emplacement du bouton
Réponses
2
Affichages
446
AtTheOne
AtTheOne
J
  • Résolu(e)
XL 2021 plantage lors d'un export format PDF
Réponses
14
Affichages
980
JPaul78
J
C
Excel : Fusionner des cellules en conservant le contenu et la police des cellules à fusionner
Réponses
5
Affichages
360
crocrocro
C
P
  • Résolu(e)
XL 2021 Besoin d'aide pour copier/coller données de plusieurs classeurs
2
Réponses
20
Affichages
998
Pac41240
P
A
  • Résolu(e)
XL 2021 Céer un fichier (.text) avec VBA pour enregistrer les évènements dans un journal
Réponses
4
Affichages
626
arnoldbrice19
A
L
  • Résolu(e)
Microsoft 365 Pb de valeur de variable entre Sub
Réponses
5
Affichages
600
loreak
L
C
  • Résolu(e)
Microsoft 365 Duplication à partir d'une base de données du contenu d'un onglet dans d'autres onglets
Réponses
2
Affichages
687
Céline49
C
S
  • Question Question
XL 2016 Opération sur chaine de texte
Réponses
4
Affichages
646
subarusan12
S
Retour