Concaténer des textbox en ignorant le séparateur si textbox est vide

Bonjour,

Avec office365, il y'a une nouvelle fonction :
TEXTJOIN (délimiteur, ignore_empty, text1, [text2],…)

Ce qu'il y'a de génial dans cette fonction c'est que le séparateur n'est pas ajouté si la valeur de la cellule est vide.

Comment faire la même chose avec des textbox ?

J'ai un userform avec des textbox nom prénom adresse ville numéro de tél mobile numéro de tél bureau adresse mail...

A ce jour j'arrive à réunir toutes ces informations dans une seule cellule avec un retour à la ligne après chaque textbox, mais lorsque une textbox est vide je me retrouve avec un retour à la ligne de trop.

Merci pour votre aide
Meilleures salutations
Philippe

Salut,

est-il ici question de VBA ou de formule ?

En VBA, tu peux t'amuser a stocker tes valeurs dans une collection, supprimer les items vides, et faire un Join() au bout...

Vba

OK,

si on part du principe que ta nomenclature de nommage est correctement appliquée, on peut travailler comme ceci :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

'cas de textbox dans un formulaire dim col as New Collection For Each ctl in Me.Controls if Left(ctl.Name,3)="Txt" Then If ctl.Value<>"" Then col.Add ctl.Value End If End If Next   MsgBox Join(col,",")

---