Formule à 3 conditions avec du texte

  • Initiateur de la discussion Initiateur de la discussion Boby71C
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Boby71C

XLDnaute Impliqué
Bonjour à tous

J'ai un petit souci de formule conditionnelle avec du texte.

Je désir que la cellule en colonne A change de couleur selon se qui est renseigné en D
Ex:
SI en D je mets PMA alors A devient Gras Rouge
Si en D je mets PMS alors A devient Gras Vert
Si en D je mets PMAR alors A devient Gras bleu

Je réussis avec des chiffres mais pas avec du texte !!!
Je joints mon petit fichier pour que vous puissiez m'apporter votre précieuse aide

Merci à tous
@+ [file name=EssaiPMA.zip size=2556]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/EssaiPMA.zip[/file]
 

Pièces jointes

Bonjour,

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
dl1 = Worksheets('feuil1').Range('A' & '65536').End(xlUp).Row
For i = 1 To dl1
If Cells(i, 4) = 'PMA' Then
Cells(i, 1).Font.Bold = True
Cells(i, 1).Font.ColorIndex = 3
End If
If Cells(i, 4) = 'PMS' Then
Cells(i, 1).Font.Bold = True
Cells(i, 1).Font.ColorIndex = 50
End If
If Cells(i, 4) = 'PMAR' Then
Cells(i, 1).Font.Bold = True
Cells(i, 1).Font.ColorIndex = 5
End If

Next i

Enfin si j'ai bien compris..
Bon courage
 
Exemple à adapter :
Sélection préalable de la plage A1:A20
--> Format --> Mise en Forme Conditionnelle

--> Condition 1 --> la formule est :
=D1='PMA'
> Format --> Gras Rouge

--> Condition 2 --> la formule est :
=D1='PMS'
> Format --> Gras vert

--> Condition 3 --> la formule est :
=D1='PMAR'
> Format --> Gras bleu

AV [MVP Excel]
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
20
Affichages
866
Réponses
6
Affichages
426
Retour