Discussion :

[goninph]

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

[Jean-Philippe André]

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...

[goninph]

Vba

[Jean-Philippe André]

OK,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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,",")