Fixer des cellules

C'est pour une activité annuelle donc 365 lignes sur 5 colonnes. Il y a uniquement un scroling vertical.

Mon est positionné en haut à droite de ma feuille. Je souhaiterais que lors de la rentrée de données dans les colonnes de gauche, le graph ne bouge pas.

Dimensions du graph 6 colonnes sur 30 lignes que je peux éventuellement redimensionner.

Merci

bonsoir,

Faire un clic droit sur l'onglet de la feuille concernée + Visualiser le code et y coller la macro suivante :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveSheet.Shapes(1).Top = Target.Top
End Sub

Avec un peu de chance, ça devrait suffire !

A+

Bonsoir

je n'ai pas trop compris aussi desolé si je reponds a coté:

as tu essayer en allant dans les propriete du graphique et en cochant "ne pas deplacer avec les cellule"?

cordialement

7v3.xlsm (171.22 Ko)

Salut le forum

DPinion a écrit :

Bonsoir,

Suite à la réponse de galopin 01

Msg : Erreur d'exécution '-2147024809 (80070057)':

l'index de cette collection est en dehors des limites.

Avant de coller le code que vous me proposez, il est nécessaire de selectionner mon graph ? Ou alors, la position du curseur n'a pas d'importance.

Merci

Mytå

re le forum

Tu n'as qu'à cliquer sur ce lien : Joindre un fichier pour que l'on puisse t'aider, et recopier l'adresse sur ta ficelle.

Mytå

Mytå a écrit :

re le forum

Tu n'as qu'à cliquer sur ce lien : Joindre un fichier pour que l'on puisse t'aider, et recopier l'adresse sur ta ficelle.

Mytå

Ok, je fais parvenir mon fichier ce mardi soir.

Bonne nuit

DPinon a écrit :
Mytå a écrit :

re le forum

Tu n'as qu'à cliquer sur ce lien : Joindre un fichier pour que l'on puisse t'aider, et recopier l'adresse sur ta ficelle.

Mytå

Ok, je fais parvenir mon fichier ce mardi soir.

Bonne nuit

Bonsoir,

Voici mon fichier :

https://www.excel-pratique.com/~files/doc/Fichier_test.xls

Je souhaite que les colonnes A B C D soient indépendantes du reste des colonnes de la feuille.

Merci

bonjour,

personnellement je n'ai pas de problème.

Néanmoins tu peux modifier la mcro comme suit :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Row > 15 Then
ActiveSheet.Shapes(1).Top = Target.Top
Else
ActiveSheet.Shapes(1).Top = Range("A16").Top
End If
End Sub

rappel : cette macro doit être collée dans le module de la feuille concernée :

Clic droit sur l'onglet + Visualiser le code.

ensuite tout déplacement dans la feuille déplacera ton graph

La

A+

galopin01 a écrit :

bonjour,

personnellement je n'ai pas de problème.

Néanmoins tu peux modifier la mcro comme suit :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Row > 15 Then
ActiveSheet.Shapes(1).Top = Target.Top
Else
ActiveSheet.Shapes(1).Top = Range("A16").Top
End If
End Sub

rappel : cette macro doit être collée dans le module de la feuille concernée :

Clic droit sur l'onglet + Visualiser le code.

ensuite tout déplacement dans la feuille déplacera ton graph

La

A+

[Résolu]

Le résultat me va. Merci à ceux qui se sont penchés sur mon problème.

Cordialement.

Rechercher des sujets similaires à "fixer"