Format personnalisé

Pierrot93

XLDnaute Barbatruc

• 28 Novembre 2011

• #2

Re : Format personnalisé

Bonjour,

pas très clair ceci... s'il s'agit d'importation de données, passe peut être par la conversion, sous 2003 => barre de menu => données => convertir, existe également sous 2007..

bon après midi
@+

 

Vote positif 0 Vote négatif

C

califmeg27

Guest

• 28 Novembre 2011

• #3

Re : Format personnalisé

Merci pour la réponse, mais j'ai déja essayé de convertir les données...
ça n'aide pas, en fait le format que je voudrais c'est:

1000008 virgule guillemet appareil photo guillemet virgule guillemet120 guillemet virgule guillemet240 guillemet

au lieu des seules virgules de moins fichier initial...

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 28 Novembre 2011

• #4

Re : Format personnalisé

Re,

et pourquoi la première valeur n'est pas entre guillemet... mets peut être un extrait de ton fichier en pièce jointe avec données de départ et résultat attendu, sera sans doute plus facile pour t'aider...

 

Vote positif 0 Vote négatif

C

califmeg27

Guest

• 28 Novembre 2011

• #5

Re : Format personnalisé

Voici les fichiers en pièce jointe

 

Pièces jointes

• Extrait Fichier initial.xlsx

  8.3 KB · Affichages: 48
• Mise en forme souhaitée.xlsx

  8.8 KB · Affichages: 56

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 28 Novembre 2011

• #6

Re : Format personnalisé

Re,

essaye ceci, attention la 2ème ligne de ton fichier initial possède déjà des guillemets....

Code:

Option Explicit
Sub test()
Dim i As Long, t() As String, j As Byte
For i = 1 To Range("A65536").End(xlUp).Row
    t = Split(Cells(i, 1), ",")
    For j = 1 To UBound(t)
        t(j) = """" & t(j) & """"
    Next j
    Cells(i, 1) = Join(t, ",")
Next i
End Sub

 

Vote positif 0 Vote négatif

ralph45

XLDnaute Impliqué

• 28 Novembre 2011

• #7

Re : Format personnalisé

Bonjour le fil et à toi, califmeg27

Un début : sélectionne ta colonne, puis
- Rechercher ,
- et Remplacer par ","

A plus...

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 28 Novembre 2011

• #8

Re : Format personnalisé

Re, bonsoir Ralph

A noter que l'on peut passer également par un variant pour gagner en vitesse d'exécution :

Code:

Option Explicit
Sub test()
Dim v() As Variant, i As Long, t() As String, j As Byte
v = Application.Transpose(Range("A1", Range("A65536").End(xlUp)))
For i = LBound(v) To UBound(v)
    t = Split(v(i), ",")
    For j = 1 To UBound(t)
        t(j) = """" & t(j) & """"
    Next j
    Cells(i, 1) = Join(t, ",")
Next i
End Sub

 

Vote positif 0 Vote négatif

JBOBO

XLDnaute Accro

• 28 Novembre 2011

• #9

Re : Format personnalisé

Bonjour,

Un essai avec texte en A2

Code:

=SUBSTITUE(SUBSTITUE(SUBSTITUE(SUBSTITUE(SUBSTITUE(A2;",";","&CAR(34);1);",";CAR(34)&","&CAR(34);2);",";CAR(34)&","&CAR(34);3);CAR(34)&CAR(34);CAR(34))&CAR(34);CAR(34)&CAR(34);CAR(34))

 

Dernière édition: 28 Novembre 2011

Vote positif 0 Vote négatif

C

califmeg27

Guest

• 28 Novembre 2011

• #10

Re : Format personnalisé

Merci à tous pour vos réponses et plus particulièrement à Pierrot, ça marche!!!
Super je vais gagner un temps fou.
Merci encore.

 

Vote positif 0 Vote négatif

C

califmeg27

Guest

• 30 Novembre 2011

• #11

Re : Format personnalisé

Bonjour à tous,

J'ai à nouveau un petit problème, mon import ne marche plus à moins d'ajouter également des guillemets à la première valeur "référence".
Je ne sais pas comment modifier le code pour ce faire.
Merci de votre aide

 

Vote positif 0 Vote négatif