Récupérer la ligne d'un bouton et la stocker dans une variable

[manu]

Bonjour à tous, je me tourne de nouveau vers vous, j'ai réalisé une macro me permettant à l'aide d'un bouton, d'insérer une ligne. Le problème que je rencontre est que je souhaite l'utiliser pour plusieurs bouton, mais je n'arrive pas à trouver la ligne de code permettant de récupérer la ligne ou se trouve mon bouton pour qu'l est effet que sur celle ci. je vous laisse mon bout de code en espérant que je trouverais une réponse. Merci.

Code:

Sub Insertion()

Dim Inser As Long
Inser = Cells(Application.Rows.Count, 11).End(xlUp).Offset(1, 0).Row
Range(Cells(Inser, 1), Cells(Inser, 13)).Inser
Range(Cells(Inser, 1), Cells(Inser, 13)).FormulaR1C1 = Range(Cells(Inser - 1, 1), Cells(Inser - 1, 13)).FormulaR1C1

End Sub

 

[Pierrot93]

Re : Récupérer la ligne d'un bouton et la stocker dans une variable

Bonjour,

regarde ceci, pour un bouton de la "boite à outils controles" :

MsgBox Feuil1.CommandButton1.TopLeftCell.Row

bonne journée
@+

 

[Dranreb]

Re : Récupérer la ligne d'un bouton et la stocker dans une variable

Bonjour.
Application.Caller devrait vous rendre le nom du Shape qui a appelé la sub
et ce ActiveSheet.Shapes(nom).TopLeftCell (ou BottomRightCell) devrait vous rendre l'information cherchée.
À+

 

[manu]

Re : Récupérer la ligne d'un bouton et la stocker dans une variable

Merci pour ces réponses, Pierrot93, le MsgBox fonctionne, il m'ouvre une boite de dialogue avec le numéro de la ligne mais je ne peut pas récupérer pour mettre dans une variables.
Dranreb, ça maffiche une erreur d'index sur ta ligne:

Dim li As Long 'déclare la variable li (LIgne)
li = ActiveSheet.Shapes(ecartDT).LeftTopCell

 

[Dranreb]

Re : Récupérer la ligne d'un bouton et la stocker dans une variable

C'était TopLeftCell en fait et ça doit être déclaré As Range, non As Long.
À+

P.S. Mais j'avoue avoir initialement tapé LeftTopCell puis corrigé en copiant sur Pierrot que je salue au passage.

 

[Pierrot93]

Re : Récupérer la ligne d'un bouton et la stocker dans une variable

Re, bonjour Bernard,

pour récupérer le numéro de la ligne dans une variable :

Dim i As Long
i = Feuil1.CommandButton1.TopLeftCell.Row

 

[manu]

Re : Récupérer la ligne d'un bouton et la stocker dans une variable

Ca ne marche toujours pas je sais plus quoi faire. Mon code fonctionne (le premier message), le problème c'est que j'arrive pas à l'adapter pour un dexième bouton, il s'amuse à me créer des lignes toujours au même endroit alors que les deux boutons ne sont pas sur la même ligne.

 

[Dranreb]

Re : Récupérer la ligne d'un bouton et la stocker dans une variable

Il serait temps de joindre un fichier et d'oublier le temps perdu juqsqu'ici...

 

[manu]

Re : Récupérer la ligne d'un bouton et la stocker dans une variable

Merci Pierrot, ça fonctionne, en revanche il rajoute une ligne au dessus de la ligne souhaité, est-il possible de changer cela?

 

[manu]

Re : Récupérer la ligne d'un bouton et la stocker dans une variable

C'est bon, il fallais juste bien positionner le bouton. Je vous remercie tout les deux en tous cas pour votre aide.

 

[Pierrot93]

Re : Récupérer la ligne d'un bouton et la stocker dans une variable

Re,

Ca ne marche toujours pas je sais plus quoi faire. Mon code fonctionne (le premier message), le problème c'est que j'arrive pas à l'adapter pour un dexième bouton, il s'amuse à me créer des lignes toujours au même endroit alors que les deux boutons ne sont pas sur la même ligne.

normal, les codes sont identiques et je ne vois pas les codes que nous t'avons proposés....

 

[manu]

Re : Récupérer la ligne d'un bouton et la stocker dans une variable

J'ai utilisé ton code pour retrouvrer la ligne, c'est normal qui soit identique, ce qui va les différencier c'est la position du bouton

 

[Dranreb]

Re : Récupérer la ligne d'un bouton et la stocker dans une variable

Re bonjour Pierrot93

je ne vois pas les codes que nous t'avons proposés....

Non en effet. Par contre ça c'est rigolo :

... And Ligne > li - 1 And Ligne < li + 1 Then

Cordialement.

 

[manu]

Re : Récupérer la ligne d'un bouton et la stocker dans une variable

j'avais mis cela car je voulais que la case à copier serait celle qui se trouve juste au dessus de la ligne qui venait d'être ajouté, mais bon en fin de compte ça ne sert a rien.
Voici le code final:

Dim Inser As Long
Inser = Feuil1.CommandButton1.TopLeftCell.Row
Range(Cells(Inser, 1), Cells(Inser, 13)).Insert
Range(Cells(Inser, 1), Cells(Inser, 13)).FormulaR1C1 = Range(Cells(Inser - 1, 1), Cells(Inser - 1, 13)).FormulaR1C1

 

[manu]

Re : Récupérer la ligne d'un bouton et la stocker dans une variable

j'ai une autre petite question, le clique sur le bouton me retourne la ligne sur laquelle il se trouve, mais en cas d'insertion d'une autre ligne au dessus, la ligne attribué au bouton se déplace mais pas lui. Est-il possible de liée le bouton à la ligne de façon à ce qu'ils bougent en même temps?