mettre dans cellule le nom d'onglet non actif

Question

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

lermite222 · Answer

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

dl · Answer

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

wilfried_42 · Answer

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

dl · Answer

Â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

Mettre dans cellule le nom d'onglet non actif

4 réponses

Discussions similaires

Newsletters