Discussion :

[jeremgt]

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

[78chris]

Bonjour

Code :

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

1
2
With Cel
.value=Ucase(.value)

[jeremgt]

Bonjour

Code :

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

1
2
With Cel
.value=Ucase(.value)

Merci
Ce code ne met-il pas toute la cellule en majuscule ?

[patricktoulon]

Bonjour
aurais tu entendu parler de la methode replace sur un range ?????

[patricktoulon]

teste ceci en adaptant ta plage
regarde bien l'array comme je l'ai reduit car je me sert de "MatchCase:=False " dans le replace
regarde aussi a quoi sert la fonction "InStrRev"

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
Sub test()
    Dim arySearch As Variant, Rng As Range, cel As Range, i&, cel As Range,x&
    arySearch = Split("froment,blé,soja,œufs,oeufs,œuf,oeuf,lait,amandes,sulfites,lactosérum,lactoserum,gluten", ",")
    Set Rng = Range("A2:A5")
 
    With Rng
        For i = LBound(arySearch) To UBound(arySearch)
            .Replace What:=arySearch(i), Replacement:=UCase(arySearch(i)), MatchCase:=False    ', lookat:=xlPart ', lookat:=xlWhole
            For Each cel In .Cells
                x = InStrRev(cel.Value, UCase(arySearch(i)))
                If x > 0 Then cel.Characters(x, Len(arySearch(i))).Font.Bold = True
            Next
        Next
    End With
End Sub

[OrDonc]

Bonsoir

Merci
Ce code ne met-il pas toute la cellule en majuscule ?

regarde ce que fait

Code :

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

Cel = Application.Proper(Cel)

[patricktoulon]

bonsoir
@ordonc application.proper c'est pour les noms propres
l'equivalent en vba est vbpropercase dans la fonction StrConv

Code :

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

ActiveCell = Application.Proper(ActiveCell)

ou

Code :

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

ActiveCell = StrConv(ActiveCell, vbProperCase)

rien a voir avec Ucase qui lui met tout en majuscule
et son equivalent pour StrConv est vbUpperCase

Code :

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

ActiveCell = StrConv(ActiveCell, vbUpperCase)

[jeremgt]

Bonjour Patrick,

Merci ça fonctionne nickel .

Je suis novice en VBA mais c'est un excellent outil que je découvre.

J'ai encore 2 questions:
1/ Penses-tu qu'il serait possible de mettre les mots à mettre en gras (gluten,etc) dans un feuille au lieu de les mettre dans la macro même ?
2/ Pour un autre cas, comment convertir des mots en gras dans une cellule et les mettre en majuscule ?

Merci bcp pour ton aide