Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Retour au menu

Retour au menu

3 réponses
Avatar
Nito
Bonjour encore moi

Voila vous m'avez fait une belle p'tite macro pour que ma page s'ouvre
toujours sur la feuille Menu.
J'ai encore besoin de vous!!!
Voici sur chaque feuille j'ai inséré une commande pour retourner a la
feuille Menu RETOUR AU MENU
J'aimerais savoir si c'est possible que la commande RETOUR AU MENU soit
flottant dans la feuille car des fois je suis rendu dans le bas de la page,
et etant donne que j'ai installe RETOUR AU MENU dans le haut de la page je
dois remonter le curseur à toutes les fois. Moin agréable

Merci encore pour l'aide

Nito
Signaler un problème avec ce contenu

3 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
FdeCourt
Hello,

Je pense que le plus simple serait de figer la premiere ligne (celle
ou il y a ton bouton)
Tu sélectionne A2 puis Fenêtre > Figer les volets

Cordialement,

F.
Avatar
FdeCourt
Ou alors, par macro :

mais il faut sélectionner à chaque fois une cellule (n'importe
laquelle) pour lancer le placement du bouton

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveSheet.Shapes("NOMDUBOUTON").Top =
Cells(Windows(1).VisibleRange.Row, 1).Top
End Sub

Cordialement,

F.
Avatar
Banjo
Bonjour,

Pour obtenir un bouton mobile, j'ai également utilisé un bout de programme
récupéré sur ce site.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveSheet.Shapes("Button 1").Left = Target.Left
ActiveSheet.Shapes("Button 1").Top = Target.Top
End Sub

Une meilleure alternative de mon point de vue serait de créer le bouton dans
la barre d'outils.

Cordialement,

Banjo



Ou alors, par macro :

mais il faut sélectionner à chaque fois une cellule (n'importe
laquelle) pour lancer le placement du bouton

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveSheet.Shapes("NOMDUBOUTON").Top > Cells(Windows(1).VisibleRange.Row, 1).Top
End Sub

Cordialement,

F.