Microsoft 365 vba mettre en couleur + gras

[toto89]

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

 

[Phil69970]

Bonjour @toto89

J'ai pas vu ton fichier

@Phil69970

 

[xUpsilon]

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

Bonne journée,

PS : Bonjour Phil

 

[toto89]

voici le fichier ! ... merciii !

@xUpsilon et @Phil69970

 

[toto89]

J'ai trouver j'ajoute une ligne.. par contre mon pb est que cela ne se fait pas sur toutes les lignes demandées...

a voir

merci

 

[Phil69970]

Bonjour @toto89

Je te propose ce fichier

Merci de ton retour

@Phil69970

 

[toto89]

Bonjour @toto89

Je te propose ce fichier

Merci de ton retour

@Phil69970

Au TOP !
c'est bien ça que je voulais !
Merci bcp @Phil69970 !

Bonne soirée