Microsoft 365 vba mettre en couleur + gras

toto89

XLDnaute Junior
BOnjour,

Voici mon code, mon problème est que je n'arrive pas a mettre en gras et en rouge un texte .. je ss amateur en la matière, je ne veux pas passer par la MFC. Uniquement en VBA.

Merci d'avance pour votre aide.


=>
"For Each cel In Base.Range("DIVERS1").Cells
For Each targ In Target.Cells
If InStr(1, targ.Value, cel) Then targ.Font.Bold = True And targ.Font.Color = vbRed
Next
Next"


dans ce code ci dessous :

Private Sub Worksheet_Change(ByVal Target As Range)


Set Base = Worksheets("Base de données")

ZGRIS = RGB(130, 130, 138)

' If Target.Column = 1 And Target.Count = 1 Then POUR LES COLONNES
If (Target.Row = 14 Or Target.Row = 20) Then 'And Target.Count = 1 Then 'POUR LES LIGNES

Target.Interior.Color = xlNone
Target.Font.Bold = False


For Each cel In Base.Range("DIVERS").Cells
For Each targ In Target.Cells
If InStr(1, targ.Value, cel) Then targ.Interior.Color = ZGRIS
Next
Next

For Each cel In Base.Range("DIVERS1").Cells
For Each targ In Target.Cells
If InStr(1, targ.Value, cel) Then targ.Font.Bold = True And targ.Font.Color = vbRed
Next
Next


End If
End Sub


Merci :)
 

xUpsilon

XLDnaute Accro
Bonjour,

Merci de joindre un fichier exemple afin que l'on puisse répondre au mieux au problème, et/ou à minima mettre ton code entre balises comme le permet cet icone
1674636200416.png


Bonne journée,

PS : Bonjour Phil :)
 

Discussions similaires

Réponses
2
Affichages
129

Statistiques des forums

Discussions
311 733
Messages
2 082 015
Membres
101 870
dernier inscrit
Dethomas