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

J

JHA

XLDnaute Barbatruc

• 29 Décembre 2023

• #2

Bonjour à tous,

A essayer en "H1"

VB:

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

JHA

 

Pièces jointes

• Classeur11.xlsx

  10.7 KB · Affichages: 3

Vote positif 0 Vote négatif

OlivGM

XLDnaute Occasionnel

• 29 Décembre 2023

• #3

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.

 

Vote positif 0 Vote négatif

J

JHA

XLDnaute Barbatruc

• 29 Décembre 2023

• #4

Bonjour à tous,

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

JHA

 

Pièces jointes

• Classeur11.xlsx

  10.9 KB · Affichages: 5

Vote positif 0 Vote négatif

laurent3372

XLDnaute Impliqué

Supporter XLD

• 29 Décembre 2023

• #5

OlivGM à dit:

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.

Cliquez pour agrandir...

OlivGM à dit:

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

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

OlivGM

XLDnaute Occasionnel

• 29 Décembre 2023

• #6

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

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 29 Décembre 2023

• #7

Bonsoir OlivGM, JHA, laurent3372,

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

VB:

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+

 

Pièces jointes

• Classeur11 VBA.xlsm

  17.5 KB · Affichages: 4

Vote positif 0 Vote négatif

OlivGM

XLDnaute Occasionnel

• 30 Décembre 2023

• #8

Bonjour Job75, merci pour ce code VBA qui fonctionne!

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

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 30 Décembre 2023

• #9

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

 

Vote positif 0 Vote négatif

OlivGM

XLDnaute Occasionnel

• 3 Janvier 2024

• #10

OlivGM à dit:

Bonjour Job75, merci pour ce code VBA qui fonctionne!

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

Cliquez pour agrandir...

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.

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 3 Janvier 2024

• #11

Bonjour OlivGM,

OlivGM à dit:

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?

Cliquez pour agrandir...

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

A+

 

Pièces jointes

• Classeur11 VBA.xlsm

  25.1 KB · Affichages: 1

Vote positif 0 Vote négatif

OlivGM

XLDnaute Occasionnel

• 3 Janvier 2024

• #12

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

 

Pièces jointes

• test.xlsm

  20.2 KB · Affichages: 1

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 4 Janvier 2024

• #13

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.

 

Vote positif 0 Vote négatif

OlivGM

XLDnaute Occasionnel

• 4 Janvier 2024

• #14

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

O.

 

Vote positif 0 Vote négatif