Masquer l’espace d'un textbox vide

[pedram0080]

Bonjour tout le monde,
comment on peut supprimer l'espace du à un textbox vide dans la cellule cible.

Merci d'avance

 

[Modeste]

Re : Masquer l’espace d'un textbox vide

Bonjour pedram0080,

On ne peut pas vraiment parler "d'espace" (à moins que je n'aie rien compris!?)

Une solution (parmi d'autres) serait de remplacer ta première instruction par

Cells(Selection.Row, 1) = TextBox1 & IIf(TextBox2 = "", "", "*" & TextBox2) & IIf(TextBox3 = "", "", "*" & TextBox3)

Tu adapteras, le cas échéant à la seconde instruction qui semble faire la même chose, avec un séparateur différent

 

[pedram0080]

Re : Masquer l’espace d'un textbox vide

bonjour Modeste, Merci c'est gentil mais malheureusement j'ai pas réussi à appliquer ton code sur 2ème partie là où on envoie la valeur d'un textbox par &vbLf& à la ligne suivante, tu peux regarder de nouveau le fichier exemple stp!

MERci

 

[phlaurent55]

Re : Masquer l’espace d'un textbox vide

Bonjour pedram, Luc,

avec ce code:

Private Sub CommandButton1_Click()
Cells(ActiveCell.Row, 1) = ""
For i = 1 To 3
If Me.Controls("textbox" & i) <> "" Then Cells(ActiveCell.Row, 1) = Cells(ActiveCell.Row, 1) & Me.Controls("textbox" & i) & vbLf
Next i

If OptionButton2 Then Cells(ActiveCell.Row, 1).Font.Size = 8
Unload Me
End Sub

à+
Philippe

 

[Cousinhub]

Re : Masquer l’espace d'un textbox vide

Bonsoir,

Une autre solution :

Private Sub CommandButton1_Click()
Dim I As Byte
Dim Tmp
For I = 1 To 3
    If Me.Controls("TextBox" & I) <> "" Then
        Tmp = Tmp & Me.Controls("TextBox" & I) & vbLf
    End If
Next I
If Tmp <> "" Then
    With Cells(ActiveCell.Row, 1)
        If OptionButton2 Then .Value = Left(Tmp, Len(Tmp) - 1)
        If OptionButton2 Then .Font.Size = 8
    End With
End If
Unload Me
End Sub

Bonne soirée

 

[mapomme]

Re : Masquer l’espace d'un textbox vide

Bonjour pedram0080, Modeste, phlaurent55, bhbh,

Un autre essai pour ce que j'en ai compris:

Private Sub CommandButton1_Click()
Dim res(), elem, s$
  res = Array(TextBox1.Value, TextBox2.Value, TextBox3.Value)
  For Each elem In res
    s = IIf(s = "", IIf(elem = "", "", elem), IIf(elem = "", s, s & "*" & elem))
  Next elem
  If OptionButton1 Then
    Cells(ActiveCell.Row, 1).Font.Size = 10: Cells(ActiveCell.Row, 1) = s
  ElseIf OptionButton2 Then
    Cells(ActiveCell.Row, 1).Font.Size = 8: Cells(ActiveCell.Row, 1) = Replace(s, "*", vbLf)
  Else
    Cells(ActiveCell.Row, 1) = s
  End If
  Unload UserForm1
End Sub

 

[Modeste]

Re : Masquer l’espace d'un textbox vide

Re-bonjour,
Salut Philippe , bhbh ,

Heureusement que j'avais précisé une solution parmi d'autres

Sans prétendre que celle-ci soit plus efficace que celle-là, mais juste pour adapter la première et l'améliorer un brin au passage (en ajoutant une chaîne temporaire, comme bhbh, mais sans les boucles -je n'en ai plus guère - des deux compères) ... ceci semble fonctionner aussi:

Private Sub CommandButton1_Click()
temp = IIf(TextBox1 = "", "", TextBox1 & vbLf) & IIf(TextBox2 = "", "", TextBox2 & vbLf) & TextBox3
Cells(ActiveCell.Row, 1) = Mid(temp, 1, Len(temp) + (Right(temp, 1) = vbLf))
If OptionButton2 Then Cells(ActiveCell.Row, 1).Font.Size = 8
Unload Me
End Sub

[Edit:] Salut mapomme
on voit bien que ce sont les vacances et qu'il pleut ... On dirait des hirondelles rassemblées sur un fil, comme avant la migration d'automne ... enfin, s'il reste des hirondelles!?

 

[pedram0080]

Re : Masquer l’espace d'un textbox vide

Merci infiniment phlaurent55 ( Phlippe), bhbh, mapomme et Modeste
Bon week end!