Code VBA Excel [Résolu/Fermé]

Messages postés
66
Date d'inscription
jeudi 1 novembre 2007
Statut
Membre
Dernière intervention
16 octobre 2018
- - Dernière réponse : TOTO008
Messages postés
66
Date d'inscription
jeudi 1 novembre 2007
Statut
Membre
Dernière intervention
16 octobre 2018
- 16 oct. 2018 à 12:22
Bonjour,
Je souhaiterais corriger mon code VBA suivant...
Celui ci permet à mon graphique de descendre en même temps que je défile ma feuille excel par un simple clic.
Mon problème actuel : Quand je veux rentrer une valeur dans mon tableau je suis obligé de cliquer 2 fois sur une cellule pour pouvoir y intégrer du texte ou nombre...
Help me please,



Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'UpdatebyExtendoffice20161111
Dim CPos As Double
Application.ScreenUpdating = False
CPos = ActiveWindow.ScrollRow * ActiveCell.RowHeight
ActiveSheet.ChartObjects("Graphique 1").Activate
ActiveSheet.Shapes("Graphique 1").Top = CPos
ActiveWindow.Visible = False
Application.ScreenUpdating = True
End Sub
Afficher la suite 

1 réponse

Messages postés
1857
Date d'inscription
vendredi 5 septembre 2008
Statut
Contributeur
Dernière intervention
12 juillet 2019
532
0
Merci
Bonjour,

Tout simplement ajouter ceci à la fin :
...
Target.Select
Application.ScreenUpdating = True 
End Sub

TOTO008
Messages postés
66
Date d'inscription
jeudi 1 novembre 2007
Statut
Membre
Dernière intervention
16 octobre 2018
3 -
SUPER Merci beaucoup pour ta réponse