Actualisation requête & selection de la cellule modifiée

Question

J'utilise ce code afin d’actualisé à chaque changement d'une des cellules des colonnes Exepmle1 ou Exemple2, ma requête : Private Sub Worksheet_Change(ByVal Target As Range) Application.ScreenUpdating = False Set KeyCells = Union(Range("t_Exemple&#91;Exemple1&#93;"), Range("t_Exemple&#91;Exemple2&#93;")) On Error Resume Next If Not Intersect(Target, KeyCells) Is Nothing Then Application.EnableEvents = False Range("t_Exemple").ListObject.QueryTable.Refresh BackgroundQuery:=False Application.EnableEvents = True End If Target.Select End Sub Le hic c'est que je souhaite, aprés la fin de l'opération de rafraichissement, revenir sur la cellule en dessous de celle modifiée, Merci d'avance, Cordialement...

Jean-Eric · Accepted Answer

Re,
Macro fonctionnelle !
Pour la démonstration, j'ai modifié le déplacement de la sélection après validation (options avancées).
Par défaut, c'est "en bas", j'ai mis à "à droite".
On sélectionne bien la cellule row + 1.
C'est peut-être en effet, un souci de version Excel.
Un nouvel intervenant sous 2016, 2019 ou 2021 serait apprécié ! 😉
Cdlt.

saboh12617 · Answer

Peut etre quelque chose comme ça ? Private Sub Worksheet_Change(ByVal Target As Range) Dim currSel As Range Set currSel = Selection Application.ScreenUpdating = False Set KeyCells = Union(Range("t_Exemple&#91;Exemple1&#93;"), Range("t_Exemple&#91;Exemple2&#93;")) On Error Resume Next If Not Intersect(Target, KeyCells) Is Nothing Then Application.EnableEvents = False Range("t_Exemple").ListObject.QueryTable.Refresh BackgroundQuery:=False Application.EnableEvents = True currSel.Offset(1).Select End If End Sub...

saboh12617 · Answer

Ah… J'ai un peu du mal à saisir. Si vous mettez DoEvents comme ceci, il y a encore le problème ? Private Sub Worksheet_Change(ByVal Target As Range) Dim currSel As Range Set currSel = Selection Application.ScreenUpdating = False Set KeyCells = Union(Range("t_Exemple&#91;Exemple1&#93;"), Range("t_Exemple&#91;Exemple2&#93;")) On Error Resume Next If Not Intersect(Target, KeyCells) Is Nothing Then Application.EnableEvents = False Range("t_Exemple").ListObject.QueryTable.Refresh BackgroundQuery:=False Application.EnableEvents = True DoEvents currSel.Offset(1).Select End If End Sub...

saboh12617 · Answer

Oui c'est vrai que les Query se sélectionnent à la fin… Mais excusez-moi, vous relancez une requête à chaque fois que vous modifiez des valeurs ?? Ne serait-ce pas plus simple de lancer une requête une fois tout modifié ? C'est assez "lourd" comme procédure.

Sinon peut être qu'on pourrait mettre un "temps d'attente", mais c'est vraiment pas terrible je trouve. A mon avis le problème se situe autre part, quand vous exécutez le code ci-dessous, que vous affiche la fenêtre immédiate ?

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim currSel As Range
    Set currSel = Selection
    Debug.Print "t:",Target.Address
    Debug.Print "c:", currSel.Address

    Application.ScreenUpdating = False

    Set KeyCells = Union(Range("t_Exemple[Exemple1]"), Range("t_Exemple[Exemple2]"))

    If Not Intersect(Target, KeyCells) Is Nothing Then

        Range("t_Exemple").ListObject.QueryTable.Refresh BackgroundQuery:=False

        DoEvents
        currSel.Offset(1).Select
        Debug.Print "s:", Selection.Address
    End If
End Sub

Jean-Eric · Answer

Bonjour,
Peux-tu essayer ceci et me redire ?
Cdlt.

Dim WithEvents QT As QueryTable
Dim ACell As Range

Private Sub Worksheet_Change(ByVal Target As Range)
    Application.ScreenUpdating = False
    Set KeyCells = Union(Me.Range("t_Exemple[Exemple1]"), Me.Range("t_Exemple[Exemple2]"))
    Set ACell = Target
    If Not Intersect(ACell, KeyCells) Is Nothing Then
        Application.EnableEvents = False
        Set QT = Me.ListObjects("t_exemple").QueryTable
        QT.Refresh BackgroundQuery:=False
        Application.EnableEvents = True
    End If
End Sub

Private Sub QT_AfterRefresh(ByVal Success As Boolean)
    ACell.Offset(1).Select
End Sub

Jean-Eric · Answer

Re, Que retourne ? Private Sub QT_AfterRefresh(ByVal Success As Boolean) MsgBox ACell.Parent.Name MsgBox ACell.Address & " : " & ACell.Value End Sub...

Jean-Eric · Answer

Re, Un petit classeur pour étudier la chose ? Cdlt...

saboh12617 · Answer

Perso j'ai aucun problème avec le fichier. Le tableau n'est pas sélectionné…

Il y a juste à corriger le currSel.Offset(1).Select à la fin, qu'on peut supprimer même puisque le tableau n'est pas sélectionné. Etrange. @JeanEric aura (j'espère) des explications mais moi je sèche !