Microsoft 365 onglets Excel

colda · 4 Août 2022

Bonjour tout le monde.
Désolé si le topic a déjà été résolu, mais je ne parviens pas à faire ceci :
J'ai créé un classeur pour bulletins d'élèves.
Dans ce classeur, la première feuille contient en colonne A la liste des élèves.
Les autres feuilles sont - entre autres - les bulletins de chaque gamin.
En case A1 de chacune de ces feuilles "bulletin" se trouve une formule du type : ='liste élèves'!A2 ou A3 ou...
Comment SVP nommer automatiquement les onglets par la cellule A1 de chaque feuille (ou de la liste en feuille 1, colonne A) ?
Mille mercis par avance.
Bien cordialement,

Colda

M12 · 4 Août 2022

Bonjour,
Un test avec macro
Le nom des eleves en Feuil1

GALOUGALOU · 4 Août 2022

bonjour le forum
re colda
la macro ci-dessous crée un onglet selon la liste d'élèves référencés dans la feuil1. Elle inscrit dans chaque cellule A1 le nom de l'élève. si un onglet existe, la création est ignorée.

VB:

Sub Ajouter_Feuilles()
Dim j As Long
On Error Resume Next
Application.ScreenUpdating = False
Application.EnableEvents = False


Set ws = Sheets("Feuil1") 'feuille contenant la liste des noms
For j = 2 To ws.Range("A" & Rows.Count).End(xlUp).Row 'boucle sur colonne A
If Not FeuilleExiste(ws.Range("A" & j).Value) Then
Sheets("Base_bulletin").Copy after:=Sheets(Sheets.Count) 'base bulletin est copié coller puis renommé
ActiveSheet.Name = ws.Range("A" & j)
 With ActiveWorkbook.ActiveSheet.Tab
.Color = 65535 'onglet de couleur jaune
'.TintAndShade = 0
End With
Range("A1") = ActiveSheet.Name ' Met le nom de la feuille dans la cellule F3
End If
Next j
ws.Select
MsgBox "Exécution terminée"

Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub

'Si l'onglet  existe déjà, il n'est pas créé
Function FeuilleExiste(Nom As String) As Boolean
On Error Resume Next
FeuilleExiste = Sheets(Nom).Name <> ""
On Error GoTo 0
End Function

cdt
galougalou

colda · 4 Août 2022

M12 à dit:
Bonjour,
Un test avec macro
Le nom des eleves en Feuil1

Bonjour,
Merci bcp.
Dans mon fichier je reçois une erreur : ce nom existe déjà pour "feuil1"
:-(
cdlt

M12 · 4 Août 2022

colda à dit:
Bonjour,
Merci bcp.
Dans mon fichier je reçois une erreur : ce nom existe déjà pour "feuil1"
:-(
cdlt

Re,
Sans voir comment est ton fichier, difficile de résoudre

colda · 4 Août 2022

colda à dit:
Bonjour,
Merci bcp.
Dans mon fichier je reçois une erreur : ce nom existe déjà pour "feuil1"
:-(
cdlt

colda · 4 Août 2022

M12 à dit:
Re,
Sans voir comment est ton fichier, difficile de résoudre

Voici :
https://1drv.ms/x/s!ArwxdjQrmhtSgUW6fpRUaxgVBSWl?e=CoeOuc

M12 · 5 Août 2022

Re,
Teste comme ceci

colda · 5 Août 2022

M12 à dit:
Re,
Teste comme ceci

Topissime !
Un très grand merci.
cdlt
Colda

colda · 5 Août 2022

GALOUGALOU à dit:

bonjour le forum
re colda
la macro ci-dessous crée un onglet selon la liste d'élèves référencés dans la feuil1. Elle inscrit dans chaque cellule A1 le nom de l'élève. si un onglet existe, la création est ignorée.

VB:

Sub Ajouter_Feuilles()
Dim j As Long
On Error Resume Next
Application.ScreenUpdating = False
Application.EnableEvents = False


Set ws = Sheets("Feuil1") 'feuille contenant la liste des noms
For j = 2 To ws.Range("A" & Rows.Count).End(xlUp).Row 'boucle sur colonne A
If Not FeuilleExiste(ws.Range("A" & j).Value) Then
Sheets("Base_bulletin").Copy after:=Sheets(Sheets.Count) 'base bulletin est copié coller puis renommé
ActiveSheet.Name = ws.Range("A" & j)
 With ActiveWorkbook.ActiveSheet.Tab
.Color = 65535 'onglet de couleur jaune
'.TintAndShade = 0
End With
Range("A1") = ActiveSheet.Name ' Met le nom de la feuille dans la cellule F3
End If
Next j
ws.Select
MsgBox "Exécution terminée"

Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub

'Si l'onglet  existe déjà, il n'est pas créé
Function FeuilleExiste(Nom As String) As Boolean
On Error Resume Next
FeuilleExiste = Sheets(Nom).Name <> ""
On Error GoTo 0
End Function

cdt
galougalou

Merci bcp.
J'ai testé le script.
Il est très complet, mais j'avais omis de décrire par le menu l'ensemble de mon classeur.
Et bien sûr, ça bloque à quelques endroits.
Grand merci.

Colda

Microsoft 365 onglets Excel

colda

XLDnaute Nouveau

M12

XLDnaute Accro

Pièces jointes

GALOUGALOU

XLDnaute Accro

Pièces jointes

colda

XLDnaute Nouveau

M12

XLDnaute Accro

colda

XLDnaute Nouveau

colda

XLDnaute Nouveau

M12

XLDnaute Accro

Pièces jointes

colda

XLDnaute Nouveau

colda

XLDnaute Nouveau

Discussions similaires