Optimisation d'une création de bouton via VBA

Bonjour,

J'ai créé un bouton via vba avec l'enregistreur de macro et je l'ai adapté à mon besoin, voir code joint:

With Sheets(Sheets("Base").Cells(ligne, 7).Value)

 'Ajoute un bouton permettant de dupliquer une ligne dans la page du pôle ou dans une autre page de pôle (gauche, haut, longueur, largeur)
.Buttons.Add(0, (ligne - 1) * 15, 60, 45).Select
Sheets(Sheets("Base").Cells(ligne, 7).Value).Activate
Selection.Characters.Text = "Dupliquer la personne"
Selection.OnAction = "duplication_personne"

End with

J'ai vu sur le forum et d'autres sites la possibilité de créer des boutons via Oleobject, cela n'a clairement pas marché, je n'ai pas dû savoir comment l'adapter correctement.

Ma question: comment modifier mon code pour avoir le même résultat, à savoir création d'un bouton, changement de son nom et rattachement à une macro, sans avoir à activer des feuilles ou à faire des sélections, ce qui est toujours hasardeux sur vba.

Merci d'avance

Marilo

Bonjour,

Un essai ...

   With Sheets(Sheets("Base").Cells(Ligne, "G").Value)
      'Ajoute un bouton permettant de dupliquer une ligne dans la page du pôle ou dans une autre page de pôle (gauche, haut, longueur, largeur)
      .Buttons.Add(0, (Ligne - 1) * 15, 60, 45).Characters.Text = "Dupliquer la personne"
      .Buttons.OnAction = "duplication_personne"
   End With

ric

Bonjour Ric,

D'une évidente simplicité que s'en est troublant de ne pas y avoir pensé, mais absolument parfait !!

Merci beaucoup pour ton aide

Bonne continuation

Marilo

ric