Bonjour,

Je souhaiterais que certains mots contenus dans une cellule soient mis en gras et en majuscule.
Je suis arrivé à les mettre en gras via le VBA ci-dessous, mais impossible de les mettre en majuscule.

Merci pour votre aide

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
'Dim strSearch As String
Dim arySearch As Variant
Dim searchRng As Range
Dim Cel As Range
Dim i As Long, ii As Long
Set searchRng = Range("A62:I68")
strSearch = "froment,blé,soja,œufs,oeufs,œuf,oeuf,lait,amandes,sulfites,lactosérum,lactoserum,gluten,GLUTEN,LAIT,OEUFS,SOJA"
arySearch = Split(strSearch, ",")
 
 
For Each Cel In searchRng
    With Cel
        .Font.Bold = False
        For ii = LBound(arySearch) To UBound(arySearch)
            If Len(arySearch(ii)) > 0 Then
                i = InStr(Cel.Value, arySearch(ii))
                While i > 0
                    .Characters(i, Len(arySearch(ii))).Font.Bold = True
                    i = i + 1
                    i = InStr(i, Cel.Value, arySearch(ii))
                Wend
            End If
        Next ii
    End With
Next Cel