Discussion :

[tacos21]

Voila, tout est dans le message, j ai un tableau excel ou j ai un equipement par ligne et un bouton commandant une macro par ligne. La macro est a chaque fois la meme a part qu il me faut recuperer des infos de la ligne sur lequel se trouve mon bouton, sinon je ne peux pas faire une macro generique et je ne compte pas me taper 800 macros.
Je previens c est mes tout tout tout debuts sous excel, si vous pouvez detailler votre reponse au maximum, ce serait pas pour rien je vous le promet.

Merci d avance pour votre aide

[jfontaine]

Je n'ai jamais vu de lien entre la position d'un bouton et le numéro de ligne ou il se trouve.
Par contre, tu pourrais demander a l'utilisateur de mettre une valeur dans une cellule et utiliser l'evenement Worksheet_Change qui lui te appelera la macro avec la ligne de la cellule modifiée

[tacos21]

Ok je vais me debroruiller comme tu dis. Merci beaucoup de t etre penché sur mon probleme.

Tcho!
Jeff

[SilkyRoad]

bonjour

De quel type de bouton s'agit il ?
* Formes automatiques
* bouton formulaires
* bouton de la boite à outils controles


Les objets possèdent des propriétés TopLeftCell et BottomRightCell afin d'identifier leur position dans la feuille de calcul.


bon week end
michel

[jfontaine]

Merci pour cette astuce, je ne connaissais pas.

Par contre, j'ai mis un objet commandbutton sur la feuille et quand je clic sur le bouton je veux qu'il me retourne l'info cellule avecTopLeftCell , mais la ca retourne ""
(Excel 2003)

Quoi tu en penses?

[SilkyRoad]

rebonjour

Tu peux par exemple utiliser

Code :

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

1
2
MsgBox CommandButton1.TopLeftCell.Row & vbCrLf & _
    CommandButton1.TopLeftCell.Address

bon week end
michel

[Gorfael]

Voila, tout est dans le message, j ai un tableau excel ou j ai un equipement par ligne et un bouton commandant une macro par ligne. La macro est a chaque fois la meme a part qu il me faut recuperer des infos de la ligne sur lequel se trouve mon bouton, sinon je ne peux pas faire une macro generique et je ne compte pas me taper 800 macros.
Je previens c est mes tout tout tout debuts sous excel, si vous pouvez detailler votre reponse au maximum, ce serait pas pour rien je vous le promet.

Merci d avance pour votre aide

Salut
Pas sûr d'avoir tout compris
à condition que tes boutons soient issus de la barre d'outils "formulaire"
tu leur affecte la même macro test

Code :

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

1
2
3
4
 
Sub test()
MsgBox Application.Caller
End Sub

affiche une boîte de dialogue contenant le nom de l'objet ayant lancé la macro
Le bouton peut-être n'importe quel objet auquel tu affectes une macro (sauf les contrôles de la boîte d'outils contrôles)
A+

[tacos21]

En fait, j ai vu dans l aide qu il existe bien l option topleftcell et bottomrightcell, merci bcp j en apprend tous les jours! Mais dans le cas d une forme automatique (genre une ellipse), il faut selectionner cette forme pour avoir access a l info. Or, lorsque j affecte une macro a cette forme, lorsque je click dessus, je ne selectionne plus la forme, la selection reste sur la cellule precedente. Tu vois un peu mon probleme?
Sinon je me suis debrouiller autrement, c est moins la classe mais on fera avec...
Merci pour les reponses

[tacos21]

En fait ca m interesse ton truc

Code :

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

1
2
MsgBox CommandButton1.TopLeftCell.Row & vbCrLf & _
    CommandButton1.TopLeftCell.Address

mais vu que j touche pas une bille, ba ca marche pas trop chez moi.
J ai pris un bouton sur la toolbox des Use form et j ai mis ce code dans le sub du bouton comme ca

Code :

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

1
2
3
4
5
Sub bouton36_Click()
 
MsgBox bouton36.TopLeftCell.Row
 
End Sub

Mon bouton s appelle bouton36 tu l auras compris.
Que faut il que je fasse pour qu il me retourne la ligne?

Merci bcp

[tacos21]

c bon j ai trouvé la commande qui fait que je peux recuperer la ligne du bouton qui commande l execution de ma macro :

Code :

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

Msgbox ActiveSheet.Shapes(Application.Caller).TopLeftCell.Row

Voila

Merci a tous !