VBA Chercher feuille suivant N° dans colonne

Kire36

XLDnaute Nouveau
Bonjour à tous
suis nouveau sur ce forum, et j'ai une question au sujet d'une recherche de feuille spécifique Excel dans un classeur.
Voici ce que je possède à ce jour :
1 classeur avec une feuille (feuil1) dans laquelle est un tableau de 9 colonnes sur 1000 lignes, en colonne B j'ai des n° (ex : KJ0230 en B5 - KJ0235 en B8 - KJ0530 en B130 ... etc) puis dans ce meme classeur j ai d autres feuilles (onglets) il y a autant d'onglets que de numéros (ex : feuille 2 ( onglet 2 = KJ0230), feuille 3 ( onglet 3 = KJ0235 ....)
à ce jour tout est dans le même classeur, et ma recherche suivant ma macro ci dessous fonctionne à merveille
Fonctionnement : double clic dans cellule B5, ouverture de la feuille KJ0230, mais en vision, version direct imprimable.
Ce que je cherche, c'est avoir un classeur "Navigation" avec une feuille ou serait le tableau de 9 colonnes sur 1000 lignes et un autre classeur "Suivi" qui aurait toutes les feuilles KJ0230;KJ0235;......
Ma question : quelle est la macro à employer pour avoir le même résultat (ma macro) mais avec des classeurs distincts. j'ai cherché mais en vain il y a toujours un bug pour retrouver le fichier "Suivi"
Ci dessous Ma Macro (1 seul classeur)
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim derlig
derlig = Range("B" & Application.Rows.Count).End(xlUp).Row
If Not Application.Intersect(Target, Range("B3:B" & derlig)) Is Nothing Then
Dim Var As String
Var = Target.Value
Application.ScreenUpdating = False
Sheets(Var).Activate
ActiveWindow.SelectedSheets.PrintPreview
Application.ScreenUpdating = True
Sheets("Navigation").Activate
Range("B1").Activate
End If
End Sub

y a t il un spécialiste pour orienter ma recherche SVP ?
 

Discussions similaires

Réponses
7
Affichages
493

Statistiques des forums

Discussions
314 611
Messages
2 111 146
Membres
111 051
dernier inscrit
MANUREVALAND