séparer des nombres d'une chaîne

[eastwick]

Bonjour à toutes et tous, une bonne et heureuse année (il n'est pas trop tard !)
J'aimerais détacher tous les nombres de la colonne B vers les colonnes suivantes, il peut y avoir 2 à 5 nombres.
J'ai mis un exemple en ligne 2.

Merci beaucoup !

 

[job75]

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+

 

[phlaurent55]

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

Bonjour à tous,

voir fichier joint

à+
Philippe

 

[phlaurent55]

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

Re,

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

A+

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

 

[eastwick]

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

Merci beaucoup, ça va aller !

 

[phlaurent55]

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

Re,

Merci beaucoup, ça va aller !

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

à+
Philippe

 

[eastwick]

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

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

 

[job75]

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

Re, bonjour Philippe,

Une fonction VBA à placer dans un module standard :

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 :

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

Fichier joint.

A+

 

[job75]

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.