Zone de texte et défilement

[Roblim]

Bonjour,
Je vous sollicite afin de savoir si il est possible de faire qu'une zone de texte soit toujours à l'écran quelquesoit la position sur un tableau qui comprend plusieurs lignes donc plusieurs écran

 

[Guest]

Re : Zone de texte et défilement

Bonjour,

Dans l'exemple ci-dessous, la zone de texte nommée Texte1 sera calée en haut et à gauche le la fenêtre de la feuille active sur sélection

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    With Me.Shapes("Texte1")
        .Top = ActiveWindow.Panes(1).VisibleRange.Range("A1").Top
        .Left = ActiveWindow.Panes(1).VisibleRange.Range("A1").Left
    End With
End Sub

A+

 

[Roblim]

Re : Zone de texte et défilement

ouf!!!!!!!!!!!!!
j'ai :
-nommé la zone
-recopié le code dans la feuille concernée (elle a un nom)
mais cela ne fonctionne pas.
-la ligne avec "texte1" sort en faute
Il faut dire que je suis d'une division trés inferieure
Il y a surement une action que j'ai zappé

 

[Guest]

Re : Zone de texte et défilement

Re,

Si tu donnais un exemple de ce que tu veux exactement nous éviterions de tourner en rond.

Le code précédent est à mettre dans le module de code de la feuille de la zone de texte: click-droit sur l'onglet de la feuille/Visualiser le code.

A+

 

[Roblim]

Re : Zone de texte et défilement

voici ce que j'ai dans le fichier

 

[Guest]

Re : Zone de texte et défilement

Re,

La zone de texte était simplement à renommée dans la zone des noms à gauche de la barre de formule.

Dans le fichier, la zone de texte ce place en haut, au niveau de la huitième colonne visible (H si A est la première).

A+

 

[Roblim]

Re : Zone de texte et défilement

Je te remercie.
Je n'avais pas vu que c'était le Clic sur une cellule qui occasionnait l'affichage.
En effet cela fonctionne