Bonjour
Je souhaite en A1 trouver par formule le nom d'une feuille du classeur courant commençant par "FA" et finissant par la valeur qui est en B1
les noms de mes différentes feuilles (pour l'exemple, mais ça change en fonction des fichiers) sont :
D4503
Feuil1
FA1099 01
FA1124 02
FA1245 03
Je vous joins le fichier
Merci à ceux qui prendront le temps de me répondre
Bonjour à toutes & à tous,
Bonjour @JVOS
Avec une fonction personnalisée :
VB:
Function NomFeuille(Préfixe, Suffixe)
Dim wsh As Worksheet
If Suffixe = "" Or Préfixe = "" Then NomFeuille = "Arguments ?": Exit Function
NomFeuille = "Pas de feuille"
For Each wsh In ThisWorkbook.Worksheets
If wsh.Name Like Préfixe & "*" & Suffixe Then
NomFeuille = wsh.Name
Exit For
End If
Next
End Function
Bonjour à toutes & à tous,
Bonjour @JVOS
Avec une fonction personnalisée :
VB:
Function NomFeuille(Préfixe, Suffixe)
Dim wsh As Worksheet
If Suffixe = "" Or Préfixe = "" Then NomFeuille = "Arguments ?": Exit Function
NomFeuille = "Pas de feuille"
For Each wsh In ThisWorkbook.Worksheets
If wsh.Name Like Préfixe & "*" & Suffixe Then
NomFeuille = wsh.Name
Exit For
End If
Next
End Function
Un essai sans écriture de code VBA par formules.
Il faut néanmoinsenregistrer le fichier sous format .xlsm car on utilise un nom défini utilisant une vieille macro excel IV (ça ne nous rajeunit pas !).
Le nom défini est : mesOnglets. Il a pour définition : =TRANSPOSE(DROITE(LIRE.CLASSEUR(1);NBCAR(LIRE.CLASSEUR(1))-TROUVE("]"; LIRE.CLASSEUR(1)))).
Indiquer en colonne B les textes par lesquels doivent commencer et finir les noms des onglets.
Tapez sur la touche de fonction F9 pour recalculer la feuille (en effet la modification du nom ou l'ajout ou bien la suppression d'un onglet ne provoquent aucun recalcul du classeur)
Une mfc sur la zone D2:E28 permet de n'afficher que les onglets dont le nom répond aux conditions en colonne B
Çà devrait fonctionner sur des versions antérieures à O365
Bonjour @mapomme
J'utilise excel 2021 et les fonctions EXCEL IV ne sont plus disponibles, je crains qu'il en soit de même pour Excel 365...
Amicalement
Edit : Comme tu le suggères dans ton post !
Alain
Bonjour @mapomme
J'utilise excel 2021 et les fonctions EXCEL IV ne sont plus disponibles, je crains qu'il en soit de même pour Excel 365...
Amicalement
Alain
Vu que dans les deux solution il faut enregistrer le classeur en .xlsm j'ai opté pour la fonction.
et effectivement ta solution ne fonctionne pas car il ne connais pas LIRE.CLASSEUR.
Mais merci de m'avoir consacré du temps
@mapomme au temps pour moi, je vérifie, mais j'avais des solutions pour des graphiques avec les fonctions Excel IV qui ne fonctionnent plus sous 2021...
Alain
@mapomme au temps pour moi, je vérifie, mais j'avais des solutions pour des graphiques avec les fonctions Excel IV qui ne fonctionnent plus sous 2021...
Bon en même temps, il faut bien un jour les abandonner les macros Excel IV. Je l'ai déjà fait avec MultiPlan (les moins de 50-60 ans ne connaissent pas )
Bon en même temps, il faut bien un jour les abandonner les macros E3xcel IV. Je l'ai déjà fait avec MultiPlan (les moins de 50-60 ans ne connaissent pas )
bonjour à tous @mapomme comme tu ne supprime pas les blanc dans ta liste
la formule dans le name peut etre simplifié =TRANSPOSE(REMPLACER(LIRE.CLASSEUR(1);1;TROUVE("]";LIRE.CLASSEUR(1));""))