XL 2010 Fusionner 2 TextBox si ...

[NICOALBERT]

Bonsoir le Forum ,

Je vient de créer un Userform pour entrer des informations .

Ce que je cherche à faire et fusionner 2 TextBox si les 2 sont rempli

ex : si seulement textBox1 est rempli alors : Dupont en noir
si les 2 TextBox sont rempli alors les fusionner avec séparateur ">>>" et mettre en Rouge les infos du TextBox2 (Dupont >>> Gérard) .

Est ce quelqu'un à une petite idée ?

Cdlt Nicoalbert

 

[Valtrase]

Salut Nicoalberty,
Utilises Characters, un bout de code qui pourrait faire l'affaire...

Sub Valider_Click()

    Unload UserForm1

    'NomEtPrénom = TextBox1.Value + " >>> " + TextBox2.Value ne sers plus....

    Sheets("Bd").Select
    Range("a65536").End(xlUp).Offset(1, 0).Select
    If Selection.Row = 65536 Then
        ActiveWorkbook.Sheets.Add after:=Worksheets(Workssheets.Count)
    End If

    'ActiveCell.Offset(0, 0) = NomEtPrénom 'Pas la peinne puisque tu fais un .Select
    With ActiveCell
        .Value = TextBox1.Value
        .Characters(1, Len(.Value)).Font.Color = vbBlack
        Dim i As Integer
        i = Len(TextBox1.Value) + 1
        .Value = .Value & " >>> " & TextBox2.Value
        .Characters(i, Len(.Value)).Font.Color = vbRed

    End With
End Sub

 

[NICOALBERT]

Bonsoir valtrase , le forum ,

Je vient d'essayer ton code (et je t'en remercie) , y a t'il un moyen de ne pas afficher les flèches si seul le TextBox1 est rempli ?

Cdlt Nicoalbert

 

[Staple1600]

Bonsoir le fil

Pour infos
Avec cette ligne de code rédigée telle quelle (avec la coquille)
ActiveWorkbook.Sheets.Add after:=Worksheets(Workssheets.Count)
Excel devrait tousser, non ?
Je vous laisse trouver la consonne surnuméraire

 

[Valtrase]

C'esst parce-que NicoAlbert a un ssheveu sur la langue....
Une faute de frappe ça peu arriver....
Nicoalbert mets une condition

With ActiveCell
        .Value = TextBox1.Value
        .Characters(1, Len(.Value)).Font.Color = vbBlack
        Dim i As Integer
        i = Len(TextBox1.Value) + 1
        If TextBox2 <> "" Then
            .Value = .Value & " >>> " & TextBox2.Value
            .Characters(i, Len(.Value)).Font.Color = vbRed
        End If
    End With

 

[Staple1600]

Re

Oui ca peut arriver
C'est pour cela que mon message était rempli d'emoticones (pour signaler un ton amicalement humoristique)