Merci =E0 Ced et Jean-Fran=E7ois pour la macro suivante qui=20
permet de changer de feuille sans changer de ligne active,=20
seulement je n'ai plus la possibilit=E9 de modifier les=20
cellules (hors colonne A) car le curseur se replace=20
automatiquement dans la premi=E8re colonne.
Private Sub Worksheet_SelectionChange(ByVal Target As=20
Range)
=20
Dim x As Double
Dim y As Double
Dim NbreFeuilles As Integer
Dim FeuilSelection=E9e As String
=20
=20
If Selection.Count =3D 1 Then
=20
If y <> Target.Row Then
=20
Application.ScreenUpdating =3D False
=20
NbreFeuilles =3D Sheets.Count
FeuilSelection=E9e =3D ActiveSheet.Name
y =3D Target.Row
=20
For i =3D 1 To NbreFeuilles
=20
Sheets(i).Activate
'x =3D Target.Column
Sheets(i).Cells(y, 1).Select
=20
Next i
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Jean-François Aubert
Salut ipocket,
je n'ai plus la possibilité de modifier les cellules (hors colonne A) car le curseur se replace automatiquement dans la première colonne.
Il suffit de: - décommenter la ligne x = Target.Column - remplacer le "1" par "x" de la ligne Sheets(i).Cells(y, 1).Select
(pour que les feuilles se déplacent verticalement ensembles).
Là, je suppose que tu aimerais que les autres feuilles "scrollent" sur la cellule sélectionnée ? Cela peut se faire, mais je n'ai pas encore réussi à remettre la main sur le code qui le ferait !! Peut-être que quelqu'un l'a dans un tiroir ? -- Amicalement
Jean-François Aubert {Vaudois de la Côte Lémanique}
"ipocket" a écrit dans le message de news:3ba101c3408c$381168d0$ Merci à Ced et Jean-François pour la macro suivante qui permet de changer de feuille sans changer de ligne active, seulement je n'ai plus la possibilité de modifier les cellules (hors colonne A) car le curseur se replace automatiquement dans la première colonne.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim x As Double Dim y As Double Dim NbreFeuilles As Integer Dim FeuilSelectionée As String
If Selection.Count = 1 Then
If y <> Target.Row Then
Application.ScreenUpdating = False
NbreFeuilles = Sheets.Count FeuilSelectionée = ActiveSheet.Name y = Target.Row
je n'ai plus la possibilité de modifier les
cellules (hors colonne A) car le curseur se replace
automatiquement dans la première colonne.
Il suffit de:
- décommenter la ligne
x = Target.Column
- remplacer le "1" par "x" de la ligne
Sheets(i).Cells(y, 1).Select
(pour que les feuilles se déplacent
verticalement ensembles).
Là, je suppose que tu aimerais que les autres feuilles
"scrollent" sur la cellule sélectionnée ?
Cela peut se faire, mais je n'ai pas encore réussi à remettre la main sur le code qui le ferait !!
Peut-être que quelqu'un l'a dans un tiroir ?
--
Amicalement
Jean-François Aubert
{Vaudois de la Côte Lémanique}
"ipocket" <ipocket@free.fr> a écrit dans le message de
news:3ba101c3408c$381168d0$a601280a@phx.gbl...
Merci à Ced et Jean-François pour la macro suivante qui
permet de changer de feuille sans changer de ligne active,
seulement je n'ai plus la possibilité de modifier les
cellules (hors colonne A) car le curseur se replace
automatiquement dans la première colonne.
Private Sub Worksheet_SelectionChange(ByVal Target As
Range)
Dim x As Double
Dim y As Double
Dim NbreFeuilles As Integer
Dim FeuilSelectionée As String
If Selection.Count = 1 Then
If y <> Target.Row Then
Application.ScreenUpdating = False
NbreFeuilles = Sheets.Count
FeuilSelectionée = ActiveSheet.Name
y = Target.Row
je n'ai plus la possibilité de modifier les cellules (hors colonne A) car le curseur se replace automatiquement dans la première colonne.
Il suffit de: - décommenter la ligne x = Target.Column - remplacer le "1" par "x" de la ligne Sheets(i).Cells(y, 1).Select
(pour que les feuilles se déplacent verticalement ensembles).
Là, je suppose que tu aimerais que les autres feuilles "scrollent" sur la cellule sélectionnée ? Cela peut se faire, mais je n'ai pas encore réussi à remettre la main sur le code qui le ferait !! Peut-être que quelqu'un l'a dans un tiroir ? -- Amicalement
Jean-François Aubert {Vaudois de la Côte Lémanique}
"ipocket" a écrit dans le message de news:3ba101c3408c$381168d0$ Merci à Ced et Jean-François pour la macro suivante qui permet de changer de feuille sans changer de ligne active, seulement je n'ai plus la possibilité de modifier les cellules (hors colonne A) car le curseur se replace automatiquement dans la première colonne.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim x As Double Dim y As Double Dim NbreFeuilles As Integer Dim FeuilSelectionée As String
If Selection.Count = 1 Then
If y <> Target.Row Then
Application.ScreenUpdating = False
NbreFeuilles = Sheets.Count FeuilSelectionée = ActiveSheet.Name y = Target.Row
