Discussion :

[Chicard]

Bonjour,

J'ai un formulaire dont certains champs peuvent rester vides (la condition n'étant pas gênantes) et donc le retour mes tous dans une seule cellule (ce qui est le but recherché).
Le souci c'est voilà mon code (en considérant que tous les champs soient remplis):

Code :

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

1
2
3
4
 text = TextBox_nom.text & Chr(10) & TextBox_adresse.text & Chr(10) & TextBox_code_postal.text & _
        Chr(32) & TextBox_ville.text & Chr(32) & TextBox_cedex.text & Chr(10) & _
        TextBox_prenom_referent.text & Chr(32) & TextBox_nom_referent.text & _
        Chr(10) & TextBox_telephone.text & Chr(10) & TextBox_fax.text

Ce code fonctionne. Seulement si par exemple les textbox contenant le nom et le prénom du référant sont vides cela me fait une ligne vide dans ma cellule.

Je pourrais faire le bourrin avec une série de if mais je voudrais savoir si il y a un moyen plus subtil ou pas.

[Orhleil]

Salut à toi,
tu peux utiliser les IIf (Immediate If) qui fonctionnent comme ça :
IIf([CONDITION], [SI VRAI], [SI FAUX])
Du coup j'écrirais ton code comme ça :

Code :

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

1
2
3
4
5
6
7
8
9
text = IIf(TextBox_nom.text<>vbNullString, TextBox_nom.text & Chr(10), vbNullString) & _
       IIf(TextBox_adresse.text<>vbNullString, TextBox_adresse.text & Chr(10), vbNullString) & _
       IIf(TextBox_code_postal.text<>vbNullString, TextBox_code_postal.text & Chr(32), vbNullString) & _
       IIf(TextBox_ville.text<>vbNullString, TextBox_ville.text & Chr(32), vbNullString) & _
       IIf(TextBox_cedex.text<>vbNullString, TextBox_nom.text & Chr(10), vbNullString) & _
       IIf(TextBox_prenom_referent.text<>vbNullString, TextBox_prenom_referent.text & Chr(32), vbNullString) & _
       IIf(TextBox_nom_referent.text<>vbNullString, TextBox_nom_referent.text & Chr(10), vbNullString) & _
       IIf(TextBox_telephone.text<>vbNullString, TextBox_telephone.text & Chr(10), vbNullString) & _ 
       TextBox_fax.text

C'est plein de If, mais c'est plus propre que des If / Then

[Chicard]

Effectivement, c'est vrai que j'avais plus dans l'idée une série de if/then. Je pense que je pourrais presque utiliser ça pour autre chose.

Mais avant de mettre un "résolu" je vais attendre voir s'il y a mieux ou pas.

[CodeFacile]

Bonjour,

Pour une solution élégante et simple syntaxiquement , tu peux t'appuyer sur ce type :

Code :

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

1
2
3
4
5
6
coordonne_client  =""
for each control_ in array (  textbox_nom , textbox_prenom , textbox_ville )
 
if control_ = ville  then separ = chr (32) else separ = chr (10)
coordonne_client   = coordonne_client   & IIf(control_.Value = "", "", control_.value & separ ) 
next

[Chicard]

je vois pas bien à quoi sert cette ligne:

Code :

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

coordonne_client   = coordonne_client   & IIf(control_.Value = "", "", control_.value & separ)

Par contre sur les IIF j'ai rajouté une ligne

Code :

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

1
2
3
4
5
6
7
8
9
10
IIf(TextBox_nom.text<>vbNullString, TextBox_nom.text & Chr(10), vbNullString) & _
       IIf(TextBox_complementaire.text<>vbNullString, TextBox_complementaire.text & Chr(10), vbNullString) & _
       IIf(TextBox_adresse.text<>vbNullString, TextBox_adresse.text & Chr(10), vbNullString) & _
       IIf(TextBox_code_postal.text<>vbNullString, TextBox_code_postal.text & Chr(32), vbNullString) & _
       IIf(TextBox_ville.text<>vbNullString, TextBox_ville.text & Chr(32), vbNullString) & _
       IIf(TextBox_cedex.text<>vbNullString, TextBox_nom.text & Chr(10), vbNullString) & _
       IIf(TextBox_prenom_referent.text<>vbNullString, TextBox_prenom_referent.text & Chr(32), vbNullString) & _
       IIf(TextBox_nom_referent.text<>vbNullString, TextBox_nom_referent.text & Chr(10), vbNullString) & _
       IIf(TextBox_telephone.text<>vbNullString, TextBox_telephone.text & Chr(10), vbNullString) & _
       IIf(TextBox_fax.text<>vbNullString, TextBox_fax.text, vbNullString)

et je me retrouve avec l'erreur :

erreur de compilation :
attendu: =

et surligner en rouge le premier & de fin de ligne (la fin du premier IIF), je vois pas pourquoi.

[Chicard]

J'ai résolu le souci de l'erreur

Code :

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

1
2
3
4
5
6
7
8
9
10
text = IIf(TextBox_nom.text <> vbNullString, TextBox_nom.text & Chr(10), vbNullString) & _
       IIf(TextBox_complementaire.text <> vbNullString, TextBox_complementaire.text & Chr(10), vbNullString) & _
       IIf(TextBox_adresse.text <> vbNullString, TextBox_adresse.text & Chr(10), vbNullString) & _
       IIf(TextBox_code_postal.text <> vbNullString, TextBox_code_postal.text & Chr(32), vbNullString) & _
       IIf(TextBox_ville.text <> vbNullString, TextBox_ville.text & Chr(32), vbNullString) & _
       IIf(TextBox_cedex.text <> vbNullString, TextBox_nom.text & Chr(10), vbNullString) & _
       IIf(TextBox_prenom_referent.text <> vbNullString, TextBox_prenom_referent.text & Chr(32), vbNullString) & _
       IIf(TextBox_nom_referent.text <> vbNullString, TextBox_nom_referent.text & Chr(10), vbNullString) & _
       IIf(TextBox_telephone.text <> vbNullString, TextBox_telephone.text & Chr(10), vbNullString) & _
       IIf(TextBox_fax.text <> vbNullString, TextBox_fax.text, vbNullString)

j'aurais bien aimé essayer l'autre solution mais j'ai de léger souci à la mise en place.

Merci.