VBA : Texte en gras en fonction d'une chaine de caractère

Question

Bonjour,
J'ai un petit souci. J'ai un tableau Excel dans lequel j'aimerais qu'une macro repère les cellules qui comportent une de ces chaines de caractères : "code mrp03", "code mrp06" ou "code mrp07".
J'ai déjà créé ce code mais il ne marche pas. Quelqu'un peut m'expliquer ?
"Sub Date_Besoin()
'Faire copier coller
Sheets("Feuil2").Activate
Range("Q4:AF62").Select
    If ActiveCell.Text Like "code mrp03" Then
        Cell.Font.Bold = True
    ElseIf ActiveCell.Text Like "code mrp06" Then
        Cell.Font.Bold = True
    ElseIf ActiveCell.Text Like "code mrp07" Then
        Cell.Font.Bold = True
    End If
End Sub
Merci d'avance ! :)

Pierre1310 · Answer

Salut,
ActiveCell.Font.Bold = True  
 Plutôt?
De plus, je ne sais pas si tu as le droit de sélectionner toute la plage et de lui dire de tout faire comme ça, je pense qu'il va te falloir une boucle (longtemps que je n'ai pas fais de vba).

ccm81 · Answer

Bonjour
Tu peux éviter une macro avec une Mise en forme conditionnelle (MFC) avec comme formule appliquée à ta plage (Q4:AF62)
=(OU(NB.SI(Q4;"*code mrp03*");NB.SI(Q4;"*code mrp07*");NB.SI(Q4;"*code mrp06*"))) 
Cdlmnt

VBA : Texte en gras en fonction d'une chaine de caractère

2 réponses

Votre réponse

Discussions similaires

Newsletters