VBA utilisation Ucase

Version imprimable

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:

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

05/03/2019, 15h54
78chris
Bonjour
Code:

1 2 With Cel .value=Ucase(.value)
05/03/2019, 16h00
jeremgt
Citation:
Envoyé par 78chris

Bonjour

Code:

1 2 With Cel .value=Ucase(.value)
Merci :)
Ce code ne met-il pas toute la cellule en majuscule ?
05/03/2019, 16h49
patricktoulon

re

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

1 pièce(s) jointe(s)

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:

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

Pièce jointe 455084

05/03/2019, 19h40
OrDonc

Bonsoir

Citation:

Envoyé par jeremgt

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

regarde ce que fait

Code:

Cel = Application.Proper(Cel)
05/03/2019, 21h17
patricktoulon

re

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

Code:

ActiveCell = Application.Proper(ActiveCell)

ou

Code:

ActiveCell = StrConv(ActiveCell, vbProperCase)

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

Code:

ActiveCell = StrConv(ActiveCell, vbUpperCase)

;)
06/03/2019, 14h18
jeremgt

re

Bonjour Patrick,

Merci ça fonctionne nickel :D.

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 :)
06/03/2019, 19h47
patricktoulon

re

re

Citation:

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)

Bonsoir

Ou bien sans le replace

Code:

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

06/03/2019, 21h54
patricktoulon

re

re

@mercatog

.caption je l'ai complement zapé celui la

merci;)

Citation:

Envoyé par patricktoulon

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:

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

07/03/2019, 11h43
jeremgt

Citation:

Envoyé par patricktoulon

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)