Formater liste avec séparateur

[apnart]

Bonjour,

Je pense avoir bien regardé sur le forum, mais je n'ai pas trouvé ma réponse, alors je vous la pose ici 🙂

Colonne A : ce que j'ai
Colonne B : ce que je voudrais avoir

A
1,2
4,6,8
99
1
5,8,99

B
01,02
04,06,08
99
01
05,08,99

Vous l'avez compris, j'ai une succession de chiffres séparée par des virgules. Parfois je n'ai qu'1 seul chiffre, sinon le nombre varie. J'ai également des chiffres à 2 digits (donc des nombres).
Pour les chiffres à 1 digit, je voudrais ajouter un zéro devant, et laisser les chiffres à 2 digits sans modification (ex: 99 reste 99)

Si vous avez des idées, vous serez les bienvenu(e)s.

 

[RENAUDER]

Re : Formater liste avec séparateur

Bonjour,

Tu peux mettre cette fonction dans un module et en te mettant dans une autre cellule Bx, tu appelles cette fonction.
Cela ne marche que pour 2 caractères max.

Function Complete(CellActive)
    Chaine = Split(CellActive, ",")
    For i = 0 To UBound(Chaine)
        If Len(Chaine(i)) = 1 Then X = X & "," & "0" & Chaine(i) Else X = X & "," & Chaine(i)
    Next i
    Complete = Mid(X, 2, Len(X))
End Function

 

[apnart]

Re : Formater liste avec séparateur

Merci m'sieur Renauder !

Bon, en fait, après essai, j'ai #NAME? dans ma colonne B...

J'ai raté quelque chose ?

Je suis en Excel 2007, en anglais

 

[ROGER2327]

Re : Formater liste avec séparateur

Bonjour à tous

Une autre du même genre :

[COLOR="DarkSlateGray"][B]Function deuxChiffres(s As String) As String
Dim x, i As Integer
   Application.Volatile
   If s = "" Then Exit Function
   x = Split(s, ",")
   For i = 0 To UBound(x)
      deuxChiffres = deuxChiffres & Format(x(i), "00") & ","
   Next i
   deuxChiffres = Left$(deuxChiffres, Len(deuxChiffres) - 1)
End Function[/B][/COLOR]

ROGER2327
#2297

 

[apnart]

Re : Formater liste avec séparateur

Argh... même pb avec le code de Roger :-(

 

[ROGER2327]

Re : Formater liste avec séparateur

Re...

Argh... même pb avec le code de Roger :-(

Damned !
Il va falloir attendre les spécialistes d'Excel2007...
A moins que... Où avez-vous installé les fonctions ?
​

ROGER2327
#2298

 

[apnart]

Re : Formater liste avec séparateur

Je les ai mis sur la "sheet"...

J'attache le fichier pour mieux vous montrer

 

[pierrejean]

Re : Formater liste avec séparateur

bonjour apnart

Salut RENAUDER
Salut ROGER

A tout hasard !!!

 

[ROGER2327]

Re : Formater liste avec séparateur

Re...

Je les ai mis sur la "sheet"...

... et c'est pour cela que ça ne "marche" pas.
Créez un module dans votre classeur, et placez-y le code. L'affaire sera classée.
Remarque : Si vous programmez en activant Option Explicit en tête de module (et c'est préférable), il vous faudra aussi déclarer les variables dans le code de RENAUDER.​

ROGER2327
#2299

 

[apnart]

Re : Formater liste avec séparateur

Ah oui... dans un module... pffff désolé, j'ai voulu faire vite, pourtant je fais toujours comme ça...

Merci à vous tous, ça fonctionne impec maintenant.