[XL-2003] Insérer contenu de plusieurs Combobox dans une cellule [Résolu]

[ptitgoud]

Bonjour le forum,

J'aimerais savoir si il était possible :
1) d'insérer le contenu de plusieurs combobox dans une cellule en allant à la ligne dans la cellule entre le contenu de chacune de ces combobox,

2) et gérer en même temps le fait que si la combobox est vide, de ne pas rajouter une ligne "vide" dans la cellule

J'ai fait le code suivant, le problème est le fait que mon retour à la ligne met un carré dans la cellule, et si la combobox est vide il copie une ligne vide.

Code :

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Insérer_Click()
 
ActiveCell.Value = _
TextBox1.Value & vbCrLf & _
ComboBox1.Value & vbCrLf & _
ComboBox2.Value & vbCrLf & _
ComboBox3.Value & vbCrLf & _
ComboBox4.Value & vbCrLf & _
ComboBox5.Value & vbCrLf & _
ComboBox6.Value
 
End Sub

Merci d'avance!

[mercatog]

Si tes Contrôles sont sur un userform

Code :

1
2
3
4
5
6
7
8
9
10
Private Sub Insérer_Click()
Dim Str As String
Dim i As Byte
 
Str = TextBox1.Value
For i = 1 To 6
    Str = Str & IIf(Me.Controls("ComboBox" & i).Value <> "", Me.Controls("ComboBox" & i).Value & vbLf, "")
Next i
ActiveCell.Value = Str
End Sub

Si c'est sur ta feuille, tu peux adapter.

[ptitgoud]

Ah merci ca fonctionne!

C'est donc vbLf qu'il faut utiliser pour aller a la ligne!

Par contre, j'aimerais savoir comment fonctionne le IIF ?

[mercatog]

F1 (gratuit)

Iif, fonction

Voir aussi Exemple Particularités
Renvoie l'un ou l'autre de deux arguments selon l'évaluation d'une expression.
Syntaxe
IIf(expr, truepart, falsepart)
La syntaxe de la fonction IIf comporte les arguments nommés suivants :
Élément Description expr Expression à évaluer. truepart Valeur ou expression renvoyée si la valeur de expr est True. falsepart Valeur ou expression renvoyée si la valeur de expr est False.
Remarques
La fonction IIf évalue toujours truepart et falsepart, même si elle ne renvoie qu'un seul de ces arguments. Vous devez donc être particulièrement attentif à certains effets secondaires indésirables de cette fonction. Par exemple, si l'évaluation de falsepart engendre une division par zéro, une erreur se produit même si la valeur de expr est True.

C'est pareil pour la fonction SI d'excel.

Attention quand même avec IIF, cf Remarques ci haut.


Par contre, le code serait sans le IIF dans ce cas (puisque la partie true est vide)

EDIT

Code :

1
2
3
4
5
6
7
8
9
10
Private Sub Insérer_Click()
Dim Str As String
Dim i As Byte
 
Str = TextBox1.Value
For i = 1 To 6
    If Me.Controls("ComboBox" & i).Value <> "" Then Str = Str & vbLf & Me.Controls("ComboBox" & i).Value
Next i
ActiveCell.Value = Str
End Sub

[ptitgoud]

(Je n'ai pas l'aide d'installée pour VBA c'est pour ça que je te demande)


Merci pour la précision!