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

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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

re
pour ceux qui n'ont pas la fonction JOINDRE.TEXTE il y avait
 
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.
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
4
Affichages
102
Réponses
5
Affichages
406
Retour