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
 

Fichiers joints

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
 

maval

XLDnaute Barbatruc
Bonjour Kingfadhel, JP14,

Je vous remercie beaucoup sa fonctionne nickel

Je vous souhaite une bonne journée

Max
 

merinos

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

Fichiers joints

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
 

Fichiers joints

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 !! :)
 

Fichiers joints

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 ?
 

Fichiers joints

maval

XLDnaute Barbatruc
Salut Kingfadhel,

Je viens de m'apercevoir que j'ai un problème au niveau du code que tu ma envoyer #11
Il manque les derniers nom en "J5 , J6 et J7.
Sa doit être une erreur que je n'arrive pas à trouver ?

Bonne journée
Max
 

ACQUART JOEL

XLDnaute Nouveau
Bonjour à vous,
je doit mettre en place une calculette de financement mes mes base de connaissance excelle étant limiter.
je sèche depuis 2 jours.
aurais t'il un ou une volontaire pour m'aider ?
En vous remerciant.
joel
 

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas