Discussion :

[jmatiz]

Bonjour,

J'ai une liste de textes qui contient des mots en majuscule dans un feuil. Dans un autre j'ai la liste des mots à mettre en gras.
J'arrive a le faire pour les mots qui se trouvent à partir de la position 2 du texte mais pas pour celles à partir de la position 1.
Est-ce que je manque quelque chose??

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
 
Sub Gras()
Dim F1, F2 As Worksheet
Dim Cel, C
Dim Mlen, Dep
 
Application.ScreenUpdating = False
 
Set F1 = Sheets("Feuil1"): Set F2 = Sheets("Feuil2")
For Each Cel In F2.[A2:A9]
   For Each C In F1.Range("A1:A18")
      If InStr(1, C.Value, Cel) > 1 Then
         Mlen = Len(Cel)
         Dep = InStr(1, C.Value, Cel)
         C.Characters(Start:=Dep, Length:=Mlen).Font.Bold = True
      End If
   Next C
Next
    End Sub

Merci!

[Invité]

Bonjour,

Modifiez :

Code :

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

          If InStr(1, C.Value, Cel) > 0 Then

[jmatiz]

Bonjour,

Modifiez :

Code :

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

          If InStr(1, C.Value, Cel) > 0 Then

Salut,

Tu m'as fait remarqué l'erreur que j'avais dans le fichier maitre.

Merci.