Formater liste avec séparateur

RENAUDER

Nous a quitté

Repose en paix

• 3 Décembre 2009

• #2

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.

Code:

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

 

Vote positif 0 Vote négatif

apnart

XLDnaute Occasionnel

• 3 Décembre 2009

• #3

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

 

Vote positif 0 Vote négatif

ROGER2327

XLDnaute Barbatruc

• 3 Décembre 2009

• #4

Re : Formater liste avec séparateur

Bonjour à tous

Une autre du même genre :

Code:

[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

 

Vote positif 0 Vote négatif

apnart

XLDnaute Occasionnel

• 3 Décembre 2009

• #5

Re : Formater liste avec séparateur

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

 

Vote positif 0 Vote négatif

ROGER2327

XLDnaute Barbatruc

• 3 Décembre 2009

• #6

Re : Formater liste avec séparateur

Re...

apnart à dit:

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

Cliquez pour agrandir...

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

ROGER2327
#2298

 

Vote positif 0 Vote négatif

apnart

XLDnaute Occasionnel

• 3 Décembre 2009

• #7

Re : Formater liste avec séparateur

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

J'attache le fichier pour mieux vous montrer

 

Pièces jointes

• DoubleChiffre.xls

  39 KB · Affichages: 55
• DoubleChiffre.xls

  39 KB · Affichages: 67
• DoubleChiffre.xls

  39 KB · Affichages: 59

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 3 Décembre 2009

• #8

Re : Formater liste avec séparateur

bonjour apnart

Salut RENAUDER
Salut ROGER

A tout hasard !!!

 

Pièces jointes

• apnart.zip

  6.7 KB · Affichages: 22
• DoubleChiffre.xls

  41.5 KB · Affichages: 52
• DoubleChiffre.xls

  41.5 KB · Affichages: 56
• DoubleChiffre.xls

  41.5 KB · Affichages: 59

Dernière édition: 3 Décembre 2009

Vote positif 0 Vote négatif

ROGER2327

XLDnaute Barbatruc

• 3 Décembre 2009

• #9

Re : Formater liste avec séparateur

Re...

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

Cliquez pour agrandir...

... 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

 

Vote positif 0 Vote négatif

apnart

XLDnaute Occasionnel

• 3 Décembre 2009

• #10

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.

 

Vote positif 0 Vote négatif