Microsoft 365 Sélectionner une cellule

[Alain 79]

Bonsoir le forum,
J'ai un tableau qui comprend plus de 100 colonnes, Il est figé à la 4éme colonne du tableau à la 1ére ligne sous les titres.
Lorsque je suis sur une cellule quelconque des colonnes A, B ou C, je souhaiterai qu'en cliquant sur un bouton affecté à une macro destinée à sélectionnée la cellule sur la même ligne colonne G, par exemple, la cellule correspondante s'affiche à côté de le colonne C.
Pour ce faire, en utilisant la macro :
Cells(ActiveCell.Row, "G").Select
Je sélectionne bien ma cellule correspondante en colonne G mais elle n'est pas ramenée à côté de la colonne C
Je joins un petit fichier qui sera peut-être plus parlant que mes explications
Par avance, merci pour votre aide

 

[job75]

Bonsoir Alain 79,

Sub AtteindreG()
    Cells(ActiveCell.Row, "G").Select
    ActiveWindow.ScrollColumn = ActiveCell.Column
End Sub

Sub AtteindreK()
    Cells(ActiveCell.Row, "K").Select
    ActiveWindow.ScrollColumn = ActiveCell.Column
End Sub

A+

 

[Alain 79]

Bonsoir job75,
Merci pour la réponse rapide et efficace.
Ce n'était pas compliqué, mais fallait-il connaitre la commande.

 

[chris]

Bonjour à tous
Une autre

Sub AtteindreG()
    ActiveWindow.SmallScroll ToLeft:=16383
    ActiveWindow.SmallScroll ToRight:=3
End Sub

Sub AtteindreK()
    ActiveWindow.SmallScroll ToLeft:=16383
    ActiveWindow.SmallScroll ToRight:=7
End Sub

 

[Alain 79]

Bonsoir Chris,
Merci pour la réponse, mais elle ne fonctionne pas chez moi.
En revanche, si j'utilise ma 1ére commande (Cells(ActiveCell.Row, "K").Select) puis
ActiveWindow.SmallScroll ToRight:=7
Ça fonctionne, mais il faut compter le nombre de cellule à déduire.
La solution de job75 se trouve plus efficace et rapide à mettre en oeuvre.

 

[chris]

RE
Une parenthèse s'était glissée en copiant : corrigé

Marche sans souci sur ton fichier et mon Excel 365