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

XL 2021 Extraire tous les caractères à gauche du 2eme espace

Créer une discussion

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire

Usine à gaz

XLDnaute Barbatruc
Supporter XLD
Bonjour à toutes et à tous 🙂

J'en ai une p'tite du matin 🙂
Extraire tous les caractères à gauche du 1er espace, j'ai la formule : "=GAUCHE(C5;CHERCHE(" ";C5;1)-1)"

Mais je n'arrive pas à trouver comment Extraire tous les caractères à gauche du 2eme espace.
Auriez-vous la bonne formule ?
Je joins un petit fichier test et je continue à tenter de trouver.
Je vous remercie...
🙂
 

Pièces jointes

Solution
E
Bonjour,

Avec une fonction :

VB: 
Function ExtraireChaine(ByVal Chaine As String) As String

Dim TabChaine As Variant

    ExtraireChaine = ""
    If InStr(1, Chaine, " ", vbTextCompare) > 0 Then
       TabChaine = Split(Chaine, " ")
       Debug.Print UBound(TabChaine)
       Select Case UBound(TabChaine)
              Case 1
                 ExtraireChaine = TabChaine(0)
              Case 2
                ' ExtraireChaine = TabChaine(0) & "-" & TabChaine(1)
                 ExtraireChaine = TabChaine(0) & " " & TabChaine(1)
       End Select
    End If

End Function
Trier par date Trier par votes
Bonjour,

Avec une fonction :

VB: 
Function ExtraireChaine(ByVal Chaine As String) As String

Dim TabChaine As Variant

    ExtraireChaine = ""
    If InStr(1, Chaine, " ", vbTextCompare) > 0 Then
       TabChaine = Split(Chaine, " ")
       Debug.Print UBound(TabChaine)
       Select Case UBound(TabChaine)
              Case 1
                 ExtraireChaine = TabChaine(0)
              Case 2
                ' ExtraireChaine = TabChaine(0) & "-" & TabChaine(1)
                 ExtraireChaine = TabChaine(0) & " " & TabChaine(1)
       End Select
    End If

End Function
 

Pièces jointes

Vote positif 0 Vote négatif
Solution
Bonjour Usine à gaz, Eric,
Peut être avec :
VB: 
=SIERREUR(GAUCHE(C5;CHERCHE(" ";STXT(C5;1+CHERCHE(" ";C5);1000))+CHERCHE(" ";C5));GAUCHE(C5;CHERCHE(" ";C5;1)-1))
La première partie cherche si 2 espaces, la seconde si seulement un espace.
 

Pièces jointes

Dernière édition:
Vote positif 0 Vote négatif
Bjr Eric KERGRESSE 🙂, Bjr sylvanu 🙂

Merci pour vos retours et fichiers.

Nickel pour les 2.
Super, me voilà avec la fonction et la formule.
Je vous remercie.

On ne peut pas mettre 2 posts en solution (à ma connaissance). je mets la 1ère solution.
si vous savez comment mettre plusieurs posts en solutions, je suis preneur 🙂
🙂
 
Vote positif 0 Vote négatif
Bonjour mapomme nocturne, bonjour le Fil 🙂
Et celui-là, tu pourrais tenter une modification de la formule ? :

Microsoft 365 - Formule pour écrire des chiffres en lettre

bonjour à tous j'ai besoin de votre aide, j'aimerai pouvoir dans ma cellule A2 écrire en lettre la valeur de la cellule A1, et sans à avoir utiliser une Macro. Je vous passe en pièce jointe un fichier Excel. Merci beaucoup pour votre aide vincent
excel-downloads.com
Bon réveil 🙂
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

  • Question Question
XL 2016 Extraire chaine de caractères
Réponses
14
Affichages
580
job75
G
  • Question Question
transfert entre 2 tableaux
Réponses
12
Affichages
160
oguruma
D
  • Résolu(e)
XL 2019 Boucle sur plusieurs feuilles
Réponses
5
Affichages
172
sylvanu
  • Résolu(e)
XL 2013 remplacer par des vbcrlf les ":" sous condition
Réponses
11
Affichages
316
patricktoulon
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
K
  • Résolu(e)
XL 2016 Est il possible d'extraire les caractères qui sont présents après le dernier espace dans une chaine de caractères
2
Réponses
25
Affichages
910
djidji59430
F
  • Question Question
XL 2021 Power Query : extraire tableaux et données de PDF
Réponses
0
Affichages
300
Florent74
F
P
  • Résolu(e)
Microsoft 365 Power Pivot et mesure DAX
Réponses
7
Affichages
216
Pedro1111
P
A
  • Question Question
Autres VBA Chaîne de caractères de couleur à extraire dans cellule Excel
2
Réponses
21
Affichages
1 K
Armand11
A
M
  • Question Question
Microsoft 365 Macro pour changer le format de nombre à l'ouverture d'un CSV
Réponses
4
Affichages
145
oguruma
I
  • Résolu(e)
Microsoft 365 Vérifier les doublons
2 3
Réponses
40
Affichages
1 K
Ines99
I
M
  • Question Question
XL 2016 Extraire plusieurs chaînes de caractères d'une même cellule
Réponses
14
Affichages
782
Mam's
M
D
  • Question Question
XL 2016 Future date la plus proche d'aujourd'hui + mise en forme conditionnelle
Réponses
8
Affichages
271
vgendron
C
  • Question Question
XL pour MAC extraire les caractères avant une occurence pas toujours présente
Réponses
10
Affichages
781
Staple1600
C
  • Question Question
Microsoft 365 Retourner chacune des expressions séparées par des sauts de lignes
Réponses
10
Affichages
635
cdesjard
C
G
  • Résolu(e)
XL 2019 Trier par ordre alphabétique de gauche à droite
Réponses
7
Affichages
468
Goffy
G
  • Résolu(e)
XL 2021 Extraction images depuis commentaire de cellule vers dossier.
11 12 13
Réponses
182
Affichages
3 K
patricktoulon
S
  • Résolu(e)
XL 2021 Extraire valeurs après caractère spécial ou numérique
2
Réponses
20
Affichages
1 K
R@chid
B
  • Question Question
XL 2021 [Résolu] Calculer une valeur tenant compte de cellules de valeur '0'
Réponses
5
Affichages
190
Bibinaire
B
L
  • Question Question
XL 2021 formule
Réponses
3
Affichages
319
djidji59430
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…