passage a la ligne dans instruction vba

[arcole]

bonsoir à tous,

il y a quelques temps j'ai commencé ma premiere programation VBA, et grâce à vous j'ai pu progresser.

Mais je bute encore sur deux problèmes dans mon code.

Le premier :

mon code pour recupérer la valeur de plusieurs cellules et les concatener dans une seule:

Selection.Value = ("=ConcatCom(" & TextCom & ") & ConcatArr(" & TextArr & ")" & "& ConcatCom(" & TextCom2 & ") & ConcatArr(" & TextArr2 & ")" & "& ConcatCom(" & TextCom3 & ") & ConcatArr(" & TextArr3 & ")" & "& ConcatCom(" & TextCom4 & ") & ConcatArr(" & TextArr4 & ")" & "& ConcatCom(" & TextCom5 & ") & ConcatArr(" & TextArr5 & ")")


Résultat dans la barre de formule:
=ConcatCom([Classeur1]Feuil1!$A$6) & ConcatArr([Classeur1]Feuil1!$B$6:$B$7)& ConcatCom([Classeur1]Feuil1!$A$8) & ConcatArr([Classeur1]Feuil1!$B$8:$B$11)& ConcatCom([Classeur1]Feuil1!$A$12) & ConcatArr([Classeur1]Feuil1!$B$12:$B$15)& ConcatCom([Classeur1]Feuil1!$A$16) & ConcatArr([Classeur1]Feuil1!$B$16:$B$18)& ConcatCom([Classeur1]Feuil1!$A$19) & ConcatArr([Classeur1]Feuil1!$B$19:$B$21)

Résultat dans la cellule:
[ fgsdhj ] : 11111, 22222, [ sfhgh ] : 33333, 44444, 55555, 66666, [ llsslq ] : 77777, 88888, 99999, 111110, [ mmlsdq ] : 122221, 133332, 144443, [ qolqmms ] : 155554, 166665, 177776,

Je voudrais que le résultat dans la cellule affiche :
[ fgsdhj ] : 11111, 22222,
[ sfhgh ] : 33333, 44444, 55555, 66666,
[ llsslq ] : 77777, 88888, 99999, 111110,
[ mmlsdq ] : 122221, 133332, 144443,
[ qolqmms ] : 155554, 166665, 177776,

J'ai essayé avec sendkey "{enter}", entre les formule du module vba mais cela me donne une erreur
Quelqu'un aurait-il une piste?

Mon deuxième problème comment mettre en gras ce qu'il y a entre les [...], j'ai essayé avec font.bold dans ma formule mais rien 🙁

merci

 

[CIFACILE]

Re : passage a la ligne dans instruction vba

Bonsoir,
En utilisant &car(10) à chaque saut de ligne et en validant format de cellule passage automatique à la ligne cela devrait faire l'affaire...
Pour le Bold .... je ne sais pas
Bien cordialement
6facile

 

[arcole]

Re : passage a la ligne dans instruction vba

bonjour au forum,

merci Cifacile, mais cela ne fonctionne pas 🙁
voila le bout de code que j'ai mis :
Selection.Value = ("=ConcatCom(" & TextCom & ") & ConcatArr(" & TextArr & ")") & car(10) & (" & ConcatCom(" & TextCom2 & ") & ConcatArr(" & TextArr2 & ")")

cela a pour effet une erreur sur "Textarr", alors que cela fonctionne avant d'integrer la commande.

msg d'erreur : "Erreur de compilation : Sub ou fonction non definie"

J'ai aussi essayé :
Selection.Value = ("=ConcatCom(" & TextCom & ") & ConcatArr(" & TextArr & ")") & (SendKeys = "%{enter}") & (" & ConcatCom(" & TextCom2 & ") & ConcatArr(" & TextArr2 & ")")

nouveau msg d'erreur sur "textarr": "Erreur de compilation : argument non facultatif"

Je suis perdu 😛

bonne journée à tous

 

[CIFACILE]

Re : passage a la ligne dans instruction vba

Bonjour Arcole,
désolé
essaye peut-être avec chr(10)
car(10) est à utiliser dans une formule et chr(10) dans un code vba
Bien cordialement
6Facile

 

[arcole]

Re : passage a la ligne dans instruction vba

bonjour Cifacile,

Tu n'as pas a etre désolé, c'est super sympas à toi de me donner des indices,
je vais essayer avec chr (10).

Je te tiens au courant.

Merci encore à toi 🙂