une virgule entre les chiffres

J

JHA

XLDnaute Barbatruc

• 22 Décembre 2013

• #2

Re : une virgule entre les chiffres

Bonjour à tous,

A essayer

JHA

 

Pièces jointes

• Classeur concat.xlsm

  15 KB · Affichages: 50

Vote positif 0 Vote négatif

S

sampla

Guest

• 22 Décembre 2013

• #3

Re : une virgule entre les chiffres

Merci génial ça marche bien

Il me reste quelques chose à voir pour supprimer les doublons automatiquement j'essaie et je reviens. 🙂

 

Vote positif 0 Vote négatif

D

david84

XLDnaute Barbatruc

• 22 Décembre 2013

• #4

Re : une virgule entre les chiffres

Bonjour à tous,
à tester :

Code:

Function sampla(champ)
Dim temp(), i&
ReDim temp(1 To champ.Rows.Count)
For Each c In champ
    i = i + 1: temp(i) = c.Value
Next c
sampla = Join(temp, ",")
End Function

A+

 

Vote positif 0 Vote négatif

J

JHA

XLDnaute Barbatruc

• 22 Décembre 2013

• #5

Re : une virgule entre les chiffres

Re,

Avec une fonction personnalisée du forum

Avec une seule formule

Code:

="( "&SansDoublon(GAUCHE(concat(A1:A10);NBCAR(concat(A1:A10))-1);",")&" )"

JHA

 

Pièces jointes

• Classeur concat sans doublon.xlsm

  17.6 KB · Affichages: 40

Vote positif 0 Vote négatif

S

sampla

Guest

• 22 Décembre 2013

• #6

Re : une virgule entre les chiffres

il est super ce forum, je poste y'a meme pas 30 minutes et le problème est résolu 😱

Par contre je comprends pas, lorsque je veux récupérer la formule sur une autre feuille y'a une erreur, et quand j'affiche les macros, c'est vide

J'ai pas compris la formule des doublons 😕

 

Vote positif 0 Vote négatif

S

sampla

Guest

• 22 Décembre 2013

• #7

Re : une virgule entre les chiffres

Ah oui y'a la fonction qui appel la macro sauf que je trouve pas la macro.
J'ai 15 suites de donnée à traiter y'a surement un moyen de tout rassembler via une macro, je vais réflechir à comment je peux l'expliquer

 

Vote positif 0 Vote négatif

D

david84

XLDnaute Barbatruc

• 22 Décembre 2013

• #8

Re : une virgule entre les chiffres

Il me reste quelques chose à voir pour supprimer les doublons automatiquement

Cliquez pour agrandir...

à tester :

Code:

Function sampla(champ)
Dim temp(), dico As Object
Set dico = CreateObject("scripting.dictionary")
For Each c In champ
    dico(c.Value) = c.Value
Next c
temp = dico.Keys
sampla = Join(temp, ",")
End Function

A+

 

Vote positif 0 Vote négatif

S

sampla

Guest

• 22 Décembre 2013

• #9

Re : une virgule entre les chiffres

Tout fonctionne bien sauf que j'ai 10000 ligne donc la fonction conca renvoie une erreur donc j'ai fais une ptite macro manuel qui supprime tout les doublons pour qu'il en reste une centaine et là le conca fonctionne. 😀 et ça met tout à jours

Merci, j'aurais jamais trouvé tout ça sans vous

 

Vote positif 0 Vote négatif

D

david84

XLDnaute Barbatruc

• 22 Décembre 2013

• #10

Re : une virgule entre les chiffres

Tout fonctionne bien sauf que j'ai 10000 ligne donc la fonction conca renvoie une erreur

Cliquez pour agrandir...

Quel résultat renvoie la fonction que je t'ai proposée au post #8 ?
A+

 

Vote positif 0 Vote négatif

S

sampla

Guest

• 22 Décembre 2013

• #11

Re : une virgule entre les chiffres

la fonction du post 8 fonctionne aussi meme sur 10000 lignes, c'est la fonction doublon qui marche pas sur une si grande ligne, ça donne
#VALEUR!

par contre ça enlève les doublons sur 500 lignes et meme plus, je croyais pas qu'on pouvais faire ça. Excel m'etonne de jour en jour

 

Vote positif 0 Vote négatif

S

sampla

Guest

• 22 Décembre 2013

• #12

Re : une virgule entre les chiffres

ah si ta fonction du post 8 fonctionne directement sans passer par 2 fonctions

 

Vote positif 0 Vote négatif