Autres Formule nombres vers texte et caractères particuliers ([ ]

[OlivGM]

Bonjour, je voudrais transcrire une suite en une série sous format texte.
Je vous envoie mon bout d'exemple.

MERCI
Bonne journée.

 

[JHA]

Bonjour à tous,

A essayer en "H1"

="[ "&JOINDRE.TEXTE(",";VRAI;$A$15:$F$15)&" ]"

JHA

 

[OlivGM]

Bonjour JHA,
Merci pour ta réponse rapide......mais il me faut toute la suite dans la même cellule H1 comme l'exemple et dans l'ordre des nombres. La syntaxe est [1,2,3,4,5,6],espace[etc..
MERCI

O.

 

[JHA]

Bonjour à tous,

j'ai regroupé les données en "H22"

JHA

 

[laurent3372]

Bonjour JHA,
Merci pour ta réponse rapide......mais il me faut toute la suite dans la même cellule H1 comme l'exemple et dans l'ordre des nombres. La syntaxe est [1,2,3,4,5,6],espace[etc..
MERCI

O.

La syntaxe est [1,2,3,4,5,6],espace[etc..

=JOINDRE.TEXTE(", ";VRAI;$H$1:$H$15)

 

[OlivGM]

Re,
C'est parfait mais il manque une virgule et un espace après la virgule entre le crochet fermé et le suivant ouvert.
Joindre texte renvoie NOM?
Merci

 

[job75]

Bonsoir OlivGM, JHA, laurent3372,

Pour ceux qui n'ont pas la fonction JOINDRE.TEXTE voyez ce fichier avec cette fonction VBA :

Function ConcatLignes(r As Range)
Dim derlig&, dercol%
derlig = r.Row + r.Rows.Count - 1
dercol = r.Column + r.Columns.Count - 1
ConcatLignes = "["
For Each r In r
    ConcatLignes = ConcatLignes & r & ","
    If r.Column = dercol Then ConcatLignes = ConcatLignes & "]": If r.Row < derlig Then ConcatLignes = ConcatLignes & ", ["
Next
ConcatLignes = Replace(ConcatLignes, ",]", "]")
End Function

Le code doit être placé impérativement dans un module standard.

Formule en H3 =ConcatLignes(A1:F15)

A+

 

[OlivGM]

Bonjour Job75, merci pour ce code VBA qui fonctionne!

A bientôt et bon réveillon à tous !
O.

 

[patricktoulon]

re
pour ceux qui n'ont pas la fonction JOINDRE.TEXTE il y avait

Texte - JOINDRE_TEXTE2007

Bonjour à tous comme personne ne pense au pauvres utilisateur qui n'ont pas 365 ou 2016 je me lance une petite fonction similaire a joindre.texte mais qui fonctionne pour tout le monde fonctionne pour vba et en formule '******************************************** 'fonction JOINDRE_TEXTE pour...

excel-downloads.com

 

[OlivGM]

Bonjour Job75, merci pour ce code VBA qui fonctionne!

A bientôt et bon réveillon à tous !
O.

Bonjour le Forum,
Job75,

Je rencontre un problème avec ta macro VBA, dans la cellule texte, au delà de 1000 caractères, la suite des nombres ne s'affiche pas? (Excel 2019 peut afficher 32000 caractères dans une cellule, je ne comprends pas pourquoi ça bloque?)
MERCI
O.

 

[job75]

Bonjour OlivGM,

Je rencontre un problème avec ta macro VBA, dans la cellule texte, au delà de 1000 caractères, la suite des nombres ne s'affiche pas?

Dans le fichier joint le résultat compte 5998 caractères sans problème.

A+

 

[OlivGM]

Bonsoir Job,
J'ai retesté, impossible et ton fichier n'est plus lisible à hauteur de la colonne CN ? Bizarre???

 

[job75]

Comment ça impossible ? Il y a bien 2235 caractères en H3.

Pour tous les voir donnez à H3 la largeur 225 et renvoyer à la ligne automatiquement.

Bonne nuit.

 

[OlivGM]

Bonjour Job, merci pour cette astuce. Parfait.
Bonne soirée.

O.