Excel- Comment afficher le nom d'un bouton Résolu

Question

Bonjour,

Je voudrais savoir comment afficher le nom du bouton de commande sur lequel je clic  ?
Je veux l'afficher en cellule A1 par exemple.

merci

Le Pingou · Accepted Answer

Bonjour,
Clic droit sur le bouton et son nom apparait dans la fenêtre à gauche de la barre des formules.

gbinforme · Answer

bonjour

Il faudrait préciser un peu :
- où est ton bouton ?
- comment l'as-tu créé ?
- quel logiciel ?
- quelle version ?
etc

mod77 · Answer

Ok merci Le Pingou.
En fait , quand je clic sur mon bouton de commande qui s'appelle "BAT A" j'affiche le nom écrit dessus par la formule:
Range("A1").Value = "BAT A"
Et je pense qu'il serait plus simple si j'avais une commande qui saurait déjà le nom écrit sur mon bouton de commande ainsi je n'aurais pas à recopier le nom écrit sur chaque bouton de commande dans chacune de mes formules d'affichage.

D'où ma question...

Car ensuite je voudrais qu'à chaque fois que je clic sur mon bouton de commande nommé "BAT A" 
au prochain clic l'affichage soit "BAT A-1" au clic suivant "BAT A-2" ... qu'il s'incrémente ainsi tant que je clic dessus en ajoutant au nom "-x". x étant le nombre de fois que j'ai cliqué sur ce bouton.

Et ça ..je ne sais pas faire.

Merci de votre aide

Le Pingou · Answer

Bonsoir,
Vous pouvez utiliser cette petite procédure qui recherche les boutons et donnent leurs noms dans la variable[nom] ensuite a vous de traiter selon vos besoins.
Sub bouton()
a = Shapes.Count
For c = 1 To a
    nom = Shapes.Range(c).AlternativeText
Next
End Sub--

Salutations.
Jean-Pierre

mod77 · Answer

Bonjour Le Pingou,

J'ai inséré votre formule dans le code d'un bouton, en faite juste: Shapes.Range(c).AlternativeText
mais ce n'est pas accepté.

Private Sub CommandButton5_Click()
g = Range("A1").Value
cl = 12
indente = Range("C1").Value
cl = indente + cl
Cells(3, cl).Value = " "
nom = Shapes.Range(5).AlternativeText
Cells(lg, cl) = nom
Range("A1").Value = lg + 1
End Sub

J'ai fais ça parce que je n'ai pas besoin de lister ces boutons de commande mais, comme je l'ai écris avant, juste pour éviter d'écrire à chaque fois leur nom pour affichage.

Merci à vous tout de même.

Le Pingou · Answer

Bonjour,
Pour vous aidez je dois savoir le contenue des cellules [A1] et [C1] !
Deuxièmement êtes-vous certain que l'index de votre bouton de commande est le 5 !

mod77 · Answer

En fait j'en ai trop mis maintenant et ça complique, alors voila:

Private Sub CommandButton5_Click()
nom = Shapes.Range(5).AlternativeText
Cells(lg, cl) = nom
End Sub

Le reste c'était du positionnement, sans importance!

C'est quoi l'index du bouton? pour moi c'était le chiffre sur la ligne Private Sub Command..., non ?!
sinon, je sais pas!

Merci

Le Pingou · Answer

Bonjour,
C'est le numéro sous lequel le [CommandButton5] est enregistré par le système.
Et dans se cas se n'est pas le numéro 5.
Note: Si je demande : Pour vous aidez je dois savoir le contenue des cellules [A1] et [C1] ! 
Libre à vous d'y répondre !

mod77 · Answer

Excusez moi, je joins mon fichier ça sera plus simple:
https://www.cjoint.com/?bvrLZv38EX
Le code est appliqué au bouton"Salle 2"

Merci

Le Pingou · Answer

Bonjour,
Je ne suis pas certain d'avoir bien compris, à vous de voir :https://www.cjoint.com/?bwabTooA6a

Le Pingou · Answer

Bonjour,
Petit complément.
Pour récupérer le nom afficher du bouton de commande, faites comme suit :
Private Sub CommandButton2_Click()
nom = CommandButton2.Caption
MsgBox("Le nom du boutton est : " & nom )
End Sub

mod77 · Answer

Bonjour Le Pingou,

Vous m'avez compris! J'ai lutté hier soir pour avancer. Mais j'ai plus détruit ce que j'avais fais
qu' avancé. Ci-bien que j'ai passé plus de temps à essayer de retrouver ce que j'avais fait.
C'est pourquoi je vous remercie grandement pour votre expertise et patience.

' **** Cells(3, cl).Value = " "      ' cette instruction efface le témoin de position "=" en ligne 3 coté agencement

sinon, pour les salles elles ne sont pas pour un bâtiment seulement  donc pas  de "salle bat A", j'avais simplifié (encore) les noms.
Dans chaque batiment , il peut y avoir une ou des salle(s) video, salle(s) labo, salle A, salle B...
mais je vais rectifier.

Je vais maintenant examiner le code programme et il m'intéresse, car il y a en plus ce que je voulais faire :
effacer l'agencement pour les autres configuration. c'est génial!

Je posterai une autre question plus tard, car j'ai besoin de décrire l'intérieur des salles mais dans un tableau,
donc il faudra que je reprenne les noms des salles.

En tout cas merci beaucoup!

A+

mod77 · Answer

Le Pingou,
 je ne comprends pas non plus ces instructions pouvez-vous m' expliquer ces lignes SVP ?

' la plage des agencement colonne K dés ligne 4
    covide = Range("IV3").End(xlToLeft).Column     ? c'est quoi "IV3"?
    Range(Cells(3, 12), Cells(3, covide)).ClearContents   ? 
    Range(Cells(4, 11), Cells(Cells(1, 1), covide)).ClearContents  ?
    Cells(1, 1) = 4 

Merci

gbinforme · Answer

bonjour

covide = Range("IV3").End(xlToLeft).Column ? c'est quoi "IV3"? 

"IV3" est la dernière cellule à droite de la ligne 3.
Cependant avec 2007/2010 il serait préférable de remplacer cette instruction par ceci qui fonctionne quelle que soit la version.
covide = Cells(3, Rows(3).Cells.Count).End(xlToLeft).Column

Range(Cells(3, 12), Cells(3, covide)).ClearContents ?
Range(Cells(4, 11), Cells(Cells(1, 1), covide)).ClearContents ?

Ceci efface les données de la plage.

Le Pingou · Answer

Bonjour,
Merci à gbinforme pour l'explication du poste 14.
La suite se trouve ici : https://www.cjoint.com/?bzrOyb4fWh

mod77 · Answer

Bonjour et merci!

Cependant, "covide" c'est quoi? une instruction ou une variable quelconque?
aussi, dans l'instruction End(x'?'Toleft) c'est bien un '1' qu'il y a entre le "x" et le "T..."?

En fait, "IV3" c'est la dernière cellule à droite de la "colonne" 3, non ?!

Pour finir, dans les 2 dernières instructions Range(Cells... qu'est ce qui défini la plage à effacer, justement?
je ne comprends pas ou est le début et la fin.

Sauriez-vous me l'indiquer SVP?

Merci

mod77 · Answer

Bonjour Le Pingou,

Je n'avais pas vu votre poste avant mon message. Merci à gbinforme j'ai élucidé le mistère.
Je regarde votre lien Le Pingou. Merci

A+

mod77 · Answer

Un grand merci à tous 2 pour vos explications! c'est plus clair pour moi.

Le Pingou, je n'ai pas trouvé le gestionnaire de nom dans le menu. Mais c'est pas grave.
Je suis passé par une cellule. (dire que depuis ce matin je cherchais et bloquais sur ça!)
J'ai ajouté un bouton et ça marche!

Il y a une fonction que vous m'avez transformé c'est l'effacement de la dernier pièce. vous l'avez transformé en effacement de l'agencement et c'est bien tant mieux. Alors je l'ai récréé mais je n'arrive pas à gérer le numéro salle que j'efface, car cela dépend de la salle que j'efface.

Pouvez-vous m'aider SVP? Merci .

Le Pingou · Answer

Bonjour,
Mettez le fichier sur https://www.cjoint.com/ et je vous donne une explication selon votre dossier!
Merci pour la version Excel que vous utilisez, j'ai oublié !

Le Pingou · Answer

Bonjour,
A titre de comparaison : je vous ai séparé votre original [Feuil2] de ma proposition [Le_Pingou] : https://www.cjoint.com/?bzwe5rZ8CN

mod77 · Answer

Merci pour ces éclaircissements !

Le Pingou · Answer

Bonjour,
Et pour votre demande du poste 19 ?

mod77 · Answer

Bonjour Le Pingou,

En fait, je n'ai pas avancé car je suis toujours bloqué sur le code d'effacement de l'espace "agencement".

Quant à ma question du poste 19, effectivement je suis toujours bloqué car il y a trop de chose à gérer maintenant. Il faut connaitre le numéro d'occurrence qu'a la pièce à effacer puis incrémenter le compteur par la suite.
Je mets le lien de ce que j'ai fais.
Merci de votre intérêt, je me sens gêné de redemander des explications parfois alors encore merci.

https://www.cjoint.com/?bAtXFAlEs0

Le Pingou · Answer

Bonsoir,
Voici déjà un petit encas : http://www.cijoint.fr/cjlink.php?file=cj201001/cij9dW5ISH.xls

mod77 · Answer

Bonjour Le Pingou,

Vu l'heure à laquelle vous m'avez aidé, je vois que vous ne lâchez rien. Merci en tout cas!
Donc, l'histoire du 'pointeur': c'était en fait pour matérialiser les coordonnées de la position de la dernière entrée. Donc vous l'avez parfaitement réalisé. les salles s'inscrivent automatiquement dans un tableau. Merci.

Merci encore pour l'explication de la mise en oeuvre des listes déroulantes modifiables je la conserve précieusement.

Finalement, je ne vais pas l'utiliser. Car différents sols sont possibles en même temps. Donc je vais passer par l'ouverture d'une fenêtre me présentant tous les choix par cases à cocher et je vais ensuite stocker ces infos dans le tableau. Il faut que je prévois une mise en forme avant car à l'impression il faut que ça soit présentable.

Je vais clore ma question initiale "comment afficher le nom d'un bouton" qui à largement débordée.

Merci beaucoup de votre aide et de votre patience !
Mod77

Excel- Comment afficher le nom d'un bouton - Page 2

Discussions similaires

Newsletters