Si Textbox vide pas d'espace

sev · 5 Septembre 2008

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

Code:

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 · 5 Septembre 2008

Re : Si Textbox vide pas d'espace

Bonjour

à essayer

Code:

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 · 5 Septembre 2008

Re : Si Textbox vide pas d'espace

Bonjour

un autre essai

Code:

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

sev · 5 Septembre 2008

Re : Si Textbox vide pas d'espace

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

Si Textbox vide pas d'espace

sev

Guest

wilfried_42

XLDnaute Barbatruc

PascalXLD

XLDnaute Barbatruc

sev

Guest

Discussions similaires

Si Textbox vide pas d'espace

sev

Guest

wilfried_42

XLDnaute Barbatruc

PascalXLD

XLDnaute Barbatruc

sev

Guest

Discussions similaires

Privacy & Transparency

Privacy & Transparency