VBA Chercher feuille suivant N° dans colonne

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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 ?
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
6
Affichages
298
  • Question Question
XL 2021 VBA excel
Réponses
4
Affichages
169
Réponses
7
Affichages
619
Réponses
5
Affichages
552
Réponses
9
Affichages
580
Retour