Discussion :

[Pierre.g]

Bonjour,

Je voudrais, avec la fonction appelée par le bouton, trouver depuis quelle cellule le bouton a été cliqué.

Les boutons ont été créés avec le code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
ActiveSheet.Buttons.Add(cellule.Left, cellule.Top, _
                        cellule.Width, cellule.Height)

Est-ce possible ?

Merci,
Pierre.

[fring]

Bonjour,

Tu peux tester ceci :

Code à ajouter dans la procédure appelée par le bouton :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Dim T As Single, L As Single, cel As Range
 
T = ActiveSheet.Shapes(Application.Caller).Top
L = ActiveSheet.Shapes(Application.Caller).Left
 
For Each cel In ActiveSheet.Cells
    If cel.Top = T And cel.Left = L Then
        MsgBox "le bouton utilisé se trouve dans la cellule " & cel.Address(0, 0)
        Exit For
    End If
Next

[Pierre.g]

Merci beaucoup, en m'inspirant d'un autre code et du tien, j'ai trouvé quelque chose qui me va parfaitement :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

MsgBox ActiveSheet.Shapes(Application.Caller).TopLeftCell.Address

PS : quand le sujet est marqué comme résolu, des messages peuvent-êtres ajoutés ?

[Gorfael]

Salut Pierre.g et le forum
Si tu expliquais pourquoi tu as besoin de la cellule en-dessous du bouton ?
Le nom du bouton ne serait pas mieux ?
A+

[Pierre.g]

Ce sont des boutons qui vont servir à créer des dossier. Ils ont tous le même nom "Créer dossier".

Je trouve donc la cellule qui contient le bouton pour pouvoir aller chercher quelques cellules à gauche les informations qu'il faut pour créer le dossier.

Je pense que ça devrait bien marcher. Si tu a une autre solution n'hésite pas.

Pierre.

[ucfoutu]

Bonjour,

Je pense que cette question est le résultat de ce qui est écrit ici :
http://www.developpez.net/forums/sho...d.php?t=597731

Pourquoi aller à la pêche de l'adresse de la cellule contenant un bouton ?
Il suffit, au moment de la création du bouton, de noter (par exemple dans un tableau dynamique) l'adresse correspondante, puis d'aller la lire dans ce tableau.

[Pierre.g]

Merci.

Je pense que la solution trouvée quelques messages plus haut est simple et robuste, les tableau dynamique, je ne connait pas.

[Gorfael]

Salut Pierre.g et le forum

Ce sont des boutons qui vont servir à créer des dossier. Ils ont tous le même nom "Créer dossier".

Je ne demandais pas la légende du boton ('Caption"), mais le nom (Name).
Si tu fais une macro momune pour tous tes bouton, tu peux utiliser Application.Caller, qui te retourne le nom du bouton. Mais avec le manque d'infos, c'est difficile d'aller plus loin.
A+

[Pierre.g]

Je ne savais pas qu'on pouvais changer le nom interne d'un bouton, j'ai laissé Excel se débrouiller seul alors.
Désolé pour le manque d'infos.

J'ai utilisé Application.Caller, c'est bon, ça marche.

Merci, le problème est résolu.