Rendre fixe un nota dans une feuille

Bonjour,

j'ai peaufiné pour le réutiliser une demande faite ici pour colorier des cases ... comme j'ai jouté un commentaire à l'attention des personnes, je souhaiterais que celui-ci reste visible même en faisant défiler la feuille ... avez-vous une solution ? je ne connais ni comment adresser la position du nota, ni comment capter le déplacement de la feuille.

Merci d'avance !

le nota est le suivant ;

Activer les macros

Sélectionner les cellules

Colorier par Ctrl+k

Bonjour

Une idée toute bête : sacrifier la cellule A1 :

Oui tu as raison si pas d'autres solutions ...

je me demandais s'il existait une solution que quelqu'un avait déjà expérimentée (comme en dhtml avec javascript).

Salut Steelson

Sur la base de ton fichier ... une proposition à adapter ...

J'espère que cela ressemble à ce que tu voulais ...

Merci très intéressant !

Sans abuser, y a t'il moyen de le faire juste en scrollant horizontalement ?

sinon, je prends cette solution ! merciiii Bond !

Steelson a écrit :

Merci très intéressant !

Sans abuser, y a t'il moyen de le faire juste en scrollant horizontalement ?

sinon, je prends cette solution ! merciiii Bond !

De rien ... merci de tes remerciements ...

Pour n'avoir que les déplacements horizontaux ... il te suffit de supprimer l'instruction .Top = Target.Top + 34

Bonjour,

Avec une minuterie et la zone de texte de Steelson. A mettre dans une module standard et à adapter la position voulue pour la zone de texte, Scroll dans les deux sens :

Dim Arreter As Boolean

Sub Fin()

    Arreter = True

End Sub

Sub Depart()

    Arreter = False
    Afficher

End Sub

Sub Afficher()

    On Error GoTo Fin
    With ActiveSheet.Shapes("ZoneTexte 1")

        .Top = Cells(ActiveWindow.ScrollRow, ActiveWindow.ScrollColumn).Top
        .Left = Cells(ActiveWindow.ScrollRow, ActiveWindow.ScrollColumn).Left

    End With

    Timer 'appel de la minuterie

Fin:

End Sub

Sub Timer()

    If Arreter = False Then

        Application.OnTime Now + TimeValue("00:00:01"), "Afficher"

    End If

End Sub

A mettre dans le module de ta feuille :

Private Sub Worksheet_Activate()

    Depart

End Sub

Private Sub Worksheet_Deactivate()

    Fin

End Sub

Hervé.

Oups,

C'est de James007 que je voulais parler mille excuses !

Hervé.

@ Hervé ... Salut

Je ne suis pas sûr de bien comprendre le message que tu m'adresses ...

merci pour l'idée, excellent !

Bonjour tout le monde, bonjour James,

Avec une minuterie et la zone de texte de Steelson...

alors que c'est toi qui a fourni le classeur avec la zone de texte, je me suis mélangé les pinceaux c'est pourquoi j'ai rectifié le nom, après ne faut il pas rendre à César ce qui appartient à César ?

Bonne journée à tout le monde !

Hervé.

Bonjour,

@ Hervé ... merci pour la clarification ...

Steelson a adopté ta très jolie astuce de minuterie ...!!!

@Theze

au lancement, si la feuille est déjà active, le processus de repositionnement ne fonctionne pas.

Je pense qu'il faut donc ajouter

Private Sub Workbook_Open()
    Depart
End Sub

voire même tester la feuille active avant de lancer Depart ...

merci beaucoup pour cette réalisation que je combine aussi avec celle de James pour une autre zone de texte avec l'aménagement suivant :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  With ActiveSheet.Shapes("ZoneTexte 1")
      .Left = Target.Offset(0, 1).Left + 4
      .Top = Target.Offset(1, 0).Top + 4
  End With
End Sub