Microsoft 365 Si, then else problème de logique dans ma tête

[sylviecro]

Bonjour à tous,

J'ai un problème de logique et je ne sais pas comment l'écrire

Voilà :

Si TextBox1 et textBox2 = vrai ( veut dire qu'il y a une valeur à l'intérieur)
then
range ("C18") = Textbox1.value & "," & " " & textbox2.value

Else

là ou je bloque... c'est que si il y a une valeur dans une ou l'autre et pas dans les 2, je veux qu'elle soit écrite dans la cellule C18 quand même

je suis certaine que c'est super facile, mais quelques fois c'est l'hiver dans ma tête

donc si les 2 textbox ont une valeur j'envoie la valeur des 2 textbox dans une cellule, mais si l'une ou l'autre a une valeur je veux inscrire cette valeur, mais toujours dans cette même cellule


merci et bonne journée

 

[sylvanu]

Bonjour Sylviecro,
Un essai :

Sub Test()
    If UserForm1.TextBox1.Value <> "" Or UserForm1.TextBox2.Value <> "" Then
        Range("C18") = TextBox1.Value & "," & " " & TextBox2.Value
    End If
End Sub

 

[haonv]

Bonjour,

un essai avec:

Si TextBox1 et textBox2 = vrai ( veut dire qu'il y a une valeur à l'intérieur)
then
range ("C18") = Textbox1.value & "," & " " & textbox2.value

Elseif
Si TextBox1 = vrai ( veut dire qu'il y a une valeur à l'intérieur)
then
range ("C18") = Textbox1.value

Elseif
Si textBox2 = vrai ( veut dire qu'il y a une valeur à l'intérieur)
then
range ("C18") = Textbox2.value

End if

Cordialement
Bonsoir Sylnanu

 

[sylviecro]

Bonjour Sylviecro,
Un essai :

Sub Test()
    If UserForm1.TextBox1.Value <> "" Or UserForm1.TextBox2.Value <> "" Then
        Range("C18") = TextBox1.Value & "," & " " & TextBox2.Value
    End If
End Sub

Merci beaucoup ça fonctionne super bien

 

[patricktoulon]

re
bonsoir
meme si c'est résolu et juste pour le fun et par ce que je fait rien comme les autres

[c18].Value = Replace(Trim(TextBox1.Value & " " & TextBox2.Value), " ", ", ")

 

[eriiic]

Bonjour à tous,

Tant qu'on y est, si tu ne veux pas de la ", " lorsqu'elle est inutile :

[C18].Value = TextBox1.Value & IIf(TextBox1.Value <> "" And TextBox2.Value <> "", ", ") & TextBox2.Value

eric

 

[patricktoulon]

re
eriiiic avec mon model la virgule y est que quand c'est nécessaire tu devrais tester
c'est la combinaison de replace et trim qui opère

 

[eriiic]

Bonjour,
arf, j'avais fait abstraction du Trim, désolé
En espérant que les saisies soient bien des mots uniques.
eric