Excel VB Action sur changement d'onglet

[Damoiselle]

Bonjour

J'ai deux onglet.
Je selectionne une ligne sur un onglet 1.
Je change d'onglet et passe à l'onglet 2
Je souhaite voir la même ligne (même numéro) sélectionnée sur le second onglet.
J'ai écrit le code mais il plante :

Private Sub Worksheet_Activate()
NomFichier = ActiveWorkbook.Name
If Workbooks(NomFichier).Worksheets(1).Selection.Row > 0 Then
Workbooks(NomFichier).Worksheets(2).Rows(Workbooks(NomFichier).Worksheets(1).Selection.Row).Select
End If
End Sub

Quelqu'un aurait-il une solution ?
merci

 

[tirex28]

Re : Excel VB Action sur changement d'onglet

Bonjour,

Dans un module standard:

Public NumLigne As Long

Dans le module des feuilles 1 et 2:

Private Sub Worksheet_Activate()
    If NumLigne > 0 Then Rows(NumLigne).Select
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    NumLigne = Target.Row
End Sub

A tester.

Cordialement,

Tirex28/

 

[Pierrot93]

Re : Excel VB Action sur changement d'onglet

Bonjour Damoiselle, Tirex

double post, auquel tu n'as d'ailleurs pas donné suite...

https://www.excel-downloads.com/threads/selection-de-ligne-sur-changement-donglet.85597/

bonne journée
@+

Edition :supprimer