copier le format d'un mot dans une cellule
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:
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:
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
