Sous EXCEL 97, je voudrais faire en sorte qu'une image soit *toujours visible* à
l'écran, c'est-à-dire qu'elle apparaisse systématiquement (par ex. en haut à
droite de l'écran), quelle que soit la portion de feuille en cours d'affichage
(comme on le voit dans certaines pages Web, où une image "suit" les mouvements
Haut/Bas de l'ascenseur).
Est-ce possible ?
Je n'ai pas trouvé de solution (à part de placer l'image dans un volet haut et
de figer les volets, ce qui ne me satisfait pas).
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
abcd
dans un module VBA:
sub PlacerMonImage Me.Shapes(1).Left = ActiveWindow.Left + ActiveWindow.Width _ - Me.Shapes(1).Width - 40 Me.Shapes(1).Top = Me.Rows(ActiveWindow.ScrollRow).Top end Sub
dans les événements de la feuille:
Private Sub Worksheet_SelectionChange(ByVal Target As Range) PlacerMonImage End Sub
puis éventuellement ajoute cette macro sur d'autres événements pour faire plus souvent la mise à jour. Tu as deux exemples: en hauteur, placé par rapport au zéro (le plus facile à faire idem à gauche a vec left au lieu de top)
puis pour la largeur, exemple plus dur: il faut trouver la bonne position gauche en fonction des largeurs... et là on n'a pas directemen t l'info du bord droit de la feuille mais seulement de la fenêtre (à la largeur de la barre de défilement près, on a le bord droit).
dans un module VBA:
sub PlacerMonImage
Me.Shapes(1).Left = ActiveWindow.Left + ActiveWindow.Width _
- Me.Shapes(1).Width - 40
Me.Shapes(1).Top = Me.Rows(ActiveWindow.ScrollRow).Top
end Sub
dans les événements de la feuille:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
PlacerMonImage
End Sub
puis éventuellement ajoute cette macro sur d'autres événements pour
faire plus souvent la mise à jour. Tu as deux exemples: en hauteur,
placé par rapport au zéro (le plus facile à faire idem à gauche a vec
left au lieu de top)
puis pour la largeur, exemple plus dur: il faut trouver la bonne
position gauche en fonction des largeurs... et là on n'a pas directemen t
l'info du bord droit de la feuille mais seulement de la fenêtre (à la
largeur de la barre de défilement près, on a le bord droit).
sub PlacerMonImage Me.Shapes(1).Left = ActiveWindow.Left + ActiveWindow.Width _ - Me.Shapes(1).Width - 40 Me.Shapes(1).Top = Me.Rows(ActiveWindow.ScrollRow).Top end Sub
dans les événements de la feuille:
Private Sub Worksheet_SelectionChange(ByVal Target As Range) PlacerMonImage End Sub
puis éventuellement ajoute cette macro sur d'autres événements pour faire plus souvent la mise à jour. Tu as deux exemples: en hauteur, placé par rapport au zéro (le plus facile à faire idem à gauche a vec left au lieu de top)
puis pour la largeur, exemple plus dur: il faut trouver la bonne position gauche en fonction des largeurs... et là on n'a pas directemen t l'info du bord droit de la feuille mais seulement de la fenêtre (à la largeur de la barre de défilement près, on a le bord droit).
