Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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

  • Initiateur de la discussion Initiateur de la discussion DJISA
  • Date de début Date de début
D

DJISA

XLDnaute Occasionnel
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
 
Trier par date Trier par votes
D

DJISA

XLDnaute Occasionnel
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
 

Pièces jointes

  • Extraction de caractères.docx
    13.2 KB · Affichages: 3
Vote positif 0 Vote négatif
D

DJISA

XLDnaute Occasionnel
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
 
Vote positif 0 Vote négatif
D

DJISA

XLDnaute Occasionnel
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.
VB: 
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
 

Pièces jointes

  • Extraction.xlsm
    33.9 KB · Affichages: 5
Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc
Re

•>DJISA
Donc ceci devrait faire l'affaire, non ?
VB: 
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
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.

Discussions similaires

R
  • Résolu(e)
XL 2019 Comment extraire séparément plusieures chaines de caractères ou chiffres/nombres depuis une cellule avec libellé complexe alpha numérique
2
Réponses
28
Affichages
1 K
Renardy
R
L
  • Résolu(e)
Microsoft 365 VBA - Attribuer mise en forme en fonction de valeur cellule d'une liste
Réponses
14
Affichages
691
Laliepomm
L
D
  • Résolu(e)
XL 2021 Créer feuilles automatiquement dans un classeur a partir d'une liste et lien hypertexte
Réponses
6
Affichages
503
Phil69970
N
  • Question Question
Microsoft 365 afficher/masquer des lignes en fonction de la valeur d'une cellule qui aura été renseignée par une autre feuille (via un copier/collé automatique)
Réponses
5
Affichages
461
Nel'
N
  • Résolu(e)
XL 2013 (RESOLU) Affichage des résultats dans un tableau selon des conditions
Réponses
13
Affichages
717
chaelie2015
R
  • Question Question
XL 2021 Récupérer des données dans plusieurs classeurs sans les ouvrir - Résolu
Réponses
10
Affichages
489
job75
P
  • Question Question
XL 2016 identifier chaine de caractère dans une cellule et ramener une donnée d'une table de correspondance
Réponses
5
Affichages
554
pmid20
P
  • Résolu(e)
XL 2016 Incrémenter des formules dans une feuille, en la copiant et la renommant en même temps
Réponses
9
Affichages
543
jgav
M
  • Question Question
Microsoft 365 Indice de révision de chaque ligne automatiquement
Réponses
2
Affichages
189
MLIZIN
M
M
  • Question Question
Microsoft 365 Calcul du nombre de chiffres dans une cellule. Mise en page d'un fichier.
Réponses
2
Affichages
340
MCOTTEND
M
M
  • Question Question
XL 2021 Rechercher dans une matrice le texte d'une cellule et copier les 10 lignes situées en dessous de ce texte retrouvé
Réponses
2
Affichages
381
JHA
J
  • Résolu(e)
XL 2013 (RESOLU) Afficher / Masquer des lignes et des colonnes selon les valeurs de deux cellules
Réponses
2
Affichages
532
chaelie2015
  • Résolu(e)
XL 2013 (RESOLU) Automatisation de la création de feuilles en fonction des données de la cellule U13 et une feuille type
Réponses
7
Affichages
527
chaelie2015
M
  • Résolu(e)
XL 2013 Macross supprimant les données de cellule en dehors d'une période définie dans deux autres cellules
Réponses
9
Affichages
551
MarineU
M
G
  • Question Question
Microsoft 365 Avoir des classeurs maitres et les procédures dans un autre classeur.
2
Réponses
18
Affichages
1 K
GClaire
G
S
  • Résolu(e)
XL 2010 "extraction" heure dans une cellule
Réponses
4
Affichages
975
stéphane97429
S
T
  • Question Question
XL 2021 Reporter sous forme de liste dans une cellule les donnés contenues dans plusieurs cellules et cela sous condition
Réponses
2
Affichages
161
thioff
T
P
  • Résolu(e)
XL 2016 Masquer les caractères dans une boîte de dialogue de saisie de mot de passe Excel
Réponses
8
Affichages
931
AR MOR
A
W
  • Résolu(e)
XL 2016 Gestion de liste transposée dans une autre feuille avec décalage d'une colonne et exclusion de certains éléments
Réponses
9
Affichages
435
Webperegrino
W
O
  • Question Question
XL 2019 Code VBA pour automatiser la programmation des rotations des ouvriers qui travaillent à temps partiel et se relaient par période de temps constante.
2 3
Réponses
35
Affichages
1 K
olivier1984
O
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…