Discussion :

[patmicro]

Bonjour à tous les lecteurs : Dans un fichier Excel comprenant de nombreuses lignes: Comment détecter des mots précis par macro lors de la frappe ou validation de la ligne par la touche Entrée ?
Exemple en Colonne B2 =Mon texte Bla Bla Bla (Allemand)
B3 =Mon texte Bla bla bla (Anglais) etc. jusqu'à l'infini Le texte par ex (Allemand ou Anglais) et les parenthèses sont en rouge.
J'ai essayé la MFC mais ne conviens pas car transforme tout le texte en rouge.
Par avance merci pour votre aide car je ne maitrise pas totallement le VBA.

[Qwazerty]

Bonjour

Pouvez-vous travailler sur plusieurs colonnes?
Si oui, sans macro, il serait possible de "découper" le texte pour mettre le texte "Blabla.." dans une case de la colonne C par exemple et "(Langue)" dans la colonne D.

Bonne soirée
Qwaz

[patmicro]

Bonsoir Qwazerty : Non je ne peux pas travailler sur plusieurs colonnes car j'ai déjà réduit au maximum et ce tableau qui me prend déjà toute la largeur de l'écran. Si oui effectivement j'aurais pu découper le texte.

[Qwazerty]

Salut
Ça ne prendrait pas plus de place puisque la colonne B contenant texte + langue serait alors masqué car n'étant plus utile (peut-être)

Pour réaliser un macro de ce genre, je commencerais par enregistrer un macro avec l'enregistreur de macro afin d'obtenir le code permettant de ne mettre en rouge qu'une partie du texte. (Onglet "développeur", si celui-ci n'est pas présent, il faut l'activer dans le menu général (Bouton rond en haut à gauche) "Options Excel", "Standard", "Meilleurs options pour travailler avec Excel", "Afficher l'onglet dev...".

Par la suite il faudra rechercher dans la cellule les "()" et regarder ce qu'elles contiennent.
Le code sera placé dans l'événement Change de la feuille de calcul.

++
Qwaz

[patmicro]

Re : Merci de participer à cette discussion. J'ai bien réussi à associer le mot entre parenthèses mais il doit être impérativement inclus dans la ligne de texte en colonne B car j'ai déjà une TextBox associée à la Colonne B pour effectuer une recherche par mot clé ou en tapant par les 1eres lettres d'un mot clé. Je suis nul en anglais et n'ai pas appris correctement le langage VBA. j'arrive seulement à modifier du code lorsque cela ne dépasse pas trop mes compétences.

[patricktoulon]

re
bonsoir
en VBA:
tu veux savoir si il y a un mot entre parentheses?
exemple

Code :

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

msgbox [A1].text like "*(*"

tu veux savoir ou commence cette chaine entre prentheses??

Code :

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

msgbox "la prentheses d'ouverture est " InstrRev([A1].text,"(") & "eme caractere"

tu veux mettre cette(chaine entre prentheses) en rouge ?
exemple

Code :

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

1
2
3
4
Sub test()
depart = InStrRev([A1].Text, "(")
[A1].Characters(Start:=depart, Length:=Len([A1].Text) - depart + 1).Font.Color = vbRed
End Sub

bien entendu il te faudra faire la gestion de la presence ou pas de la chaine entre parentheses

edit :une petite variante on met tout en rouge au depart

Code :

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

1
2
3
4
5
Sub test2()
[A1].Font.Color = vbRed
depart = InStrRev([A1].Text, "(")
[A1].Characters(Start:=1, Length:=depart - 1).Font.Color = vbBlack
End Sub

[Qwazerty]

Il faudra sans doute adapter un peu

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
21
22
23
24
25
Private Sub Worksheet_Change(ByVal Target As Range)
Dim CouleurDebut As Long, CouleurFin As Long, CouleurLongueur As Long
 
'On recherche les bornes pour la mise en couleur
'Il faudra modifier un peux surtout si des parenthèses peuvent être présente dans le corps du texte...
CouleurDebut = InStr(1, Target.Value, "(")
CouleurFin = InStr(1, Target.Value, ")")
 
'Si la parenthèse fermante n'existe pas, on va jusqu'au bout du texte
If CouleurFin = 0 Then CouleurFin = Len(Target.Value)
 
'On calcule la longueur du texte à passer en rouge
CouleurLongueur = (CouleurFin - CouleurDebut) + 1
 
'On teste si la parenthèse ouvrante existe
If CouleurDebut <> 0 Then
    With Target.Characters(Start:=1, Length:=CouleurDebut - 1).Font
        .ColorIndex = 1 'Noir
    End With
    With Target.Characters(Start:=CouleurDebut, Length:=CouleurLongueur).Font
        .ColorIndex = 3 'Rouge
    End With
End If
 
End Sub

++
Qwaz