Bonjour,

Je comapre le contenu de deux cellules terme par terme (séparés par des virgules -> en utilisant la fonction split) , si le terme n'est pas commun je le mets en gras dans la deuxieme cellule. si le mot est commun j'aimerais copier son format de la premiere a la deuxieme cellule.
J'ai du mal à copier le format d'un seul terme dans une cellule et l'appliquer sur le meme terme dans la deuxieme cellule.

voici le code que j'utilise:
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
26
27
28
29
30
31
Private Sub GO_Click()
 
Dim loc As Variant
         Dim SP$()
         Dim S1 As String
         Dim S2 As String
         lngRow = ActiveSheet.Cells(Rows.Count, "B").End(xlUp).Row
 
         For i = 3 To lngRow
         S1 = Cells(i, 2).Value
         S2 = Cells(i, 3).Value
         SP = Split(S1, ",")
 
 
         For Each mot In Split(S2, ",")
         L = Len(mot)
         loc = InStr(1, S2, mot, vbTextCompare)
             If IsError(Application.Match(mot, SP, 0)) Then
               ActiveSheet.Cells(i, 3).Select
 
                    With ActiveCell.Characters(loc, L).Font
                    .FontStyle = "Bold"
                    End With
            Else
                 ---With ActiveCell.Characters(loc, L).Font = mot(dans SP).Font
                 End With
            End If
         Next
 
         Next
End Sub
c'est le code pour la ligne
Code : Sélectionner tout - Visualiser dans une fenêtre à part
With ActiveCell.Characters(loc, L).Font = mot(dans SP).Font
qui ne fonctionne pas et que je ne sais pas comment l'appliquer!
Merci d'avance pour votre aide