Lien entre deux feuilles par le nom
Bonjour le forum !
Je suis débutante et aujourd'hui devant un mur ..
Ce que je veux faire est je pense très simple, j'ai la logique mais pas la "traduction" VBA ...
Les feuilles de mon fichier fonctionnent toujours par paires : Extraction AXXX et Planning AXXX.
Le A avant les "XXX" sera toujours présent, mais les "XXX" n'auront jamais une forme identique à chaque paire, on peut avoir du Extraction ADC1906 / Planning ADC1906 comme du Extraction AMP02 / Planning AMP02.
J'ai voulu utiliser
nom = right(Worksheet.Name, 6)mais je n'ai pas toujours 6 caractères après le A ...
Ce que je souhaite réaliser c'est :
* Regarder ce qu'il y a après "Extraction A" (ou peut-être juste "Extraction" ?) sans que le nombre de caractère n'ait d'importance
* Le conserver en mémoire
* Chercher la feuille "Planning" qui correspond
* Réaliser tout un tas d'actions (que je sais réaliser)
Merci à toi forum, tu m'as beaucoup aidé il y a un temps, j'ai confiance en toi !
Bonjour,
Ceq u'il y a après espaceA s'écrit, par exemple pour la feuille n°1
Mid(Sheets(1).Name, InStr(Sheets(1).Name, " A") + 2, Len(Sheets(1).Name) - (InStr(Sheets(1).Name, " A") + 1))Exemple
Sub test()
Set ws = Sheets("Planning A" & Mid(ActiveSheet.Name, InStr(ActiveSheet.Name, " A") + 2, Len(ActiveSheet.Name) - (InStr(ActiveSheet.Name, " A") + 1)))
ws.Select
End SubBonjour Steelson,
Merci beaucoup, c'était exactement ce que je voulais !
Je vais pouvoir bien avancer maintenant.
A bientôt le forum