fonction découpage de chaine de caractère

Gégé-45550

XLDnaute Accro

• 29 Novembre 2022

• #2

Bonjour,
la fonction Mid est une fonction VBA.
En VBA, pour faire ce que vous voulez, regardez plutôt la fonction Split.
Sinon, en fonction Excel, c'est STXT qu'il faut utiliser, couplée éventuellement avec CHERCHE ou TROUVE.
Cordialement

 

Dernière édition: 29 Novembre 2022

Vote positif 0 Vote négatif

J

JHA

XLDnaute Barbatruc

• 29 Novembre 2022

• #3

Bonjour à tous,

A essayer

VB:

=STXT(A1;CHERCHE(" ";A1)+1;255)

JHA

 

Vote positif 0 Vote négatif

A

ALS35

XLDnaute Impliqué

• 29 Novembre 2022

• #4

Bonjour à tous;
Peut-être

VB:

=GAUCHE(A1;CHERCHE(" ";A1)-1)

Cordialement

 

Vote positif 0 Vote négatif

Gégé-45550

XLDnaute Accro

• 29 Novembre 2022

• #5

Alors, en Excel, pour le résultat "Avenue", c'est :

VB:

=GAUCHE(STXT(A1;CHERCHE(" ";A1)+1;255); CHERCHE(" ";STXT(A1;CHERCHE(" ";A1)+1;255);1)-1)

et pour le résultat "445", c'est :

Code:

=GAUCHE(A1; CHERCHE(" ";A1;1)-1)

mais, si j'ai bien compris votre demande :

découper une chaîne de caractère en fonction des espaces

Cliquez pour agrandir...

le mieux est d'utiliser VBA avec la fonction 'Split'

Code:

Sub toto()
Dim MaChaine$, Morceaux_de_Chaine, i%
    MaChaine = Worksheets("Feuil1").Range("A1").Value
    Morceaux_de_Chaine = Split(MaChaine, Chr(32))
For i = 0 To 5
    Debug.Print Morceaux_de_Chaine(i)
Next i
End Sub

Cordialement

 

Vote positif 0 Vote négatif

dysorthographie

XLDnaute Accro

• 29 Novembre 2022

• #6

Bonjour,
Quand il s'agit de spliter les espaces pas besoins de préciser le caractère !

Code:

Split(MaChaine)(1)

 

Vote positif 0 Vote négatif

A

ALS35

XLDnaute Impliqué

• 29 Novembre 2022

• #7

Bonjour à tous de nouveau,
Si tu as un environnement Excel 365 tu peux aussi utiliser cette formule pour le premier mot:

VB:

=SIERREUR(CHOISIRCOLS(FRACTIONNER.TEXTE(A1;" ");1);"")

pour le deuxième

Code:

=SIERREUR(CHOISIRCOLS(FRACTIONNER.TEXTE(A1;" ");2);"")

etc
On purrait transformer en LAMBDA pour un peu plus de facilité
Cordialement

 

Vote positif 0 Vote négatif

R

romjn

XLDnaute Nouveau

• 30 Novembre 2022

• #8

bonjour, merci pour toutes vos réponses et suggestions, c'est résolu

 

Vote positif 0 Vote négatif