Manon Perron
XLDnaute Nouveau
Bonsoir à tous,
Voici un code de @+Thierry que j'ai trouvé dans le forum.
Le code de @+Thierry est super mais j'aimerais au besoin pouvoir aller dans les colonnes A et M.
Alors la ruse c'est quoi ???
--------------------------------------------------------------------
La question était :
J'aimerais pouvoir en "Tabulant" me déplacer de la colonne A à H puis à la colonne H revenir à
la colonne A-------------- (dans mon cas Colonne B à L)
Ton Code:
A Placer dans le Private Module de La Feuille en Question :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Ligne As Integer
If Not Application.Intersect(Target, Range("I:I")) Is Nothing Then
Ligne = Target.Row + 1
Range("A" & Ligne).Activate
End If
End Sub
En clair, dès que tu arriveras en Colonne "I" tu seras "éjectée" en Colonne "A", Une ligne en
dessous... Et Hop là !!!
Mais par contre fini les ballades dans la colonne "I"..... ... Sinon faut encore ruser !!
-------------------------------------------------------------------------
Merci de bien vouloir m'éclairer.
Manon
Voici un code de @+Thierry que j'ai trouvé dans le forum.
Le code de @+Thierry est super mais j'aimerais au besoin pouvoir aller dans les colonnes A et M.
Alors la ruse c'est quoi ???
--------------------------------------------------------------------
La question était :
J'aimerais pouvoir en "Tabulant" me déplacer de la colonne A à H puis à la colonne H revenir à
la colonne A-------------- (dans mon cas Colonne B à L)
Ton Code:
A Placer dans le Private Module de La Feuille en Question :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Ligne As Integer
If Not Application.Intersect(Target, Range("I:I")) Is Nothing Then
Ligne = Target.Row + 1
Range("A" & Ligne).Activate
End If
End Sub
En clair, dès que tu arriveras en Colonne "I" tu seras "éjectée" en Colonne "A", Une ligne en
dessous... Et Hop là !!!
Mais par contre fini les ballades dans la colonne "I"..... ... Sinon faut encore ruser !!
-------------------------------------------------------------------------
Merci de bien vouloir m'éclairer.
Manon