XL 2019 Extraction de caractères et les afficher dans une cellule

[DJISA]

Bonjour, le Forum!
Nous voulons extraire les deux premiers caractères des noms de feuilles et les afficher dans une cellule donnée. Cette opération doit être simultanée avec la création des onglets. Les onglets seront créés à partir d'une liste.
Nous joignons un fichier.
Merci
DJISA

 

[Fred0o]

Bonjour DJISA

OK pour vous aider mais il est ou le fichier ?

 

[mdo100]

Bonjour à toutes et tous,

@DJISA,

A tester dans le fichier joint:

Cordialement.

 

[DJISA]

Bonjour, le Forum!
Nous avons oublié de joindre le fichier ci-dessous dans la discussion précédente.

Bonjour DJISA

OK pour vous aider mais il est ou le fichier ?

 

[mdo100]

@DJISA,

A tester:

Cdlt.

 

[DJISA]

Bonjour Fred0o, le Forum
J'avais oublié de joindre le fichier dans la premier discussion. Mais nous l'avons envoyé par la suite.
Toutefois le joignons encore pour vous.
Merci
DJISA

 

[DJISA]

Bonjour Mdo 100, Le Forum
Nous avons testé le code mais il ne fonctionne pas. Ensuite il me semble que vous avez oublié que les 2 caractères extraits doivent être affichés dans une cellule donnée, par exemple en F5 comme dans le fichier.
Merci
DJISA

 

[mdo100]

Re @DJISA,

Avez-vous regardé le fichier que j'ai mis au post#5

Cdlt.

 

[Staple1600]

Bonjour le fil, DJISA

•>DJISA
Et toi, tu n'aurais pas oublié ceci par hasard?

Les onglets seront créés à partir d'une liste.

L'est où la liste?
Et la macro qui créé les feuilles à partir de cette liste?
Je ne la vois pas.

 

[DJISA]

Bonjour mdo100, Le forum
Nous joignons un nouveau fichier avec le code créant les onglets. Le fichier correspond au résultat attendu.
Le code ci-dessous crée les onglets. Mais que faut-il y ajouter pour extraire les caractères 6A et 6B des noms d'onglets 6ASEM1, 6ASEM2..., 6BSEM1, 6BSEM1 et les inscrire dans la cellule D9 de chaque onglet créé? Bref le fichier joint vous édifiera davantage.

Sub Create_ong()               
Dim DerLig As Long, i As Integer               
 
DerLig = Feuil7.Range("B" & Rows.Count).End(xlUp).Row               
Application.ScreenUpdating = False               
    For i = DerLig To 2 Step -1               
        Sheets("Modele").Copy After:=Feuil7               
        ActiveSheet.Name = Feuil7.Cells(i, 2)               
    Next i               
Application.ScreenUpdating = True               
End Sub

Merci
DJISA

 

[Staple1600]

Re

•>DJISA (Bah on me dit pas Bonjour... )
Je suis confiné alors tu ne crains rien!
Je vais malgré tout aller voir ton nouveau fichier
(Ne serait-ce que par courtoisie )

 

[Staple1600]

Re

•>DJISA
Donc ceci devrait faire l'affaire, non ?

Sub Creation_onglets2()
Dim DerLig As Long, i As Long
DerLig = Feuil7.Range("B" & Rows.Count).End(xlUp).Row
Application.ScreenUpdating = False
    For i = DerLig To 2 Step -1
        Sheets("Modele").Copy After:=Feuil7
        ActiveSheet.Name = Feuil7.Cells(i, 2)
        ActiveSheet.[D9] = Left(ActiveSheet.Name, 2)
    Next i
Application.ScreenUpdating = True
End Sub

 

[DJISA]

Bonjour Stapple!
Toutes nos excuses pour ce manquement
Cordialement
DJISA

 

[Staple1600]

Re

•>DJISA
Vous as testé la macro du message#12?

PS: C'est Staple avec un seul p

 

[DJISA]

Bonjour Staple1600, le forum!
Nous venons de tester la macro. Cela marche.
Merci pour le soutien
DJISA