Microsoft 365 onglets Excel

[colda]

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]

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

 

[GALOUGALOU]

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.

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]

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]

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]

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

 

[colda]

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

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

 

[M12]

Re,
Teste comme ceci

 

[colda]

Re,
Teste comme ceci

Topissime !
Un très grand merci.
cdlt
Colda

 

[colda]

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.

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