Microsoft 365 Navigation dans Excel

Remy003

XLDnaute Nouveau
Hello,
Je souhaiterai avoir une navigation dans excel (comme celle de word).
J'ai fait une zone de texte avec ma table des matières et des liens hypertextes qui me renvoient vers mes chapitres.
Le problème; quand je fais défiler (j'ai plus de 2000 lignes) ma zone de texte de défile pas avec.
Est-ce possible de faire défiler aussi ma zone avec un code VBA ?
merci
 
Solution
Bonjour,
En créant de zones de textes dans une zone de texte et en mettant un bout de code au niveau de l'évènement Worksheet_SelectionChange c'est pas super mais cela fonctionne (Mais pas tout le temps) :(

VB:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Intersect(Target, Range("D:D")) Is Nothing Then
        Me.Shapes.Range("Table matière").Top = Target.Top
    End If
End Sub

scraper

XLDnaute Nouveau
Hello,
Je souhaiterai avoir une navigation dans excel (comme celle de word).
J'ai fait une zone de texte avec ma table des matières et des liens hypertextes qui me renvoient vers mes chapitres.
Le problème; quand je fais défiler (j'ai plus de 2000 lignes) ma zone de texte de défile pas avec.
Est-ce possible de faire défiler aussi ma zone avec un code VBA ?
merci
Bonjour Remy003
Spécialisé en VBA pour word et excel. Pour bien comprendre le problème je voudrais avoir votre fichier Excel anonymisé et les liens incorporés (fonctionnement et méthode de création). Une fois le fichier disponible, un défilement dans une listbox inséré dans un userform vous conviendrait t'il?
 

Valtrase

XLDnaute Occasionnel
Bonjour,
En créant de zones de textes dans une zone de texte et en mettant un bout de code au niveau de l'évènement Worksheet_SelectionChange c'est pas super mais cela fonctionne (Mais pas tout le temps) :(

VB:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Intersect(Target, Range("D:D")) Is Nothing Then
        Me.Shapes.Range("Table matière").Top = Target.Top
    End If
End Sub
 

Pièces jointes

  • Excel_navigation.xlsm
    28.7 KB · Affichages: 13

Remy003

XLDnaute Nouveau
Bonjour
J'ai un petit problème, lorsque je filtre (via le regroupement) , la table des matières devient illisible :
1713945788471.png


Est-ce qu'il y a une solution pour cela ?

Merci d'avance :)

Rémy
 

Valtrase

XLDnaute Occasionnel
Bonjour,
Il faut sélectionner le groupe "Table matière" cf. image ci-dessous
000513.png

Ensuite dans taille et propriété sélectionner ne pas déplacer ou dimensionner avec les cellules cf. image ci-dessous :
000514.png


Attention de bien sélectionner Table matière et non pas ZoneTexte 1
 

Remy003

XLDnaute Nouveau
Bonjour,
J'ai encore un petit problème (désolé, je pensais +- maitriser Excel, mais je me rends compte que je suis vraiment nul).
J'essaye d'ajouter des chapitres mais mes zones de textes ne sont pas liées à mon image.
Quand je déplace l'image, la zone de texte ne se déplace pas (alors que celles que tu as créé, oui) :
1714740143856.png


peux tu me dire comment faire ?
 

Valtrase

XLDnaute Occasionnel
Bonjour à tous,
Oui pour ajouter tu dissocie, puis tu ajoutes et ensuite tu regroupe.
Pour égaliser les formes d'un chapitre utilises : Dans l'onglet Format de forme, groupe Organiser, Aligner puis distribuer verticalement. Mais il serais plus facile de le faire par Menu Non ?
 

Valtrase

XLDnaute Occasionnel
Bonjour à tous,
Oui pour un novice cela peut paraître un peu compliqué. Voici quand même quelques liens pour la gestion du ruban :
Ruban : gestion de l'interface
Ruban : gestion des Callbacks
Et aussi des utilitaires pour la création ou modification du ruban :
Gestion avec Access
RibbonCreator 2021
Attention RibbonCreator n'est pas capable de modifier un fichier qui contient des macros, le ruban sera bien créé, mais tout le code va être remplacer par les Callbacks de RibonCreator.

Ici un autre exemple avec un menu dynamique qui peut être définie dans le tableau vt_TableMatieres de la feuille Settings.
J'ai commenté toutes les lignes qui ne sont pas utiles, le code s'en trouve raccourcis.
 

Pièces jointes

  • New button.xlsm
    42.6 KB · Affichages: 1

Discussions similaires

Statistiques des forums

Discussions
314 716
Messages
2 112 159
Membres
111 447
dernier inscrit
jasontantane