Autres Extraire des chiffres a partir de plusieurs espaces

[frantz06600]

Bonjour, a toutes et a tous

Voici l'exemple c'est stxt
*6 7 8 12 13 14 16 28 30 31 33 37 42 53 54 56 58 59 63
je voudrais avoir
le 6 dans une cellule en tant que chiffre pas texte puis le 7 le 8 etc.... jusqu'au 63.

C'es surement avec la fonction trouve ou find mais je n'y arrive pas.

Merci d'avance.

 

[Etoto]

Bonjour, a toutes et a tous

Voici l'exemple c'est stxt
*6 7 8 12 13 14 16 28 30 31 33 37 42 53 54 56 58 59 63
je voudrais avoir
le 6 dans une cellule en tant que chiffre pas texte puis le 7 le 8 etc.... jusqu'au 63.

C'es surement avec la fonction trouve ou find mais je n'y arrive pas.

Merci d'avance.

Bonjour,

Pas compris, tu veux convertir ses chiffres au format nombre ?

 

[Lolote83]

Bonjour,
La demande est en doublon avec celle-ci https://www.excel-downloads.com/threads/extraire-des-chiffres-sur-du-text.20060721/
Vite fait, sauf pour le premier chiffre
En supposant que la cellule contenant le texte est la cellule C6

Sub Test()
    x = Split([C6], " ")
    For F = 0 To UBound(x)
        Cells(6, 4 + F) = x(F)
    Next F
End Sub

En espérant que cela convienne
Cordialement
Lolote83

 

[Etoto]

Bonjour,

La solution de @Lolote83 à l'aire superbe !


Avec un fonction personnalisée de @vgendron :

Function separe(cellule, ind)

separe = Split(cellule, " ")(ind - 1)
End Function

 

[frantz06600]

Bonjour,

Pas compris, tu veux convertir ses chiffres au format nombre ?

Bonjour oui, et les avoir sur chaque cellules exemple cellule A2 6 celle A3 7 A4 8 A5 12 etc...

 

[frantz06600]

Bonjour,

La solution de @Lolote83 à l'aire superbe !


Avec un fonction personnalisée de @vgendron :

Function separe(cellule, ind)

separe = Split(cellule, " ")(ind - 1)
End Function

Bonjour c'est extrêment gentil mais VBA je ne connais pas j'aurais voulu + une formule

 

[frantz06600]

Bonjour,

La solution de @Lolote83 à l'aire superbe !


Avec un fonction personnalisée de @vgendron :

Function separe(cellule, ind)

separe = Split(cellule, " ")(ind - 1)
End Function

Merci, super mais VBA je ne sais pas faire c 'est pourquoi plus une formule.

 

[frantz06600]

Bonjour,
La demande est en doublon avec celle-ci https://www.excel-downloads.com/threads/extraire-des-chiffres-sur-du-text.20060721/
Vite fait, sauf pour le premier chiffre
En supposant que la cellule contenant le texte est la cellule C6

Sub Test()
    x = Split([C6], " ")
    For F = 0 To UBound(x)
        Cells(6, 4 + F) = x(F)
    Next F
End Sub

En espérant que cela convienne
Cordialement
Lolote83

Merci beaucoup mais Hasco a trouve plus simple pour moi car VBA Données > Scinder le texte en colonnes.

 

[frantz06600]

Bonjour,

Pas compris, tu veux convertir ses chiffres au format nombre ?

Merci beaucoup mais Hasco a trouve plus simple pour moi car VBA Données > Scinder le texte en colonnes.

 

[frantz06600]

Bonjour,

La solution de @Lolote83 à l'aire superbe !


Avec un fonction personnalisée de @vgendron :

Function separe(cellule, ind)

separe = Split(cellule, " ")(ind - 1)
End Function

Merci beaucoup mais Hasco a trouve plus simple pour moi car VBA Données > Scinder le texte en colonnes.

 

[Phil69970]

Bonjour à tous

Par formule je te propose ceci :

*Cela ne fonctionne uniquement avec des chiffres et la formule s'adapte au nombre de chiffres à séparer

*Tu devrais te mettre au VBA car on peut faire beaucoup plus de choses qu'avec des formules
*Merci de ton retour

@Phil69970

 

[frantz06600]

Bonjour à tous

Par formule je te propose ceci :

*Cela ne fonctionne uniquement avec des chiffres

*Tu devrais te mettre au VBA car on peut faire beaucoup plus de choses qu'avec des formules
*Merci de ton retour

@Phil69970

Merci.