Discussion :

[Yarro]

Bonjour à tous,

Je sèche un peu pour une macro, d'ailleurs je ne sais pas si c'est possible.
J'aimerai pouvoir surligner tous les mots qui sont égaux à 7 caractères dans une feuille de calcul sachant que les cellules contiennent chacunes plusieurs mots de longueurs différentes.

Merci pour votre aide,

Jean

[unparia]

Bonjour
Je suppose que :

tous les mots qui sont égaux à 7 caractères

veut dire "tous les mots composés de 7 caractères"
question 1 : à quoi (tous les cas sans aucune exception) reconnais-tu un "mot" (et l'isoles-tu) ?
Elle est bête, cette question ?

[Yarro]

Bonjour
Je suppose que :

veut dire "tous les mots composés de 7 caractères"

Oui, tous les mots strictement égaux à 7 caractères.

question 1 : à quoi (tous les cas sans aucune exception) reconnais-tu un "mot" (et l'isoles-tu) ?
Elle est bête, cette question ?

Pas bête du tout d'ailleurs je n'ai pas pensé à préciser merci Ce sont des mots composés de caractères alphanumériques ex: Code devise thé vert Pf905yH stodal partiel

Je souhaiterais donc surligner le mot Pf905yH même si j'ai bien conscience qu'avec une telle macro, le mot partiel composé lui aussi de 7 caractères sera surligné, ce n'est pas un souci.

[unparia]

Oui, tous les mots strictement égaux à 7 caractères.

1) Je déplore qu'un enseignant insiste sur cette étrange formulation. Un mot ne saurait "être égal à x caractères" !
2) tu n'as en aucun cas répondu à ma question pourtant claire :

à quoi (tous les cas sans aucune exception) reconnais-tu un "mot" (et l'isoles-tu) ?

Si cela continue ainsi, je vais te laisser tout seul.

[Yarro]

1) Je déplore qu'un enseignant insiste sur cette étrange formulation. Un mot ne saurait "être égal à x caractères" !
2) tu n'as en aucun cas répondu à ma question pourtant claire :

Si cela continue ainsi, je vais te laisser tout seul.

Un utilisateur sur un autre forum m'a aidé, voici la solution

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub surligner7()
    Dim pl As Range, c As Range, tmp, l As Long, i As Long
    Set pl = [A2:A10]
    For Each c In pl
        tmp = Split(c, " ")
        l = 1
        For i = 0 To UBound(tmp)
            If Len(tmp(i)) = 7 Then c.Characters(Start:=l, Length:=7).Font.ColorIndex = 45
            l = l + Len(tmp(i)) + 1
        Next i
    Next c
End Sub

Désolé de ne pas avoir été "clair".

Bonne journée

[unparia]

Code :

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

tmp = Split(c, " ")

et donc :
dans (exemple)
"les gamines, émues, ont quitté la salle"
"gamines," est un "mot" (de 8 lettres) et "émues," en est un (de 7 lettres) et --->>
"gamines" ne sera pas souligné et "émues," (virgule comprise) le sera !
Et ce n'est là qu'UN exemple de l'absolue nécessité de traiter TOUS les cas de figure permettant de distinguer sans faille (et isoler pour les traites) les "mots" ...