concatener (macro)

[matoupitou]

bonjour futur(e) sauveur/sauveuse
est-il possible d'avoir une macro avec bouton de commande qui permette de concatener entre ; (point virgule) jusqu'à 10000 réfs dès lors qu'on les colle dans un fichier à partir de la case A ?
je suis sous excel 2007 depuis peu...
Regarde la pièce jointe 10000refs.zip

 

[Paritec]

Re : concatener (macro)

Bonjour Matoupitou, le forum
oui on peut faire ce que tu veux mais tu veux quoi, ton fichier est bien mais maintenant tu ne veux tout de même pas concaténer 10000 références sur une ligne?
un petit exemple de ce que tu souhaites obtenir et une explication dans le fichier et on va te faire cela
a+
papou 😀

 

[matoupitou]

Re : concatener (macro)

merci bcp
ben si ce sont parfois 10000 réfs que je dois injecter dans une appli pour avoir les infos produits
j'ai besoin d'avoir ces 10000 réfs comme cela :
0731454995023;0731454995122;0042284848527;0028947689867;0731453126022;0042284817622;0731453616325;0042283824621;0042284354523;0731451335525;0042284248228;0731453680128;0602498458037;0731451934322;0731453775725;0601215310924;0044001437823;0600753072936;0042281543623;;;;;;;;;;;;;; que je puisse ensuite sélectionner et copier/coller

dans l'idéal un bouton commande "concatener" puis dans une case le résultat comme ci dessus (que je colle 50réfs ou 10000)
merci merci c'est trop lour de le faire à la main!

 

[pierrejean]

Re : concatener (macro)

bonjour matoupitou

Salut Paritec

Vois si cela te convient

 

[kiki29]

Re : concatener (macro)

Salut à tous,une version quasi similaire

 

[matoupitou]

Re : concatener (macro)

aïe cela ne concatene pas jusque 10000 cellules!
sinon c bien ça!

 

[pierrejean]

Re : concatener (macro)

Re

En mettent concat en string dans la macro on devrait pouvoir concatener 10000 * 13 caracteres
Toutefois l'affichage dans la cellule sera limité
Comment injecte-tu le resultat de la concatenation ?

 

[matoupitou]

Re : concatener (macro)

merci bcp mais je dois être nulle pour moi cela concatène jusque 2340 cellules
ou alors je ne sais pas sélectionner dans la barre de formule
serait-on bloqué à un nombre de cellule?

 

[matoupitou]

Re : concatener (macro)

si je pouvais sélectionner le résultat de la concatenation puis faire un copie/colle dans mon application ce serait parfait
pas grave si tout ne s'affiche pas mais comment puis-je sélectionner tout ?
ohlala j'ai honte...

 

[job75]

Re : concatener (macro)

Bonjour le fil,

Sous Excel 2003 et 2007, le nombre maximum de caractères d'une cellule est 32 767 :

Spécifications et limites relatives à Excel - Excel - Microsoft Office

Quant à la macro de concaténation, on peut éviter une boucle avec la fonction Join :

Sub test()
Dim tablo
tablo = Application.Transpose(Range("A1", [A65536].End(xlUp)))
If Application.CountA(tablo) > 1 Then [B1] = Join(tablo, ";") Else: [B1] = [A1]
End Sub

Nota : sous Excel 2003, je n'ai pas pu ouvrir le fichier de kiki29.

A+

 

[matoupitou]

Re : concatener (macro)

super merci mais moi ne pas savoir utiliser ce langage vba
est-il trop demandé que d'avoir une macro tte formatée comma précédemment....
b1@u

 

[job75]

Re : concatener (macro)

Re,

(...) moi ne pas savoir utiliser ce langage vba
est-il trop demandé que d'avoir une macro tte formatée comma précédemment....

Oui car je suis un grand fainéant (mais je ne suis pas le seul) 😀

A+

 

[matoupitou]

Re : concatener (macro)

ah mais c pas gentil ça! et loin de moi ce trait de caractère détrompez-vs!

comment puis-je sélectionner toute ma concatenation sans utiliser la souris dans la barre de formule puique qu'à priori tout ne s'affichera pas?

qq1 peut-il m'aider ? GRAND merci

 

[pierrejean]

Re : concatener (macro)

Re

Fichier avec la macro de mon ami JOB

 

[job75]

Re : concatener (macro)

Re,

Salut pierrejean, et merci d'avoir mis ma macro dans ton fichier.

Puisqu'il n'est pas possible de stocker plus de 32767 caractères dans une cellule Excel, le mieux est de stocker le résultat dans le presse-papiers par cette macro :

Sub Concatener_dans_presse_papiers()
Dim tablo, d As New DataObject
tablo = Application.Transpose(Range("A1", [A65536].End(xlUp)))
If Application.CountA(tablo) > 1 Then d.SetText Join(tablo, ";") Else: d.SetText [A1]
d.PutInClipboard 'stockage dans le presse-papiers
End Sub

Ensuite il suffira d'exécuter la commande Coller dans une autre application : Word ou mieux WordPad.

Le fichier joint contient 5000 données, mais il fonctionnera sans problème avec 10000.

Edit : on peut aussi coller dans le bloc-notes (fichier texte). Voir le fichier Resultat(1).txt joint.

A+