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

[patricktoulon]

re

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 ?

R1 oui tu peux te servir d'une plage dans un sheets et y mettre tout tes mots que tu desire elle pourrait etre ainsi evolutive

R2 la il te faut SI!! les mots ne sont pas dans ta liste boucler effectivement sur les caracteres de la valeur de cellule et chopper ceux qui sont en gras et les remplacer par ucase(le dit caractere)

[mercatog]

Bonsoir

Ou bien sans le replace

Code :

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

1
2
3
4
5
6
7
8
9
10
11
For i = LBound(arySearch) To UBound(arySearch)
    For Each Cel In Rng
        x = InStrRev(Cel.Value, arySearch(i))
        If x > 0 Then
            With Cel.Characters(x, Len(arySearch(i)))
                .Font.Bold = True
                .Caption = UCase(.Caption)
            End With
        End If
    Next Cel
Next i

[patricktoulon]

re

@mercatog

.caption je l'ai complement zapé celui la

merci

[jeremgt]

re



R1 oui tu peux te servir d'une plage dans un sheets et y mettre tout tes mots que tu desire elle pourrait etre ainsi evolutive

R2 la il te faut SI!! les mots ne sont pas dans ta liste boucler effectivement sur les caracteres de la valeur de cellule et chopper ceux qui sont en gras et les remplacer par ucase(le dit caractere)

pour le cas 1... j'ai modifié le code.. mais j'ai du louper une étape

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
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 = Sheets("Allergenes").Range("A1:A5000")
 
 
 
For Each Cel In searchRng
With Cel
.Font.Bold = False
For ii = LBound(strSearch) To UBound(strSearch)
If Len(strSearch(ii)) > 0 Then
i = InStr(Cel.Value, strSearch(ii))
While i > 0
.Characters(i, Len(strSearch(ii))).Font.Bold = True
i = i + 1
i = InStr(i, Cel.Value, strSearch(ii))
Wend
End If
Next ii
End With
Next Cel

[jeremgt]

re



R1 oui tu peux te servir d'une plage dans un sheets et y mettre tout tes mots que tu desire elle pourrait etre ainsi evolutive

R2 la il te faut SI!! les mots ne sont pas dans ta liste boucler effectivement sur les caractères de la valeur de cellule et chopper ceux qui sont en gras et les remplacer par ucase(le dit caractere)

Bonjour,

Pour R2, en fait ce ne sont pas des mots dans une liste, mais un texte dans une cellule fusionnée (A28:H37) qui contient des mots en gras qu'il faudrait transformer en majuscule. (je suis novice dans tout çà désolé des mes questions basiques)