Bonjour a tous,
J'ai créé un boutton (Type Active X) sur une feuille. Ce boutton execute une macro, dans laquelle, je recupere dans des variables respectivement la ligne et la colonne de mon bouton (j'en ai besoin plus tard dans mon programme).
Ci dessous ma macro:
Public Sub CommandButton1_Click()
Jusqu'ici, tout va bien.
Le probleme, c'est que je dois copier ce bouton environ 200 fois dans ma feuille. Le boutton de depart s'appelle CommandButton1 mais à chaque fois que je j'en crée un nouveau, il va automatiquement s'appeller CommandButton2 puis CommandButton3...
Or, comme dans mon code CommandButton1 est ecrit en dur, je dois modifier le nom près de 200 fois....
N'y a-t-il pas moyen d'ecrire qqchose comme:
bouton_actif = ActiveControl.Name
ligne_active = bouton_actif.TopLeftCell.Row
colonne_active = bouton_actif.TopLeftCell.Column
ou encore,
ligne_active = AcvtiveControl.TopLeftCell.Row
colonne_active = AcvtiveControl.TopLeftCell.Column
(Sachant que ce que je viens d'ecrire ne marche pas!!!)
Je sais que cette question a plus ou moins déjà été posée sur ce forum (https://www.excel-downloads.com/threads/nom-du-controle-actif-dune-feuille.111140/)
mais aucun elememt ne permet de faire avancer mon probleme.
Je me permet donc de relancer le debat.
Merci par avance
Man8
J'ai créé un boutton (Type Active X) sur une feuille. Ce boutton execute une macro, dans laquelle, je recupere dans des variables respectivement la ligne et la colonne de mon bouton (j'en ai besoin plus tard dans mon programme).
Ci dessous ma macro:
Public Sub CommandButton1_Click()
Dim ligne_active As Long
Dim colonne_active As Long
ligne_active = CommandButton1.TopLeftCell.Row
colonne_active = CommandButton1.TopLeftCell.Column
Sheets("List").Cells(1, 5).Value = ligne_active
Sheets("List").Cells(1, 6).Value = colonne_active
referencer.Show
End SubDim colonne_active As Long
ligne_active = CommandButton1.TopLeftCell.Row
colonne_active = CommandButton1.TopLeftCell.Column
Sheets("List").Cells(1, 5).Value = ligne_active
Sheets("List").Cells(1, 6).Value = colonne_active
referencer.Show
Jusqu'ici, tout va bien.
Le probleme, c'est que je dois copier ce bouton environ 200 fois dans ma feuille. Le boutton de depart s'appelle CommandButton1 mais à chaque fois que je j'en crée un nouveau, il va automatiquement s'appeller CommandButton2 puis CommandButton3...
Or, comme dans mon code CommandButton1 est ecrit en dur, je dois modifier le nom près de 200 fois....
N'y a-t-il pas moyen d'ecrire qqchose comme:
bouton_actif = ActiveControl.Name
ligne_active = bouton_actif.TopLeftCell.Row
colonne_active = bouton_actif.TopLeftCell.Column
ou encore,
ligne_active = AcvtiveControl.TopLeftCell.Row
colonne_active = AcvtiveControl.TopLeftCell.Column
(Sachant que ce que je viens d'ecrire ne marche pas!!!)
Je sais que cette question a plus ou moins déjà été posée sur ce forum (https://www.excel-downloads.com/threads/nom-du-controle-actif-dune-feuille.111140/)
mais aucun elememt ne permet de faire avancer mon probleme.
Je me permet donc de relancer le debat.
Merci par avance
Man8
Dernière édition: