Code VBA Excel

Résolu/Fermé

TOTO008 Messages postés 75 Date d'inscription jeudi 1 novembre 2007 Statut Membre Dernière intervention 12 mars 2024 - 16 oct. 2018 à 10:59
TOTO008 Messages postés 75 Date d'inscription jeudi 1 novembre 2007 Statut Membre Dernière intervention 12 mars 2024 - 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

A voir également:

Code VBA Excel
Liste déroulante excel - Guide
Formule excel - Guide
Code asci - Guide
Si et excel - Guide
Code puk bloqué - Guide

1 réponse

Réponse 1 / 1

pilas31 Messages postés 1825 Date d'inscription vendredi 5 septembre 2008 Statut Contributeur Dernière intervention 24 avril 2020 643
16 oct. 2018 à 12:17

Bonjour,

Tout simplement ajouter ceci à la fin :

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

TOTO008 Messages postés 75 Date d'inscription jeudi 1 novembre 2007 Statut Membre Dernière intervention 12 mars 2024 3
16 oct. 2018 à 12:22

SUPER Merci beaucoup pour ta réponse

Discussions similaires

Code de renvoi d'appel : Ooredo, Mobilis...

Discussions similaires

Newsletters