Microsoft 365 vba mettre en couleur + gras

toto89

XLDnaute Nouveau
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 :)
 

Statistiques des forums

Discussions
303 510
Messages
2 011 717
Membres
219 063
dernier inscrit
gnn21