XL 2016 concatenation caracteres colonne tableau

[finarobert]

bonjour
je possede des tableaux de 2 colonnes avec entre 3000 et 6000 lignes. Dans la première colonne, chaque cellule a un ou deux caractères. Je cherche une macro qui pourrait me concatener tous les caractères de cette première colonne dans une cellule. Macro qui pourrait servir pour tout tableau de longueur différente (dernière cellule non vide de la colonne?)
merci à vous !

 

[job75]

Bonsoir finarobert,

Voyez le fichier joint et cette fonction VBA :

Function ConcatColonne(col As Range) As String
Set col = Intersect(col, col.Parent.UsedRange)
If Not col Is Nothing Then ConcatColonne = Join(Application.Transpose(col), "")
End Function

Bonne nuit.

 

[finarobert]

Bonsoir finarobert,

Voyez le fichier joint et cette fonction VBA :

Function ConcatColonne(col As Range) As String
Set col = Intersect(col, col.Parent.UsedRange)
If Not col Is Nothing Then ConcatColonne = Join(Application.Transpose(col), "")
End Function

Bonne nuit.

merci beaucoup ! tout est ok!

 

[Jacky67]

merci beaucoup ! tout est ok!

Bonsoir finarobert, job75
Bien que tous les caractères sont présent dans la cellule, seuls 1024 seront visibles

 

[finarobert]

Bonsoir finarobert, job75
Bien que tous les caractères sont présent dans la cellule, seuls 1024 seront visibles

y a t il quelque manip à faire pour tout voir?
merci

 

[job75]

Bonjour,

Bien que tous les caractères sont présent dans la cellule, seuls 1024 seront visibles

Sur le fichier joint les 3893 caractères concaténés sont tous visibles.

A+

 

[Jacky67]

y a t il quelque manip à faire pour tout voir?
merci

Re..
A ma connaissance, non, sinon de diviser par groupe de 1000 par exemple
Avec la fonction de job75
Exemple en PJ
NB pour mon info. personnel, quelle est l'utilisation de la manœuvre ?

 

[Jacky67]

Bonjour,

Sur le fichier joint les 3893 caractères concaténés sont tous visibles.

A+

Bonjour Job75
Oui, je n'ai pas fait de "renvoyer à la ligne...", je pensais avoir le tout sur une ligne.
Je suis curieux de voir l'utilisation d'une telle procédure

 

[job75]

Une cellule peut contenir au maximum 32767 caractères.

Leur visibilité est limitée par la taille maximale de la cellule : 409 en hauteur, 255 en largeur.

 

[finarobert]

Re..
A ma connaissance, non, sinon de diviser par groupe de 1000 par exemple
Avec la fonction de job75
Exemple en PJ
NB pour mon info. personnel, quelle est l'utilisation de la manœuvre ?

Bonjour. Au départ il y a des notes de musique (CDEF#G..) dans une colonne. Il faut repérer les suites d'au moins 5 notes qui se répètent et combien de fois.