XL 2016 Figer des volets

[Jgral]

Bonjour,

J'ai un classeur Excel ou je fige une ligne pour faire un bandeau qui me suis lorsque je scrolle.

Mais j'aimerais également que les premières colonnes me suivent et je n'y arrive pas. L'idée est que l'utilisateur est en permanence accès au bouton de gauche lorsqu'il scrolle.

Avez vous une idée svp ?

Merci d'avance

 

[job75]

Bonjour Jgral,

Pourquoi ne pas placer les 3 boutons de gauche dans le volet figé ? Voyez le fichier joint.

J'ai dû insérer une colonne, il faudra peut-être modifier les macros, à vous de voir.

A+

 

[Jgral]

Merci pour votre retour.

Alors plusieurs choses :

- Il va y avoir plus de trois boutons en fait.
- Je voudrais éviter de trop charger le bandeau car les utilisateurs doivent avoir tout les outils à porter de clic sans naviguer de gauche à droite. Le tout en gardant un page dégager au maximum.

 

[sylvanu]

Bonjour Jgral, Job75,
Votre outil commence à prendre bien belle tournure.
Je pense qu'en terme d'ergonomie, le mieux est de laisser un maximum de surface à l'utilisateur. Donc à supprimer le bandeau gauche.
Il faudrait donc gagner de la place sur le bandeau supérieur.
Une idée en PJ pour montrer l'effet, qui permet de swapper des choix quand ils sont exclusifs ( RDC, 1er,2eme ... )
L'astuce est d'utiliser des shapes transparents, bords tranparents pour appeler une macro qui se charge de gérer l'affichage.

 

[Jgral]

Bonjour et merci de votre retour c'est vrai que c'est pas bête je vais regarder cela.

 

[job75]

Salut sylvanu,

- Je voudrais éviter de trop charger le bandeau

Il existe une solution très bourrin, j'hésite à vous la donner mais bon vous ferez ce que vous voulez.

Elle consiste à faire tourner en permanence une macro pour positionner les boutons quel que soit le Scroll !!!

Voyez le fichier (2) joint :

- la feuille est fractionnée en 4 volets, celui qui contient les boutons est le 3ème

- la macro dans ThisWorkbook :

Private Sub Workbook_Open()
Application.OnTime 1, "Deplacer_Boutons" 'lance la macro
End Sub

- la macro dans Module1 :

Sub Deplacer_Boutons()
Dim h#, mem#
With Sheets("Concepteur étude")
    Do
        DoEvents 'pour pouvoir continuer à agir
        If ActiveSheet.Name = .Name Then
            h = ActiveWindow.Panes(3).VisibleRange.Top
            If h <> mem Then
                mem = h
                Application.ScreenUpdating = False
                .OLEObjects("CommandButton1").Top = h
                .OLEObjects("CommandButton5").Top = h + 36
                .OLEObjects("CommandButton3").Top = h + 72
                'ajouter d'autres boutons en décalant de 36
                Application.ScreenUpdating = True
            End If
        End If
    Loop
End With
End Sub

Attention, quand cette macro tourne on ne peut pas modifier le VBA, il faut l'arrêter par le menu Exécution => Réinitialiser.

A+

 

[youky(BJ)]

Bonjour tous,
Puisqu'il faut sélectionner une cellule avant de clicker sur le bouton autant le faire que sur la sélection.
En mode création sélectionner tous les boutons et Grouper cela fait "Groupe 1"
et dans le code de l'onglet
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column <> 3 Then Exit Sub
Feuil1.Shapes("Groupe 1").Top = Selection.Top + 50
End Sub

Bruno

 

[sylvanu]

ReBonjour Jgral, Job75,
Une macro qui tourne en permanence n'est pas toujours l'optimum.
Une autre idée :
Comme à priori si j'ai bien compris, le support sera une tablette, on peut permettre à l'utilisateur quand il remplit la partie basse de masquer le bandeau ( voir PJ ). Ce qui augmente de facto la surface utile.
De cette façon on a plus de latitude sur le bandeau superieur pour y installer deux trois boutons supplémentaires.

 

[sylvanu]

Bien le bonjour Youky, désolé nos posts se sont croisés.

 

[Jgral]

Merci à tous pour vos contributions. C'est super !

La solution qui correspond parfaitement à ma recherche est celle de Job75.

J'entends que c'est bourrin de faire comme cela mais dans la mesure ou les utilisateurs n'auront pas à modifier le VBA mais simplement à utiliser le classeur est ce que cela vous paraît tout de même "bourrin" ?

 

[job75]

Oui c'est bourrin mais si cela vous convient vous pouvez utiliser cette solution.

Des processus en arrière-plan il y en a plein qui tournent en permanence, chez moi par exemple 122 en ce moment (Gestionnaire de tâches).

 

[Jgral]

Ok merci

 

[job75]

Une petite améioration dans ce fichier (3) pour éviter l'invite à la fermeture quand on ne fait que scroller :

Sub Deplacer_Boutons()
Dim h#, mem#, s As Boolean
With Sheets("Concepteur étude")
    Do
        DoEvents 'pour pouvoir continuer à agir
        If ActiveSheet.Name = .Name Then
            h = ActiveWindow.Panes(3).VisibleRange.Top
            If h <> mem Then
                mem = h
                s = ThisWorkbook.Saved 'mémorise l'état
                Application.ScreenUpdating = False
                .OLEObjects("CommandButton1").Top = h
                .OLEObjects("CommandButton5").Top = h + 36
                .OLEObjects("CommandButton3").Top = h + 72
                'ajouter d'autres boutons en décalant de 36
                Application.ScreenUpdating = True
                If s Then ThisWorkbook.Saved = True 'évite l'invite à la fermeture du fichier si aucune autre modification
            End If
        End If
    Loop
End With
End Sub

 

[Jgral]

J'ai un petit bug je sais pas ce que j'ai fait mais depuis 10 min ça ne fonctionne plus ...

Alors que je n'ai touché à rien.

Ca me sort cette erreur :

 

[job75]

C'est très simple : le 3ème volet - Panes(3) - n'existe pas, il faut les 4 volets donc figer aussi les colonnes A et B.

Si vous ne voulez que 2 volets il faut remplacer Panes(3) par Panes(2) dans la macro.

De plus pour le 2ème bouton vous aviez écrit dans la macro CommandButton5 au lieu de CommandButton6, voyez ce fichier (4).