Discussion :

[remy67]

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

[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...

[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

[rjamin]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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...

[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 ...

[mercatog]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub TextBox1_Change()
Range("F7") = Replace(TextBox1, Chr(62), " ")
End Sub

Il sera visible combien d'espaces tu as.