Si Textbox vide pas d'espace

[sev]

Bonjour à tous ,
Comment ne pas mettre d'espace au début si le textbox est vide ?

Private Sub TextBox9_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
TextBox5.Value = TextBox5.Value & " " & TextBox9.Value
End Sub

Si le Textbox5 est vide ne pas mettre d'espace
Si le Textbox5 contient une valeure mettre un espace puis la valeure du Textbox9.

Merci d'avance pour votre aide

 

[wilfried_42]

Re : Si Textbox vide pas d'espace

Bonjour

à essayer

Private Sub TextBox9_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
       if textbox5 = "" then 
          textbox5 = textbox9
       else
          TextBox5.Value = TextBox5.Value & " " & TextBox9.Value
       end if
End Sub

 

[PascalXLD]

Re : Si Textbox vide pas d'espace

Bonjour

un autre essai

Private Sub TextBox9_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
TextBox5.Value = iif(TextBox5.Value="",TextBox9.Value, TextBox5.Value & " " & TextBox9.Value)
End Sub

 

[sev]

Re : Si Textbox vide pas d'espace

Merci celà fonctionne, j'ai opté pour le code de Wilfried