séparer des nombres d'une chaîne

job75

XLDnaute Barbatruc

• 20 Janvier 2016

• #2

Re : séparer des nombres d'une chaîne

Bonjour eastwick,

Merci, et meilleurs voeux à vous aussi.

Il est impossible d'obtenir le résultat de votre exemple car l'espace (de code 32) sert à la fois de séparateur de nombres et de séparateur de milliers.

Edit : ah oui mais on peut se servir des décimales, je regarde ça 🙄

A+

 

Dernière édition: 20 Janvier 2016

Vote positif 0 Vote négatif

phlaurent55

Nous a quittés en 2020

Repose en paix

• 20 Janvier 2016

• #3

Re : séparer des nombres d'une chaîne

Bonjour à tous,

voir fichier joint

à+
Philippe

 

Pièces jointes

• 111.xlsm

  31 KB · Affichages: 28
• 111.xlsm

  31 KB · Affichages: 29

Vote positif 0 Vote négatif

phlaurent55

Nous a quittés en 2020

Repose en paix

• 20 Janvier 2016

• #4

Re : séparer des nombres d'une chaîne

Re,

job75 à dit:

Edit : ah oui mais on peut se servir des décimales, je regarde ça 🙄

A+

Cliquez pour agrandir...

Oui mais le problème est qu'il y a des nombres qui ne sont pas suivis par une virgule
par exemple les nombres 100 dans les lignes 35 à 50 (il y en a d'autres)

à+
Philippe

 

Vote positif 0 Vote négatif

eastwick

XLDnaute Accro

• 20 Janvier 2016

• #5

Re : séparer des nombres d'une chaîne

Merci beaucoup, ça va aller !

 

Vote positif 0 Vote négatif

phlaurent55

Nous a quittés en 2020

Repose en paix

• 20 Janvier 2016

• #6

Re : séparer des nombres d'une chaîne

Re,

eastwick à dit:

Merci beaucoup, ça va aller !

Cliquez pour agrandir...

........ à condition que les nombres se terminent tous par une virgule suivie de deux chiffres

à+
Philippe

 

Vote positif 0 Vote négatif

eastwick

XLDnaute Accro

• 20 Janvier 2016

• #7

Re : séparer des nombres d'une chaîne

Ca m'a beaucoup aidé, tout est ok, encore merci

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 20 Janvier 2016

• #8

Re : séparer des nombres d'une chaîne

Re, bonjour Philippe,

Une fonction VBA à placer dans un module standard :

Code:

Function Ventile$(t$, sep$, ordre%)
Dim L%, i%, j%
L = Len(t)
For i = 1 To L
  If Mid(t, i, 1) = sep Then
    For j = i + 1 To L
      If Not IsNumeric(Mid(t, j, 1)) Then
      'If Mid(t, j, 1) = " " Then 'variante possible
        t = Left(t, j - 1) & Chr(1) & Mid(t, j + 1)
        i = j
        Exit For
      End If
    Next j
  End If
Next i
On Error Resume Next
Ventile = Split(t, Chr(1))(ordre - 1)
End Function

Formule en C2 à tirer vers le bas puis à droite autant que nécessaire :

Code:

=Ventile($B2;",";COLONNES($C2:C2))

Fichier joint.

A+

 

Pièces jointes

• Ventile(1).xlsm

  62.5 KB · Affichages: 32

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 20 Janvier 2016

• #9

Re : séparer des nombres d'une chaîne

Re,

Je pensais qu'une fonction VBA matricielle permettrait de diminuer la durée des calculs.

J'ai testé et ce n'est pas le cas 🙄

Bonne soirée.

 

Dernière édition: 20 Janvier 2016

Vote positif 0 Vote négatif