Ajouter "" et ,

maval

XLDnaute Barbatruc
Bonjour,

J'ai sur une feuille une liste de nom en colonne "A" j'aimerai si possible à l'aide de VBA mettre ma liste de nom sur une ligne "transposer" en ajoutant " des "" et , " c'est à dire ex:

["Brasil", "Chile", "Argentina", "Uruguay", "Paraguay", "Bolivia", "Peru"]; Ect…………..

Je joint mon fichier qui sera plus explicite.

Je vous remercie d'avance

Cordialement

max
 

Pièces jointes

  • Nom_pays.xlsm
    10.8 KB · Affichages: 12

jp14

XLDnaute Barbatruc
Bonjour
Ci joint un exemple de code

Code:
Sub travdem()
Dim Cellule1 As Range, Plg1 As Range
Dim Nomfeuille1 As String, Col1 As String, data1 As String
'parametre
Nomfeuille1 = "Feuil1"
Col1 = "A"
'code
With Sheets("Feuil1") 


For Each Cellule1 In .Range(Col1 & "2:" & Col1 & .Range(Col1 & .Rows.Count).End(xlUp).Row)

    data1 = data1 & Chr(34) & Cellule1 & Chr(34) & ","
Next Cellule1
MsgBox data1

End With
End Sub
A tester et à modifier

JP14
 

merinos

XLDnaute Accro
parfois, le plus simple est de ne pas chercher de methodes automatiques...

En fait on doit écrire une macro quand:
- on va refaire le même travail souvant
- le travail est répétitif
on ne doit pas faire de macro quand:
- c'est du one_shot
- passer ses données par la macro va demander autant de temps qu'un autre solution (recurant)

Bref tout dépend de l'usage...

Merinos.
 

Pièces jointes

  • Nom_pays sans macro xlsm.xlsm
    17.9 KB · Affichages: 13

maval

XLDnaute Barbatruc
Re Kingfadhel,

Je voudrais te demander si cela est possible.
J'ai refait mon fichier avec quatre langues Colonne "A" Esp. Colonne "C" Fr. Colonne "E" Angl. Colonne "G" All.
Est-il possible d'avoir les trois langue transposer d'un seul coup = Esp., Angl., All en "J 5, 6, 7 ?

Je te remercie d'avance.

Max
 

Pièces jointes

  • Nom_pays_langue.xlsm
    16.6 KB · Affichages: 11

redexcel

XLDnaute Junior
Bonjour Kingfadhel, JP14,

Je vous remercie beaucoup sa fonctionne nickel

Je vous souhaite une bonne journée

Max


Bonjour maval

La solution de Kingfadhel est excellente.
cependant si tu veux une solution sans macro voici le fichier ci-joint (tu tire les formules sur la colonne "B" jusqu'au bout de la liste et tu récupère ton résultat tout en bas.

Dis moi si ça te peux te servir !! :)
 

Pièces jointes

  • Feuil1.xlsx
    11.9 KB · Affichages: 11

redexcel

XLDnaute Junior
Re Kingfadhel,

Je voudrais te demander si cela est possible.
J'ai refait mon fichier avec quatre langues Colonne "A" Esp. Colonne "C" Fr. Colonne "E" Angl. Colonne "G" All.
Est-il possible d'avoir les trois langue transposer d'un seul coup = Esp., Angl., All en "J 5, 6, 7 ?

Je te remercie d'avance.

Max


maval

regarde mon fichier ci-joint
je pense que tu peux te servir de ça, il te suffit de faire un onglet par langue et de tirer les formules en colonne B

ca te vas ?
 

Pièces jointes

  • Fichiers 4 langues.xlsx
    21.3 KB · Affichages: 13

Discussions similaires

Statistiques des forums

Discussions
311 725
Messages
2 081 940
Membres
101 845
dernier inscrit
annesof