Selection de ligne 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

 

[Pierrot93]

Re : Selection de ligne sur changement d'onglet

Bonjour Damoiselle,

regarde les codes ci dessous :


à placer dans un module standard :

Public a As Range

Dans le module de ta feuille 1 :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count = 1 Then Set a = Target
End Sub

dans le module de la feuille 2 :

Private Sub Worksheet_Activate()
'pour la ligne
Rows(a.Row).Select
' ou pour la cellule
'Range(a.Address).Select
End Sub

bon après midi
@+