OVH Cloud OVH Cloud

Donne le noms des onglets

7 réponses
Avatar
Tibert
Bonjour à tous;
Je recherche désespérément la macro pour récupérer sur ma feuille active, la
liste de tous les noms de mes onglets du classeur. C’est une macro que j’ai
déjà vu mais que je n’arrive pas à retrouver, je suis allé sur plusieurs site
« Excelabo, JossFree, etc, etc
Salutations

7 réponses

Avatar
isabelle
bonjour Tibert,

voila,

Sub Macro1()
For Each f In Sheets
x = x + 1
Range("A" & x) = f.Name
Next
End Sub

isabelle

Bonjour à tous;
Je recherche désespérément la macro pour récupérer sur ma feuille active, la
liste de tous les noms de mes onglets du classeur. C’est une macro que j’ai
déjà vu mais que je n’arrive pas à retrouver, je suis allé sur plusieurs site
« Excelabo, JossFree, etc, etc
Salutations



Avatar
JB
Bonjour,


Maj automatique si noms onglets modifiés, ajoutés, supprimés.

http://boisgontierj.free.fr/fichiers/fonctionsperso/Fonction_NomsTousOnglet s.xls

Dans un module:

Function NomsTousOnglets() ' fonction matricielle
Application.Volatile
Dim temp()
ReDim temp(1 To Sheets.Count)
j = 1
For i = 1 To Sheets.Count
temp(j) = Sheets(i).Name
j = j + 1
Next i
NomsTousOnglets = Application.Transpose(temp)
End Function

Dans le tableur:

-Sélectionner un champ colonne
=nomsTousOnglets()
-Valider avec Maj+Ctrl+Entrée

Autre version;

http://boisgontierj.free.fr/pages_site/nomonglet.htm


Cordialement JB

On 16 fév, 01:29, Tibert wrote:
Bonjour à tous;
Je recherche désespérément la macro pour récupérer sur ma feuil le active, la
liste de tous les noms de mes onglets du classeur. C'est une macro que j' ai
déjà vu mais que je n'arrive pas à retrouver, je suis allé sur pl usieurs site
« Excelabo, JossFree, etc, etc
Salutations


Avatar
Tibert
Merci pour vos réponses !
Bonjour « JB » ;
Par cette occasion, je voudrais avoir un peut d’aide pour faire une formule ;
J’ai un planning horaire hebdomadaire c'est-à-dire une feuille par semaine,
nommé de manière suivant (Sem 01 janv au 06 janv)etc,etc, avec ma liste de
nom en A6, A9, A12, etc, etc, dans une nouvelle feuille je voudrais faire les
totaux que je vais nommé « TotauxHeures » je vais reprendre ma liste de noms
en colonne (A) et faire 52 colonnes une colonne pour faire le total des
heures par semaine et par noms pour récupérer les totaux de chaque feuilles
les cellules sont C6, C9, C12, etc, etc, car j’utiliser trois ligne par noms,
sachant que tout mes feuille n’existe pas et quand elle seront rajouter
faudra que sa ce totalise.
Je pensais utiliser (=INDIRECT) mais comme sa trouve pas sur la même ligne
et que je recherche par un noms !
Salutations.



Bonjour,


Maj automatique si noms onglets modifiés, ajoutés, supprimés.

http://boisgontierj.free.fr/fichiers/fonctionsperso/Fonction_NomsTousOnglets.xls

Dans un module:

Function NomsTousOnglets() ' fonction matricielle
Application.Volatile
Dim temp()
ReDim temp(1 To Sheets.Count)
j = 1
For i = 1 To Sheets.Count
temp(j) = Sheets(i).Name
j = j + 1
Next i
NomsTousOnglets = Application.Transpose(temp)
End Function

Dans le tableur:

-Sélectionner un champ colonne
=nomsTousOnglets()
-Valider avec Maj+Ctrl+Entrée

Autre version;

http://boisgontierj.free.fr/pages_site/nomonglet.htm


Cordialement JB

On 16 fév, 01:29, Tibert wrote:
Bonjour à tous;
Je recherche désespérément la macro pour récupérer sur ma feuille active, la
liste de tous les noms de mes onglets du classeur. C'est une macro que j'ai
déjà vu mais que je n'arrive pas à retrouver, je suis allé sur plusieurs site
« Excelabo, JossFree, etc, etc
Salutations







Avatar
JB
http://boisgontierj.free.fr/fichiers/Indirect/IndirectSemaine.xls

ÞCALER(INDIRECT(B$6&"!$C$6");EQUIV($A7;INDIRECT(B$6&"!$A$6:$A$15");
0)-1;0)

JB

On 16 fév, 10:07, Tibert wrote:
Merci pour vos réponses !
Bonjour «JB» ;
Par cette occasion, je voudrais avoir un peut d'aide pour faire une formu le ;
J'ai un planning horaire hebdomadaire c'est-à-dire une feuille par sema ine,
nommé de manière suivant (Sem 01 janv au 06 janv)etc,etc, avec ma lis te de
nom en A6, A9, A12, etc, etc, dans une nouvelle feuille je voudrais faire les
totaux que je vais nommé « TotauxHeures » je vais reprendre ma list e de noms
en colonne (A) et faire 52 colonnes une colonne pour faire le total des
heures par semaine et par noms pour récupérer les totaux de chaque fe uilles
les cellules sont C6, C9, C12, etc, etc, car j'utiliser trois ligne par n oms,
sachant que tout mes feuille n'existe pas et quand elle seront rajouter
faudra que sa ce totalise.
Je pensais utiliser (=INDIRECT) mais comme sa trouve pas sur la même ligne
et que je recherche par un noms !
Salutations.




Bonjour,

Maj automatique si noms onglets modifiés, ajoutés, supprimés.

http://boisgontierj.free.fr/fichiers/fonctionsperso/Fonction_NomsTous...

Dans un module:

Function NomsTousOnglets() ' fonction matricielle
Application.Volatile
Dim temp()
ReDim temp(1 To Sheets.Count)
j = 1
For i = 1 To Sheets.Count
temp(j) = Sheets(i).Name
j = j + 1
Next i
NomsTousOnglets = Application.Transpose(temp)
End Function

Dans le tableur:

-Sélectionner un champ colonne
=nomsTousOnglets()
-Valider avec Maj+Ctrl+Entrée

Autre version;

http://boisgontierj.free.fr/pages_site/nomonglet.htm

CordialementJB

On 16 fév, 01:29,Tibert wrote:
Bonjour à tous;
Je recherche désespérément la macro pour récupérer sur ma f euille active, la
liste de tous les noms de mes onglets du classeur. C'est une macro qu e j'ai
déjà vu mais que je n'arrive pas à retrouver, je suis allé su r plusieurs site
« Excelabo, JossFree, etc, etc
Salutations- Masquer le texte des messages précédents -



- Afficher le texte des messages précédents -




Avatar
Tibert
Bonjour « JB » ;
Je te remercie pour ta formule, je l’ai bien appliqué à mon tableau et sa
fonctionne et vu pour son fonctionnement,
J’ai récupéré le fichier sur les commentaires et j’ai adapté le calendrier
de la feuille
« CalendrierCommentaire » dans mon fichier, dans une feuille nommé «
FeuilleDate », une fois le calendrier établi les commentaires mois fait
pourrais-tu me dire si tu as la solution, comment je pourrais amener le
commentaire correspondant au mois sur mes plannings semaine dans une cellule
quelconques ex : (B5) sachant qu’une macro me copie les feuilles à la
demande, pour avoir à disposition le calendrier du mois sur le planning
semaine.
Salutations

janv-07
févr-07
mars-07
avr-07
mai-07
juin-07





http://boisgontierj.free.fr/fichiers/Indirect/IndirectSemaine.xls

ÞCALER(INDIRECT(B$6&"!$C$6");EQUIV($A7;INDIRECT(B$6&"!$A$6:$A$15");
0)-1;0)

JB

On 16 fév, 10:07, Tibert wrote:
Merci pour vos réponses !
Bonjour «JB» ;
Par cette occasion, je voudrais avoir un peut d'aide pour faire une formule ;
J'ai un planning horaire hebdomadaire c'est-à-dire une feuille par semaine,
nommé de manière suivant (Sem 01 janv au 06 janv)etc,etc, avec ma liste de
nom en A6, A9, A12, etc, etc, dans une nouvelle feuille je voudrais faire les
totaux que je vais nommé « TotauxHeures » je vais reprendre ma liste de noms
en colonne (A) et faire 52 colonnes une colonne pour faire le total des
heures par semaine et par noms pour récupérer les totaux de chaque feuilles
les cellules sont C6, C9, C12, etc, etc, car j'utiliser trois ligne par noms,
sachant que tout mes feuille n'existe pas et quand elle seront rajouter
faudra que sa ce totalise.
Je pensais utiliser (=INDIRECT) mais comme sa trouve pas sur la même ligne
et que je recherche par un noms !
Salutations.




Bonjour,

Maj automatique si noms onglets modifiés, ajoutés, supprimés.

http://boisgontierj.free.fr/fichiers/fonctionsperso/Fonction_NomsTous...

Dans un module:

Function NomsTousOnglets() ' fonction matricielle
Application.Volatile
Dim temp()
ReDim temp(1 To Sheets.Count)
j = 1
For i = 1 To Sheets.Count
temp(j) = Sheets(i).Name
j = j + 1
Next i
NomsTousOnglets = Application.Transpose(temp)
End Function

Dans le tableur:

-Sélectionner un champ colonne
=nomsTousOnglets()
-Valider avec Maj+Ctrl+Entrée

Autre version;

http://boisgontierj.free.fr/pages_site/nomonglet.htm

CordialementJB

On 16 fév, 01:29,Tibert wrote:
Bonjour à tous;
Je recherche désespérément la macro pour récupérer sur ma feuille active, la
liste de tous les noms de mes onglets du classeur. C'est une macro que j'ai
déjà vu mais que je n'arrive pas à retrouver, je suis allé sur plusieurs site
« Excelabo, JossFree, etc, etc
Salutations- Masquer le texte des messages précédents -



- Afficher le texte des messages précédents -










Avatar
JB
Bonsoir,

http://cjoint.com/?csuL1ooeWc

JB

On 17 fév, 18:43, Tibert wrote:
Bonjour «JB» ;
Je te remercie pour ta formule, je l'ai bien appliqué à mon tableau e t sa
fonctionne et vu pour son fonctionnement,
J'ai récupéré le fichier sur les commentaires et j'ai adapté le calendrier
de la feuille
« CalendrierCommentaire » dans mon fichier, dans une feuille nommé «
FeuilleDate », une fois le calendrier établi les commentaires mois fa it
pourrais-tu me dire si tu as la solution, comment je pourrais amener le
commentaire correspondant au mois sur mes plannings semaine dans une cell ule
quelconques ex : (B5) sachant qu'une macro me copie les feuilles à la
demande, pour avoir à disposition le calendrier du mois sur le planning
semaine.
Salutations

janv-07
févr-07
mars-07
avr-07
mai-07
juin-07






http://boisgontierj.free.fr/fichiers/Indirect/IndirectSemaine.xls

ÞCALER(INDIRECT(B$6&"!$C$6");EQUIV($A7;INDIRECT(B$6&"!$A$6:$A$15");
0)-1;0)

JB

On 16 fév, 10:07, Tibert wrote:
Merci pour vos réponses !
Bonjour «JB» ;
Par cette occasion, je voudrais avoir un peut d'aide pour faire une f ormule ;
J'ai un planning horaire hebdomadaire c'est-à-dire une feuille par semaine,
nommé de manière suivant (Sem 01 janv au 06 janv)etc,etc, avec ma liste de
nom en A6, A9, A12, etc, etc, dans une nouvelle feuille je voudrais f aire les
totaux que je vais nommé « TotauxHeures » je vais reprendre ma liste de noms
en colonne (A) et faire 52 colonnes une colonne pour faire le total d es
heures par semaine et par noms pour récupérer les totaux de chaqu e feuilles
les cellules sont C6, C9, C12, etc, etc, car j'utiliser trois ligne p ar noms,
sachant que tout mes feuille n'existe pas et quand elle seront rajout er
faudra que sa ce totalise.
Je pensais utiliser (=INDIRECT) mais comme sa trouve pas sur la m ême ligne
et que je recherche par un noms !
Salutations.




Bonjour,

Maj automatique si noms onglets modifiés, ajoutés, supprimés.

http://boisgontierj.free.fr/fichiers/fonctionsperso/Fonction_NomsTou s...

Dans un module:

Function NomsTousOnglets() ' fonction matricielle
Application.Volatile
Dim temp()
ReDim temp(1 To Sheets.Count)
j = 1
For i = 1 To Sheets.Count
temp(j) = Sheets(i).Name
j = j + 1
Next i
NomsTousOnglets = Application.Transpose(temp)
End Function

Dans le tableur:

-Sélectionner un champ colonne
=nomsTousOnglets()
-Valider avec Maj+Ctrl+Entrée

Autre version;

http://boisgontierj.free.fr/pages_site/nomonglet.htm

CordialementJB

On 16 fév, 01:29,Tibert wrote:
Bonjour à tous;
Je recherche désespérément la macro pour récupérer sur ma feuille active, la
liste de tous les noms de mes onglets du classeur. C'est une macr o que j'ai
déjà vu mais que je n'arrive pas à retrouver, je suis all é sur plusieurs site
« Excelabo, JossFree, etc, etc
Salutations- Masquer le texte des messages précédents -



- Afficher le texte des messages précédents -- Masquer le texte d es messages précédents -



- Afficher le texte des messages précédents -






Avatar
Tibert
Bonjour « JB » ;
Merci pour ton exemple, il m’a bien rendu service, je ne l’ai pas utiliser
avec liste validation car le n° de semaine je l’ai automatiser avec code
ci-dessous, sans cette exemple et code BVA, je n’aurais pas put le faire.
Salutation ;
________________________________________
Sub NuméroSemaineCalendrier()
' Macro pour afficher le numéro semaine en (A16) pour obtenir le calendrier
ActiveSheet.Range("A16") =
Sheets("FeuilleDate").[F65000].End(xlUp).Offset(1, -1)
Sheets("FeuilleDate").Unprotect
Sheets("FeuilleDate").[F65000].End(xlUp).Offset(1, 0) = "Crée"
Sheets("FeuilleDate").Protect
End Sub



Bonsoir,

http://cjoint.com/?csuL1ooeWc

JB

On 17 fév, 18:43, Tibert wrote:
Bonjour «JB» ;
Je te remercie pour ta formule, je l'ai bien appliqué à mon tableau et sa
fonctionne et vu pour son fonctionnement,
J'ai récupéré le fichier sur les commentaires et j'ai adapté le calendrier
de la feuille
« CalendrierCommentaire » dans mon fichier, dans une feuille nommé «
FeuilleDate », une fois le calendrier établi les commentaires mois fait
pourrais-tu me dire si tu as la solution, comment je pourrais amener le
commentaire correspondant au mois sur mes plannings semaine dans une cellule
quelconques ex : (B5) sachant qu'une macro me copie les feuilles à la
demande, pour avoir à disposition le calendrier du mois sur le planning
semaine.
Salutations

janv-07
févr-07
mars-07
avr-07
mai-07
juin-07






http://boisgontierj.free.fr/fichiers/Indirect/IndirectSemaine.xls

ÞCALER(INDIRECT(B$6&"!$C$6");EQUIV($A7;INDIRECT(B$6&"!$A$6:$A$15");
0)-1;0)

JB

On 16 fév, 10:07, Tibert wrote:
Merci pour vos réponses !
Bonjour «JB» ;
Par cette occasion, je voudrais avoir un peut d'aide pour faire une formule ;
J'ai un planning horaire hebdomadaire c'est-à-dire une feuille par semaine,
nommé de manière suivant (Sem 01 janv au 06 janv)etc,etc, avec ma liste de
nom en A6, A9, A12, etc, etc, dans une nouvelle feuille je voudrais faire les
totaux que je vais nommé « TotauxHeures » je vais reprendre ma liste de noms
en colonne (A) et faire 52 colonnes une colonne pour faire le total des
heures par semaine et par noms pour récupérer les totaux de chaque feuilles
les cellules sont C6, C9, C12, etc, etc, car j'utiliser trois ligne par noms,
sachant que tout mes feuille n'existe pas et quand elle seront rajouter
faudra que sa ce totalise.
Je pensais utiliser (=INDIRECT) mais comme sa trouve pas sur la même ligne
et que je recherche par un noms !
Salutations.




Bonjour,

Maj automatique si noms onglets modifiés, ajoutés, supprimés.

http://boisgontierj.free.fr/fichiers/fonctionsperso/Fonction_NomsTous...

Dans un module:

Function NomsTousOnglets() ' fonction matricielle
Application.Volatile
Dim temp()
ReDim temp(1 To Sheets.Count)
j = 1
For i = 1 To Sheets.Count
temp(j) = Sheets(i).Name
j = j + 1
Next i
NomsTousOnglets = Application.Transpose(temp)
End Function

Dans le tableur:

-Sélectionner un champ colonne
=nomsTousOnglets()
-Valider avec Maj+Ctrl+Entrée

Autre version;

http://boisgontierj.free.fr/pages_site/nomonglet.htm

CordialementJB

On 16 fév, 01:29,Tibert wrote:
Bonjour à tous;
Je recherche désespérément la macro pour récupérer sur ma feuille active, la
liste de tous les noms de mes onglets du classeur. C'est une macro que j'ai
déjà vu mais que je n'arrive pas à retrouver, je suis allé sur plusieurs site
« Excelabo, JossFree, etc, etc
Salutations- Masquer le texte des messages précédents -



- Afficher le texte des messages précédents -- Masquer le texte des messages précédents -



- Afficher le texte des messages précédents -