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

Martini · 16 Novembre 2011

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 · 16 Novembre 2011

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

onjour,

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

Code:

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

bon après midi
@+

Guest · 16 Novembre 2011

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:

Code:

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 · 16 Novembre 2011

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.

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

Martini

XLDnaute Junior

Pièces jointes

Pierrot93

XLDnaute Barbatruc

Guest

Guest

Martini

XLDnaute Junior

Discussions similaires