Connaître l'emplacement d'un bouton de formulaire avec une commande VBA

[Martini]

Bonjour,

Je remplis une liste d'invités (Feuil1) chaque mois et en tire un récapitulatif (Feuil2) par macro.
J'aimerais que ma macro sache à quelle colonne appartient le bouton qui la lance pour en déduire de quel mois elle doit faire le récapitulatif.

Actuellement, je suis parti pour utiliser autant de macros qu'il y a de boutons, on a vu plus élégant.


Merci pour vos avis

 

[Pierrot93]

Re : Connaître l'emplacement d'un bouton de formulaire avec une commande VBA

onjour,

regarde ceci, renverra le numéro de la colonne :

MsgBox Feuil1.Shapes(Application.Caller).TopLeftCell.Column

bon après midi
@+

 

[Guest]

Re : Connaître l'emplacement d'un bouton de formulaire avec une commande VBA

Bonjour,

Je ne répond qu'à ta question, je n'ai pas regardé le reste des macros.

exemple:

Dim col As Long
If TypeName(Application.Caller) = "String" Then
    If UCase(Application.Caller) Like "BOUTON*" Then
        On Error Resume Next
        col = ActiveSheet.Shapes(Application.Caller).TopLeftCell.Column
        On Error GoTo 0
    End If
End If
If col = 0 Then
    MsgBox "colonne inconnue"
Else
    MsgBox "numéro colonne: " & col
End If

Je te laisse adapter.

A+
[Edit] Hello Pierrot

 

[Martini]

Re : Connaître l'emplacement d'un bouton de formulaire avec une commande VBA

Merci à vous deux.

Hasco> Je n'aurais peut-être pas pensé à faire un test au cas où la macro ne soit pas lancée par un bouton, en effet.