Microsoft 365 Extraire caractères d'une chaine de caractères

drenek35 · 8 Janvier 2023

Bonjour,
J'ai une chaine de caractères :
13 8 11 9 3 7 4 1 2 5 6 12 10

Je souhaiterais que, lorsque je colle cette chaine de caractère dans une cellule par exemple A3, les nombres se copient dans les cellules adjacentes. Un nombre par cellule.
Ce qui fait que j'aurais les nombres :
13 dans la cellule B3
8 dans la cellule C3
11 dans la cellule D3
...
10 dans la cellule N3

Ci-joint fichier exemple pour une meilleure compréhension.

Merci par avance pour votre aide.
Amicalement,
Christian.

Phil69970 · 8 Janvier 2023

Re

Christian

Je te propose ce fichier qui tient compte de ta demande

Merci de ton retour

@Phil69970

Hasco · 8 Janvier 2023

Bonjour,

Pour ceux qui n'ont pas 365 mais ont quand même accès à FILTRE.XML :

=TRANSPOSE(FILTRE.XML("<items><item>" & SUBSTITUE(A4;" ";"</item><item>") & "</item></items>";"//items/item"))

Pour ceux qui ont 365 (que je n'ai pas) vous avez la fonction :

Fonction TEXTSPLIT - Support Microsoft

support.microsoft.com

Sinon le site xld regorge de trucs pour pour éclater des chaînes de caratères.
Une colonne entière par l'outil de conversion (Données/Convertir)

Phil69970 · 8 Janvier 2023

Bonjour @drenek35
Edit Bonjour @Hasco

Je te propose ce fichier

Merci de ton retour

@Phil69970

fanch55 · 8 Janvier 2023

Bonsoir à tous,
Sinon, pour agir en dynamique au niveau saisie sans retravailler toute la feuille :

VB:

Private Sub Worksheet_Change(ByVal Target As Range)
    lr = Cells(Rows.Count, "A").End(xlUp).Row
    Select Case True
    Case Target.Count > 1
    Case lr < 3
    Case Not Intersect(Target, Range("A3:A" & lr)) Is Nothing
        Application.EnableEvents = False
            Range(Target.Offset(, 1), Rows(Target.Row).Columns(Columns.Count).Address).ClearContents
            T = Split(Target)
            Target.Offset(, 1).Resize(, UBound(T) + 1) = T
        Application.EnableEvents = True
    End Select
End Sub

drenek35 · 8 Janvier 2023

Bonjour @Hasco @Phil69970
Merci pour vos réponses. Les deux solutions sont bien et répondent à mes attentes.

Sauf un petit détail concernant la solution par VBA

@Phil69970, est-il possible d'écraser les données sans confirmation ?
Car quand je rajoute des chaines de caractères dans la colonne A, cela m'oblige de confirmer pour chaque ligne de donnée déjà présente. donc quand mon fichier fera 100 lignes, il faudra que je confirme pour chaque ligne.

Si trop compliqué à faire, c'est pas grave vue que la solution par formule fonctionne également. Mais j'ai peur qu'avec un grand nombre de ligne la solution via formule alourdisse le fichier.

Merci par avance pour votre aide.
Amicalement,

Christian.

Phil69970 · 8 Janvier 2023

Re

Christian

Je te propose ce fichier qui tient compte de ta demande

Merci de ton retour

@Phil69970

drenek35 · 8 Janvier 2023

@Phil69970 c'est parfait.

@fanch55 votre réponse s'est intercalé avec mes réponses. merci pour votre participation. Je n'ai pas réussi à intégrer votre code dans mon fichier. Qu'entendez vous par agir en dynamique au niveau saisie ?

Amicalement,
Christian.

ALS35 · 8 Janvier 2023

Bonjour à tous,
Avec 365, comme indiqué par Hasco, la chaine en A3, une formule unique en B3 :

VB:

=FRACTIONNER.TEXTE(A3;" ")

Cordialement

fanch55 · 8 Janvier 2023

drenek35 à dit:
@fanch55 votre réponse s'est intercalé avec mes réponses. merci pour votre participation. Je n'ai pas réussi à intégrer votre code dans mon fichier.

Classeur joint avec le code intégré dans la feuille

drenek35 à dit:
Qu'entendez vous par agir en dynamique au niveau saisie ?

Pas de bouton à activer, pas de formule à corriger ou étendre, il suffit de faire une modification en colonne A .

patricktoulon · 8 Janvier 2023

Bonsoir
sinon en une seule ligne tu peux te faire ta petite fonction perso
dans un module

VB:

Function StringSplitter(c As String)
StringSplitter = Split(c & Application.Rept(" ", 500), " ")
End Function

ensuite tu sélectionne une plage a partir de "B" et tu lui colle cette formule

=StringSplitter($A2)

et pour les version inf a OFFICE 365 valider en matriciel CTRL+MAJ+ENTER

fanch55 · 9 Janvier 2023

patricktoulon à dit:
Bonsoir
sinon en une seule ligne tu peux te faire ta petite fonction perso
dans un module

VB:

Function StringSplitter(c As String) StringSplitter = Split(c & Application.Rept(" ", 500), " ") End Function

ensuite tu sélectionne une plage a partir de "B" et tu lui colle cette formule
et pour les version inf a OFFICE 365 valider en matriciel CTRL+MAJ+ENTER

Salut @patricktoulon ,
Intéressante comme formule matricielle, mais elle ne concerne qu'une ligne et il faut donc l'adapter à chaque valeur entrée en colonne A.
C'est la première fois que je vois REPT utilisé à la place de STRING mais c'est blanc bonnet ...

Microsoft 365 Extraire caractères d'une chaine de caractères

drenek35

XLDnaute Nouveau

Pièces jointes

Phil69970

Hasco

XLDnaute Barbatruc

Fonction TEXTSPLIT - Support Microsoft

Pièces jointes

Phil69970

XLDnaute Barbatruc

Pièces jointes

fanch55

XLDnaute Barbatruc

drenek35

XLDnaute Nouveau

Phil69970

XLDnaute Barbatruc

Pièces jointes

drenek35

XLDnaute Nouveau

ALS35

XLDnaute Impliqué

fanch55

XLDnaute Barbatruc

Pièces jointes

patricktoulon

XLDnaute Barbatruc

fanch55

XLDnaute Barbatruc

Discussions similaires