Discussion :

[Klode784]

Bonjour à tous du forum,

Dans une feuille, j'ai des boutons de formulaire pour remplir la feuille. Cependant, lorsque je descends ma feuille, les boutons suivent aussi et je dois remonter la feuille pour avoir accès aux boutons. Existe-t-il un moyen pour que seulement la feuille descende et que les boutons restent fixes?

Merci de votre aide,

Claude

[casefayere]

Bonjour,à priori, je figerais les volets sur la ligne 1, qui peut être une ligne de titre et je placerais mes boutons sur la ligne 1, mais......

[Theze]

Bonsoir,

Une autre possibilité (un peu scabreuse je l'avoue :0(( ) sur l'évennement "SelectionChange" de la feuille (la proposition de casefayere me semble plus appropriée malgré tout mais bon...) :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 
    BoutonFlottant
 
End Sub
 
Sub BoutonFlottant()
 
    Dim Adr As String
    Dim Cel As String
 
    'récupère la zone apparente
    Adr = ActiveWindow.VisibleRange.Address(0, 0)
 
    'récupère l'adresse de la cellule la plus à gauche
    'et la plus en haut
    Cel = Left(Adr, InStr(Adr, ":") - 1)
 
    'positionne le bouton
    With ActiveSheet.CommandButton1
        .Top = Range(Cel).Offset(1, 1).Top
        .Left = Range(Cel).Offset(1, 1).Left
    End With
 
End Sub

Hervé.

[Theze]

Oups,

Je n'ai pas fait attention que c'est un bouton "Formulaire" dont tu parle donc, changer :

Code :

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

1
2
 
With ActiveSheet.CommandButton1

par :

Code :

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

1
2
 
With ActiveSheet.Shapes("Bouton 1")

en adaptant dans les deux cas le nom du bouton bien sûr !

Hervé.

[Theze]

Re,

Merci casefayere. J'ai fait ce truc il fût un temps sur un classeur pour ma femme (je trouvai ça assez fun) mais elle pestait de devoir toujours cliquer dans une cellule pour voir son bouton et en plus, il masquait des données ce qui lui plaisait encore moins c'est pour ça que j'ai modifié le classeur en adoptant la proposition que tu as faite, depuis c'est bon, je n'ai plus de réclamation ;0)

Hervé.

[Klode784]

Bonjour,à priori, je figerais les volets sur la ligne 1, qui peut être une ligne de titre et je placerais mes boutons sur la ligne 1, mais......

Bonjour et merci pour la solution, mais serait-il possible de les figer sur une colonne plutôt qu'une ligne? Ils sont présentement dans la colonne "G". Si oui, comment les figer?

Merci encore,

Claude

[Theze]

Re,

Tu sélectionne toute la colonne H (clic sur l'entête) et "Figer les volets". Attention, ce sont tes colonnes de A à G qui seront figées et pas juste la colonne G.

Hervé.

[casefayere]

Ta dernière solution, Hervé n'empêchera pas de masquer les boutons quand l'utilisateur déplacera l'ascenseur vers le bas, si Klode784 veux vraiment ses controles dans une colonne, mieux vaut en ajouter une au début, pour les placer dedans,

Ps : je viens de dire une bétise, meme résultat, il faut choisir en priorité, si on se déplacera vers le bas ou de gauche à droite

[Klode784]

Bonjour à tous et merci pour vos réponses. J'ai essayé les diverses solutions énoncées ici, mais ça ne fonctionne pas vraiment.

Par contre, j'ai trouvé une solution qui me satisfait en partie. Comme j'ai 6 boutons pour diverses actions, j'ai séparé les boutons selon l'ordre que j'en ai besoin dans le formulaire. C'est-à-dire que j'ai 2 boutons au haut du formulaire pour remplir la partie supérieure, 2 autres boutons au milieu pour remplir le milieu du formulaire et enfin 2 derniers boutons au bas pour compléter le formulaire et le créer.

Encore merci à tous de votre aide et vos idées, elles m'ont vraiment inspirées!!

Claude

[casefayere]

Bonsoir Hervé,
scrabreux, je ne sais pas mais l'idée est bienvenue ou bien vue