Insérer le nom des onglets dans des cellules
Fermé
pamoi
-
Modifié par pamoi le 5/05/2010 à 21:45
eriiic Messages postés 24513 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 25 mars 2023 - 10 mai 2010 à 18:02
eriiic Messages postés 24513 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 25 mars 2023 - 10 mai 2010 à 18:02
A voir également:
- Insérer le nom des onglets dans des cellules
- Annuaire portable gratuit a partir d'un nom ✓ - Forum Mobile
- Nom de l'adresse ✓ - Forum Internet / Réseaux sociaux
- Insérer liste déroulante excel - Guide
- Insérer signature word - Guide
- Protéger des cellules excel - Guide
3 réponses
snakserge
Messages postés
32
Date d'inscription
samedi 2 février 2008
Statut
Membre
Dernière intervention
6 juin 2011
1
5 mai 2010 à 22:48
5 mai 2010 à 22:48
Sub ong()
Ligne = 0
For onglet = 1 To Sheets.Count
Ligne = Ligne + 1
Cells(Ligne, 1) = Sheets(onglet).Name
Next onglet
End Sub
Ligne = 0
For onglet = 1 To Sheets.Count
Ligne = Ligne + 1
Cells(Ligne, 1) = Sheets(onglet).Name
Next onglet
End Sub
snakserge
Messages postés
32
Date d'inscription
samedi 2 février 2008
Statut
Membre
Dernière intervention
6 juin 2011
1
5 mai 2010 à 23:11
5 mai 2010 à 23:11
Il s'agit du code de la macro à exécuter
gbinforme
Messages postés
14939
Date d'inscription
lundi 18 octobre 2004
Statut
Contributeur
Dernière intervention
24 juin 2020
4 657
Modifié par gbinforme le 5/05/2010 à 23:26
Modifié par gbinforme le 5/05/2010 à 23:26
bonjour
Regardes la formule d'Éric qui devrait te donner satisfaction.
Toujours zen
Regardes la formule d'Éric qui devrait te donner satisfaction.
Toujours zen
eriiic
Messages postés
24513
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
25 mars 2023
7 168
10 mai 2010 à 18:02
10 mai 2010 à 18:02
Bonjour tout le monde,
Normalement si tu lis tous les mots tu devrais y arriver...
- Créer un nom par 'insertion / nom / définir', par exemple nomFeuilles et dans 'Fait référence à' saisir : =LIRE.CLASSEUR(1)
- en A1 :
=SI(LIGNE()>NBVAL(nomFeuilles);"";STXT(INDEX(nomFeuilles;LIGNE());CHERCHE("]";INDEX(nomFeuilles;LIGNE()))+1;30))
et tirer vers le bas
eric
Normalement si tu lis tous les mots tu devrais y arriver...
- Créer un nom par 'insertion / nom / définir', par exemple nomFeuilles et dans 'Fait référence à' saisir : =LIRE.CLASSEUR(1)
- en A1 :
=SI(LIGNE()>NBVAL(nomFeuilles);"";STXT(INDEX(nomFeuilles;LIGNE());CHERCHE("]";INDEX(nomFeuilles;LIGNE()))+1;30))
et tirer vers le bas
eric
5 mai 2010 à 23:03