Microsoft 365 Extraire des valeurs de taille variable d'une chaîne de caractère

chris

XLDnaute Barbatruc

• 8 Novembre 2021

• #2

Bonjour

D'où viennent les données ?

Faisable en 3 ou 4 clics avec PowerQuery intégré à ta version, probablement depuis le fichier source

Voir aussi Données Convertir sinon

 

Vote positif 0 Vote négatif

youky(BJ)

XLDnaute Barbatruc

• 8 Novembre 2021

• #3

Bonjour tous,
En VBA c'est simple
Si en [A1] GTP9;426;5;2
split([A1],";")(0) renvoie GTP9
split([A1],";")(1) renvoie 426
split([A1],";")(2) renvoie 5
split([A1],";")(3) renvoie 2
C'était pour pas passer à coté
Bruno

 

Vote positif 0 Vote négatif

Phil69970

XLDnaute Barbatruc

• 8 Novembre 2021

• #4

Bonjour à tous

Tout en image :
Données ==> Convertir==> Délimité


Donne ==>


et en vba cela donne : (Il faut juste sélectionner la zone à convertir)

VB:

Sub Convertion()
Set MaZone = ActiveCell
On Error Resume Next
Selection.TextToColumns Destination:=MaZone, DataType:=xlDelimited, _
    TextQualifier:=xlDoubleQuote, Semicolon:=True, FieldInfo:=Array(Array(1, 1)), TrailingMinusNumbers:=True
Set MaZone = Nothing
End Sub

*Merci de ton retour

@Phil69970

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 8 Novembre 2021

• #5

Bonsoir bigduff, chris, Bruno, Phil69970,

Voyez le fichier joint et les noms définis deb et fin, ce sont des matrices.

Formule en B2 à tirer à droite et vers le bas :

Code:

=STXT($A2;PETITE.VALEUR(deb;COLONNE()-1);PETITE.VALEUR(fin;COLONNE())-PETITE.VALEUR(deb;COLONNE()-1))

A+

 

Pièces jointes

• Extraire(1).xlsx

  10.5 KB · Affichages: 12

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 8 Novembre 2021

• #6

Bonsoir à tous ,
Bienvenue sur XLD @bigduff ,

J'y vais aussi avec mes 3 formules:

• En B1, la formule : =GAUCHE(STXT(A1;CHERCHE(";";A1)+1;99);CHERCHE(";";STXT(A1;CHERCHE(";";A1)+1;99))-1)
• Puis en D1, la formule : =SUPPRESPACE(DROITE(SUBSTITUE(A1;";";REPT(" ";255));255))
• Et après en C1 (C1 dépend de B1 et D1): =SUBSTITUE(STXT(A1;CHERCHE(";" & B1 & ";";A1)+2+NBCAR(B1);999);";" & D1;"")
• Tirer/copier B1 à D1 vers le bas

nota : si vous voulez des "vrais nombres", insérez dans chacune des trois formules 1* juste après le signe =.

 

Pièces jointes

• bigduff+ extraction- v1.xlsx

  10 KB · Affichages: 9

Dernière édition: 8 Novembre 2021

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 8 Novembre 2021

• #7

Bonsoir mapomme,

Ta solution va très bien.

Mais l'intérêt de la mienne c'est qu'elle fonctionne quel que soit le nombre de valeurs à récupérer.

A+

 

Vote positif 0 Vote négatif

B

bigduff

XLDnaute Nouveau

• 9 Novembre 2021

• #8

Wow, merci pour ces prompts retours.

Par rapport au premier message, c'est vrai que passer par l'import de données d'Excel fonctionne très bien. Je copie/colle la colonne dans un fichier note quelconque, j'importe, et le découpage se fait automatiquement.

Mais je vais quand même essayer toutes ces belles formules, pour le panache et la beauté du geste.

Je vous tiens au courant.

 

Vote positif 0 Vote négatif

chris

XLDnaute Barbatruc

• 9 Novembre 2021

• #9

Bonjour

Poste le fichier source : je pourrai montrer comment faire très simplement avec PowerQuery

 

Vote positif 0 Vote négatif