Code VBA ExcelRésolu/Fermé

Question

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

pilas31 · Answer

Bonjour,

Tout simplement ajouter ceci à la fin :

...
Target.Select
Application.ScreenUpdating = True 
End Sub

Code VBA Excel

1 réponse

Newsletters