XL 2010 Surligner texte en fonction d'une valeur en cellule K

[ascal44]

Bonsoir à tous ,

J'ai un fichier de données sur lequel je voudrais appliquer une macro pour surligner le texte en fonction de la valeur en cellule K.
Si en cellule K de trouve " HAUTE " surligner le texte de la ligne en jaune fluo
Si en cellule K de trouve " BASSE " surligner le texte de la ligne en rouge fluo
Si en cellule K de trouve " MI-HAUTE " surligner le texte de la ligne en vert fluo

Ci joint un extrait du dit fichier.
Je ne vois pas comment faire , si vous pouviez m'aider je vous en remercie d'avance.
Bien cordialement

 

[sylvanu]

Bonjour Ascal,
Le VBA ne me semble pas utile, on peut le faire avec simplement 3 MFC.
Mais votre demande est ambiguë : doit on colorer que la cellule en K ou toute la ligne ?
En 2eme PJ toute la ligne est colorée.

 

[sylvanu]

Re,
Et si vous tenez au VBA pour diverses raisons, en PJ un essai avec :

Sub MFC()
Application.ScreenUpdating = False
Dim DL%, F(1 To 3), Couleur(1 To 3) ' Array Formules pour MFC et Couleurs à utiliser
    F(1) = "=$K1=""BASSE""": Couleur(1) = vbRed
    F(2) = "=$K1=""HAUTE""": Couleur(2) = vbYellow
    F(3) = "=$K1=""MI-HAUTE""": Couleur(3) = vbGreen
    [K1].Select
' Mise en place MFC
    DL = [K10000].End(xlUp).Row
    Range("A1:P" & DL).FormatConditions.Delete
    With Range("K1:K" & DL)
        For N = 1 To 3
            .FormatConditions.Add Type:=xlExpression, Formula1:=F(N)
            .FormatConditions(N).Interior.Color = Couleur(N)
        Next N
    End With
End Sub

 

[ascal44]

Bonjour et merci Sylvanu.

Oui je tien au VBA.
Je ne sais pas si ce serait possible de surligner les lignes comme avec un crayon surligneur fluo.
Je joint un fichier pdf avec l'exemple du souhait , par contre je n'ai qu'une couleur jaune de surlignage disponible avec mon acrobat , il faudrait respecter les couleurs rouge , vert et jaune.

 

[sylvanu]

Re,
Perso je ne sais pas faire. Je ne sais que remplir une cellule mais pas comme vous le demandez. (avec un crayon surligneur fluo )
Sorry.
En remplissage cellule, cela donnerait cette PJ.

 

[ascal44]

Donc ça ne ferait pas partie des possibilité d'excel.
Pourrais t on ruser en exportant la feuille sous Word et créer le code VBA pour surligner comme un crayon ?

 

[sylvanu]

Re,
Effectivement la littérature dit que c'est faisable sous Word ms pas sous XL.
Mais là ça dépasse mes petites compétences. 🙂

 

[ascal44]

Merci de m'avoir mis sur le chemin.
La route continue ....