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

Nathan.Pllt Messages postés 1 Date d'inscription   Statut Membre Dernière intervention   -  
ccm81 Messages postés 10909 Date d'inscription   Statut Membre Dernière intervention   -
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 ! :)
A voir également:

2 réponses

Pierre1310 Messages postés 8564 Date d'inscription   Statut Membre Dernière intervention   651
 
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).
0
ccm81 Messages postés 10909 Date d'inscription   Statut Membre Dernière intervention   2 433
 
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
0