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: 12

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 ?
 

Discussions similaires

Membres actuellement en ligne

Statistiques des forums

Discussions
312 321
Messages
2 087 266
Membres
103 501
dernier inscrit
talebafia