Couleur UN caractère Textbox

Version imprimable

21/07/2011, 19h31
remy67

Couleur UN caractère Textbox

Bonjour,

Alors idée bien stupide de ma part ...

Je voudrais faire apparaître les espaces dans une textbox.

Sous forme de couleur ou d'une autre manière...
Si vous avez une autre idée ??

Le but de la textbox est de lancer un programme recherche mais sensible au caractère "espace" qui est un champ important je ne peux donc pas l'exclure des recherche.

Merci à vous.

Rémy
22/07/2011, 01h05
Orhleil

Je ne comprends absolument pas ce que tu cherches à faire ^^'

EDIT : ah si, tu veux que dans ta textbox, les caractères normaux s'affichent normalement, mais quand l'utilisateur entre un espace, celui-ci se colorise ?
Je ne pense pas que ce soit faisable si c'est ça. Et puis je ne suis pas convaincu que ce soit très lisible pour l'utilisateur...
22/07/2011, 08h05
remy67

Orhleil oui dans l'idée c'est ca.

Je me doute que ce soit pas possible... mais peut-etre as tu une autre idée pour arriver au but recherché ?

Merci

Bonjour,

Voilà une procédure que j'avais programmé pour coloriser en rouge les lettres autres A, C, G et T contenuent dans une série de mots qui se trouvent en colonne E2:E236
Je suppose qu si au lieu de chercher un caratère on cherche un espace, qui est un caractère aussi on peut y arriver.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub Colorise_Caractère()
Dim Chaîne As String, Lettre As String
Dim i As Integer, Longueur As Integer
Dim cellule As Range
'Parcourir toutes les cellules de E2 à E236
For Each cellule In Range("E2:E236")
    'Analyse de la chaîne caractère par caractère
    For i = 1 To Len(cellule.Text)
        'Pour extraire 1 caractère dans la chaîne à la position i
        'Mid(Texte,PositionDeDépart,NbdeCar)
        Lettre = Mid(cellule.Text, i, 1)
        'Test du caractère Extrait
        If Lettre <> "A" And Lettre <> "C" And Lettre <> "G" And Lettre <> "T" Then
             With cellule.Characters(i, 1)
             .Font.ColorIndex = 3
             End With
        End If
    Next i
Next cellule
End Sub

Si cela peut vous aider en l'adaptant...

22/07/2011, 20h12
remy67

Merci pour ton code, mais ça m'oblige a faire une nouvelle fenêtre pour le contrôle,

Si une personne a une idée pour faire un contrôle des espaces par l'utilisateur plus light en live de sa saisie, se serait cool.
Sinon pas grave ...

Tu peux remplacer l'espace par > dans Ta TextBox et remplacer le > par espace avant lancement de la recherche
Code:

1 2 3 4 Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) If KeyAscii = 32 Then KeyAscii = 62 End Sub
et par exemple
Code:

1 2 3 Private Sub TextBox1_Change() Range("F7") = Replace(TextBox1, Chr(62), " ") End Sub
Il sera visible combien d'espaces tu as.

23/07/2011, 19h42
remy67

Trop classe merci ... j'avais pas pensée à ca.