XL 2010 TextBox Multiligne Sous condition

[NICOALBERT]

Bonjour le Forum ,

Je suis en cours de me faire un petit fichier avec plusieurs ligne dans la même cellule et ses données les retranscrire dans un TextBox Multiligne .

Mais je ne voudrais afficher que les lignes de couleurs bleu .

Est ce que quelqu'un à une idée ? J'ai cherché partout sur le forum et sur internet sans succès .

Cdlt Nicoalbert .

 

[job75]

Bonjour NICOALBERT,

Voyez le fichier joint et cette macro :

Private Sub CommandButton1_Click()
Dim c As Range, i%, flag As Boolean, t$
Set c = [B2] 'à adapter
For i = 1 To Len(c)
    If c.Characters(i, 1).Font.ColorIndex <> xlAutomatic Then
        flag = True
        t = t & Mid(c, i, 1)
    ElseIf flag Then
        flag = False
        t = t & vbLf
    End If
Next
TextBox1 = t
End Sub

A+

 

[NICOALBERT]

Bonjour job75 , le forum ,

Merci pour le temps que tu a pris pour m'aider en faite il faudrait que les infos s'affiche sur un userform .

Je te joint le fichier modifier avec l'exemple de ce que je recherche .

Sur l'userform il y a 4 TextBox mais dans le réalité il ni en aura qu'un pour la même cellule .

En fonction de ce qui est coché cela n'affiche que les données recherchées.

cdlt Nicoalbert

 

[job75]

J'ai donné le code, il suffit de le mettre tel quel dans le code de l'UserForm si vous n'êtes pas manchot.

 

[NICOALBERT]

C'est bien ce que j'ai fait mais lorsque je clique sur le bouton ça me copie les 4 données.

 

[job75]

C'est bien ce que j'ai fait mais lorsque je clique sur le bouton ça me copie les 4 données.

Comme mon code le montre il faut que dans la cellule B2 les caractères non colorés aient une police de couleur Automatique.