Détecter des mots par macro sous Excel 2016

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.

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

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.

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

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.

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

Code:

---

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

---

tu veux savoir ou commence cette chaine entre prentheses??

Code:

---

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

---

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

Code:

---

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:

---

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

---

Il faudra sans doute adapter un peu

Code:

---

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

Re : L'idée si elle est réalisable !!! : Je tape mon texte Bla bla etc (Allemand). si le texte contient par exemple (Allemand) ou (Anglais) lorsque je valide par la touche entrer Les parenthèses et le texte contenu entre les parenthèses se colore en rouge.
Donc Bla bla etc (Allemand) ou autre ex Bla bla etc (Anglais).


Merci de votre participation

rien de plus simple
dans le module de la feuille concernée

Code:

---

1 2 3 4 5 6

Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 2 Then 'on fait l'operation que en colonne "B" depart = InStrRev(Target.Text, "(") If depart > 0 Then Target.Characters(Start:=depart, Length:=Len(Target.Text) - depart + 1).Font.Color = vbRed End If End Sub

---

tu peux taper nimporte quoi(et autre chose)
tu aura nimporte quoi(et autre chose)
et cela uniquement dans la colonne"B"
;)

Re Grand merci à tous les 2 pour votre participation. Cela fonctionne impeccable. c'est exactement ce que je cherchais

En poussant un peu plus loin est-il possible d'avoir la 1ere lettre du mot derrière la 1ere parenthèse en Majuscule ?

Vous m'avez enlevé une belle épine du pied.

Bon 1er Mai à tous

oui l'application de la fonction vb "mid"

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Private Sub Worksheet_Change(ByVal Target As Range) Dim x As String If Target.Column = 2 Then 'on fait l'operation que en colonne "B" depart = InStrRev(Target.Text, "(") If depart > 0 Then Set cel = Target Application.EnableEvents = False x = Target.Text: Mid(x, depart + 1, 1) = UCase(Mid(x, depart + 1, 1)): Target = x Target.Characters(Start:=depart, Length:=Len(Target.Text) - depart + 1).Font.Color = vbRed End If End If Application.EnableEvents = True End Sub

---

important!!!
autrement dit l'evenement change se declenche 2 fois il faut donc apres avoir detecté la parenthese inhiber l'evenement puisque on rechange la valeur de la cellule avec la majuscule

bien que!!! sans ca fonctionne aussi et que l'on n'a pas le temps de le voir ,sans l'inhibition l'evenement se declenche 2 fois

voila

Grand merci le Top du top

@ bientôt sur ce forum :yaisse1::applo::applo::merci:

re
de rien
clique sur résolu si ca te convient;)