XL 2019 focus sur sheet

[yannick.laurent2]

bonjour,
j'ai un code qui devrais me permettre d'activer feuille consultée en amont.
En code sur le document j'ai :

Private Sub Workbook_Open()
Dim nomfiche As Worksheet
End Sub

Sur la première feuille consultée :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
   nomfiche = ActiveSheet.Name
   If Not Intersect(Target, Range("a5:a33")) Is Nothing Then
      FromFichTech = True
      Beep
      Sheets("Mercuriale").Activate
   End If
End Sub

Et sur la feuille qui doit renvoyer sur la première :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
   If Not FromFichTech Or Not IsNumeric(Target.Offset(, 2)) Then Exit Sub
   Worksheets(nomfiche).active
   ActiveCell = Target.Value
   ActiveCell.Offset(, 1) = Target.Offset(, 1).Value
   ActiveCell.Offset(, 3) = Target.Offset(, 2).Value
End Sub

Sauf que cela ne fonctionne pas !
Des idées ,des pistes ?
Merci par avance pour votre aide.
@+

 

[job75]

Bonsoir yannick.laurent2, bienvenue sur XLD,

Pour qu'une variable xxx soit mémorisée il faut la déclarer :

- Dim xxx en haut de la page de code VBA pour qu'elle soit utilisable dans les autres macros de la même page

- Public xxx en haut d'un module standard pour qu'elle soit utilisable partout.

A+

 

[Staple1600]

Bonsoir le fil, yannick, job75

=>yannick
En complément

Excel toussera avec
Worksheets(nomfiche).active
Moins avec
Worksheets(nomfiche).Activate

 

[yannick.laurent2]

Bonsoir,
Merci pour votre aide.
J'ai appliqué vos conseils.
Malheureusement mon problème viens de la variable qui est vide lorsque j'arrive sur la 2nd feuille !
des idées ?
des suggestions ?
Merci par avance.
@+

 

[patricktoulon]

bonsoir a tous
la variable doit etre déclarée dans un module standard et en public

 

[job75]

des suggestions ?

Je vous suggère de nous dire en français ce que vous voulez faire exactement et de joindre un fichier allégé.

 

[yannick.laurent2]

Bonsoir,
Ci joint mon fichier.
Il est clair qu'un fichier est plus clair que de longue explications.
Merci par avance.

 

[job75]

Puisque vous ne vous donnez pas la peine d'expliquer je ne me donne pas la peine de vous aider.