Ajouter "" et ,

J

jp14

XLDnaute Barbatruc

• 15 Décembre 2017

• #2

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

 

Vote positif 0 Vote négatif

kingfadhel

XLDnaute Impliqué

• 15 Décembre 2017

• #3

Bonjour, le forum
@maval

à toi de jouer

 

Pièces jointes

• Nom_pays.xlsm

  16.7 KB · Affichages: 18

Vote positif 0 Vote négatif

kingfadhel

XLDnaute Impliqué

• 15 Décembre 2017

• #4

Bonjour @jp14, désolé je n'ai pas actualisé la page

 

Vote positif 0 Vote négatif

maval

XLDnaute Barbatruc

• 15 Décembre 2017

• #5

Bonjour Kingfadhel, JP14,

Je vous remercie beaucoup sa fonctionne nickel

Je vous souhaite une bonne journée

Max

 

Vote positif 0 Vote négatif

kingfadhel

XLDnaute Impliqué

• 15 Décembre 2017

• #6

Re,
Merci d’édité le titre de la discussion : "Résolu : Ajouter "" et ,"

 

Vote positif 0 Vote négatif

merinos-BernardEtang

XLDnaute Accro

• 15 Décembre 2017

• #7

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

Vote positif 0 Vote négatif

maval

XLDnaute Barbatruc

• 15 Décembre 2017

• #8

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

Vote positif 0 Vote négatif

R

redexcel

XLDnaute Junior

• 15 Décembre 2017

• #9

maval à dit:

Bonjour Kingfadhel, JP14,

Je vous remercie beaucoup sa fonctionne nickel

Je vous souhaite une bonne journée

Max

Cliquez pour agrandir...

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

Vote positif 0 Vote négatif

R

redexcel

XLDnaute Junior

• 15 Décembre 2017

• #10

maval à dit:

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

Cliquez pour agrandir...

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

Vote positif 0 Vote négatif

kingfadhel

XLDnaute Impliqué

• 15 Décembre 2017

• #11

Re,
Voilà le même code

 

Pièces jointes

• Nom_pays_langue.xlsm

  16.7 KB · Affichages: 15

Vote positif 0 Vote négatif

maval

XLDnaute Barbatruc

• 15 Décembre 2017

• #12

Re,

Je te remercie et te souhaite une bonne soirée

Max

 

Vote positif 0 Vote négatif

maval

XLDnaute Barbatruc

• 18 Décembre 2017

• #13

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

 

Vote positif 0 Vote négatif

A

ACQUART JOEL

XLDnaute Nouveau

• 18 Décembre 2017

• #14

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

 

Vote positif 0 Vote négatif

kingfadhel

XLDnaute Impliqué

• 18 Décembre 2017

• #15

Bonjour,
Une petite modification en pièce jointe.

 

Pièces jointes

• Nom_pays_langue.xlsm

  17.1 KB · Affichages: 20

Vote positif 0 Vote négatif