Mettre dans cellule le nom d'onglet non actif

dl -  
 dl -
Bonjour,
Je cherche sur Excel la solution pour inserer le non d'un onglet non actif dans une cellule.
j'ai trouvé sur le site "pour un onglet actif"mais mon probleme est bien pour "un onglet non actif"

Merci

4 réponses

lermite222 Messages postés 9042 Statut Contributeur 1 191
 
Bonjour,
Faire une boucle sur les feuille (WorkSheets.count)
Tester que ce n'est pas le nom de la feuille active
if Sheets(i).Name<> activeSheet.name then AJOUTER LA FEUILLE
A+
EDIT:
Sub AffiFeuille()
Dim a As String, i As Integer, L As Long
a = ActiveSheet.Name
L = 2
    For i = 1 To Worksheets.Count
        If Sheets(i).Name <> a Then
            Cells(L, 1) = Sheets(i).Name
            L = L + 1
        End If
    Next i
End Sub


0
dl
 
N'y a t'il pas plus simple que de passer par une macro ?
la formule que j'ai trouvé pour appliquer sur un onglet actif est :
=STXT(CELLULE("nomfichier";A1);TROUVE("]";CELLULE("nomfichier";A1))+1;32)
or je voudrais l'utiliser pour copier le non d'un onglet non actif.

Merci
0
wilfried_42 Messages postés 912 Statut Contributeur 245
 
Bonjour

On peut passer autrement que par macro, mais est-ce plus simple là est la question

Menu Insertion / Noms / Définir
le nom : Feuille
la Formule : =LIRE.CLASSEUR(1)

Ceci est une Macro ExcelIV qui recupère les noms et crée une table

Pour afficher le nom d'une feuille : en Gras le n° de la feuille à afficher
=STXT(INDEX(classeur;1);CHERCHE("]";INDEX(classeur;1))+1;20) & INDIRECT("IV1")

Attention, le INDIRECT("IV1") est Obligatoire, c'est une Fonction Volatile qui permet le Recalcule de la Formule, donc de la plage en cas d'ajout de feuille

Voici un exemple des possibilités de cette solution : Un recherche Multifeuille sans Macro VBA : insertion de feuilles, deplacement, Suppression, tout est automatiquement géré
https://www.cjoint.com/?leiGqnHe7J
0
dl
 
Âpres une petite correction ca marche super
voici la formule =STXT(INDEX(feuille;1);CHERCHE("]";INDEX(feuille;1))+1;20) & INDIRECT("IV1")
il faut mettre feuille dans la formule au lieu de classeur.

Merci beucoup
0