bouton static

[patgravure35]

re bonjours a tous et toutes

autre petit probleme

j'ai créer des boutons sur differante feuille mais je voudrais les rendre statique pour que quant je dessand dans ma feuil le bouton reste visible

je joind un petit exemple

merci et a bientôt

 

[Dranreb]

Re : bouton static

Bonjour.
Le plus simple serait de figer les volets et de mettre les boutons dans le volet supérieur.
Cordialement.

 

[patgravure35]

Re : bouton static

Oui merci beaucoup dranred j'y avais pensée mais certain bouton sont plus grand que les autre ce qui me cache les libellées

mais merci quant meme d'y avoir pensé

a bientôt

 

[phlaurent55]

Re : bouton static

Bonjour à tous,

un fil de discussion concernant un problème similaire en cliquant ci-dessous
https://www.excel-downloads.com/threads/graphique-mobile-sur-classeur-excel.153741/

à+
Philippe

 

[Gelinotte]

Re : bouton static

Bonjour,

En utilisant le code du lien donné par phlaurent55, voici quelque chose qui, je l'espère, conviendra.

Comme les macros s'activent "on sheet activate", change de feuille et revient dessus pour que ça fonctionne.

Présentement, ça ne fonctionne que sur la Feuil1. Mais tu pourras adapter aux autres feuilles.

G

 

[phlaurent55]

Re : bouton static

Re,

une petite modif à apporter au code de Gélinotte

Sub graphbarre()
   With ActiveSheet
      While feuilleActive
         DoEvents
            ligne = ActiveWindow.VisibleRange.Row
            colonne = ActiveWindow.VisibleRange.Column
               .Shapes.Range(Array("Ellipse 1")).Top = Rows(ligne + 5).Top
               .Shapes.Range(Array("Ellipse 1")).Left = Columns("f").Left
               .Shapes.Range(Array("Ellipse 2")).Top = Rows(ligne + 11).Top
               .Shapes.Range(Array("Ellipse 2")).Left = Columns("c").Left
      Wend
   End With
End Sub

à+
Philippe

 

[Gelinotte]

Re : bouton static

Bonjour,

Heeuuuu! Je ne comprends pas 😕 est-ce que Patagravure35 a changé le nom des shapes dans son fichier ???

G

 

[Misange]

Re : bouton static

Bonjour
un code comme celui-cite conviendrait-il ?

Private sub Worksheet_SelectionChange(ByVal Target As Range)  ActiveSheet.Shapes("Button 1").Left = Target.Left  ActiveSheet.Shapes("Button 1").Top = Target.Top  end sub

sinon tu as ce super truc de Jean François Aubert
Ce lien n'existe plus (à télécharger)

 

[Gelinotte]

Re : bouton static

Bonjour,

Dis-moi Misange, comment peut-on modifier ton bout de code afin d'ajouter un offset au Target ?
Afin que le shapes se positionne à quelques colonnes du target.

G

 

[Gelinotte]

Re : bouton static

Bonjour,

J'ai trouvé. Il suffisait de ne pas faire de faute de frappe. 🙄

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveSheet.Shapes("Ellipse 1").Left = Target.Offset(0, 5).Left
ActiveSheet.Shapes("ellipse 1").Top = Target.Offset(3, 0).Top
End Sub

G