Tableau flottant

[DJARNAUD]

Bonjour à tous,

je cherche à créer un tableau "flottant" sur une feuille excel, de manière a ce que l'image du tableau descende au fur et à mesure que je descende sur ma feuille.
Aprés avoir chercher sur internet, j'ai trouvé ce début de macro:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If ActiveCell.Row > 5 And ActiveCell.Row < 50 Then
Shapes("image 3").Top = Target.Top + 10

Else
Shapes("image 3").Top = Rows(50).Top

End If

End Sub


Le probléme est qu'en l'état la macro ne fonctionne pas. De plus, la macro est elle active dès l'ouverture du tableau excel?

D'avance merci pour votre aide.

 

[piga25]

Bonjour,

J'ai trouvé cela un jour, mais désolé je n'ai pas noté la source (pas bien)

En faisant une copie de ton tableau en image avec l'appareil photo ( les données sont actualisées en temps réel dans ton image):
ensuite tu peux déplacer ton image manuellement ou avec un code vba à mettre dans le module de la feuille concernée en faisant Alt F11 pour y accéder:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 Dim ecran
 Set ecran = ActiveWindow.VisibleRange
 With ActiveSheet
 Shapes("Image 1").Left = ecran.Left + 200 ' adapter le nom de l'image et les dimensions
 Shapes("Image 1").Top = ecran.Top + 50
 End With
End Sub

 

[DJARNAUD]

Merci piga 25 pour votré réponse.
En copiant le code, et en appuyant sur lecture, excel me demande un nom de macro?

Je ne comprends pas

 

[eriiic]

Bonjour,

en appuyant sur lecture ?
Ces 2 macros s'activent en changeant la sélection sur la feuille.
Et l'objet doit avoir le même nom sur la feuille et dans la macro.
eric

 

[piga25]

Bonjour,
Pour avoir l'icone appareil photo :

Présentation
Cette commande fonctionne un peu comme l'outil "Capture", avec des avantages supplémentaires.
Nous donnons ici la procédure pour Excel 2010, à adapter aux autres versions.
Récupérer la commande
Elle n'est pas disponible par défaut dans les barres d'outils, et il faut donc commencer par l'ajouter à la barre d'outils Accès rapide :

• Personnaliser la barre d'outils Accès rapide - tout en haut de la fenêtre, petit triangle à droite des icônes
• Autres commandes
• Colonne centrale, remplacer "Commandes courantes" par "Toutes les commandes"
• Faire défiler les commandes jusqu'à "Appareil photo" et faire un double-clic dessus
• Valider avec le bouton [OK]
  

Mettre en oeuvre la commande


Pour l'utiliser, sélectionner une plage de cellules, puis cliquer sur l'icône "Appareil photo", aller dans le fichier et la feuille de destination et cliquer : on voit s'afficher l'image dynamique de la plage sélectionnée ; comme une image, on peut la faire glisser, modifier ses dimensions, la recopier, la faire pivoter, bref lui appliquer tous les formats d'image ; cependant toute modification de la source (format, formule, donnée) se répercute instantanément sur l'image ; et un simple double-clic sur l'image nous ramène à la source !

On peut ainsi juxtaposer des morceaux de fichiers en les disposant à sa convenance dans une nouvelle feuille, pour réaliser une synthèse ou une démonstration.

Ce n'est pas génial ?

Le code est a mettre dans la feuille, voir fichier joint

 

[DJARNAUD]

Merci eriiic et pita pour vos reponses.
Comment faites vous pour activer la macro ? Je ne vois rien dans VBA ?
De plus est il possible descende sans que l'on ait besoin de cliquer ?
D'avance merci

 

[piga25]

Bonsoir,
Le code se déclenche automatiquement des qu'il y a un changement dans la feuille. On appel cela une macro événementielle

 

[DJARNAUD]

D'accord, merci piga25.
Une dernière question, est il possible de faire que le tableau flottant bouge, lorsque je descend dans la feuille, et non pas quand je double clique dans une cellule?

Merci

 

[eriiic]

Bonjour,

non, un scrolling n'est pas détectable.
Un simple clic suffit, le but est de changer la sélection.
eric

 

[DJARNAUD]

ok, merci beaucoup!!!

 

[pilou010]

Bonjour,
Je cherche à faire faire descendre un récapitulatif de tableau et la solution proposée ici me convient nickel. Je bute juste sur le contenu de la macro et le fait de pouvoir remplacer l'image par celle de mon choix. Je suis sous Mac.
Si une bonne volonté peut m'éclairer ????
Merci
Pilou

 

[DJARNAUD]

Bonjour pilou010,

une pièce jointe faciliterai la tâche

 

[pilou010]

Bonjour à tous,
En fait j'ai trouvé la solution concernant l'image flottante dans les réponses ci-dessus. J'ai donc mis en PJ un fichier pour exemple car c'est en fait un segment d'un tableau que je souhaiterai rendre "flottant".
J'espère me faire comprendre...
Merci de vos propositions éventuelles.
Pilou

 

[bof]

Bonjour,
Bah... Tu t'embêtes bien ! Pourquoi ne pas monter ton truc comme ça :

Et pas besoin de macro...
Nota : J'ai rajouté un 5500 négatif sur la cellule sélectionnée pour vérification...
A+

 

[pilou010]

Bonjour,
Oui effectivement c'est nickel.
J'ai en fait découvert la mise en forme du segment que j'ignorais
Merci au forum et à vos réponses.
Pilou