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