XL 2013 Police en couleur dans zone de texte

[papy 73 ans]

Bonjour à tous,
J'ai une zone de texte associée à une cellule.
Je désirerai que selon le texte qui s'affiche dans cette zone texte il soit mis en couleur.
à savoir :
Supprimer cette personne de l'annuaire : police en rouge et gras.
Pour mise à jour police : en bleu et en gras.
Je ne sais si c'est faisable.
En vous remerciant.

 

[xUpsilon]

Bonjour,

Sans fichier joint ça relève du miracle si on arrive à résoudre ton problème là.
Si les données sont sensibles, transmets nous un fichier exemple anonymisé

Bonne continuation

 

[papy 73 ans]

Bonjour xUpsilon,
Voici le lien, en te remerciant.

 

[Jacky67]

Bonjour à tous
Une piste par vba

Sub couleur()
    With Feuil1.Shapes("LeNom")  ' **A adapter**
        .TextFrame.Characters.Font.Bold = True
        If .TextFrame.Characters.Text = "Supprimer cette personne de l'annuaire" Then  '**ou cellule**
            .TextFrame.Characters.Font.ColorIndex = 3
        Else
            .TextFrame.Characters.Font.ColorIndex = 5
        End If
    End With
End Sub

 

[papy 73 ans]

Bonjour Jacky,
Merci de me répondre.
Lorsque s'affiche le texte : Supprimer cette personne de l'annuaire, la police ne passe pas en rouge

 

[patricktoulon]

bonjour papy 73 ans

je me demande pourquoi tu teste la présence de cdo activé dans les références alors que dans ta fonction message tu crée ton cdo en latebinding ???
allez hop!! on fait sauter une 50 aine de ligne

 

[patricktoulon]

re
j'ajouterais que si les données sont exactes dans les modules tu a donné ton mail et mot de passe au monde entier
alors enlève vite ce fichier de cjoint

 

[Jacky67]

Bonjour Jacky,
Merci de me répondre.
Lorsque s'affiche le texte : Supprimer cette personne de l'annuaire, la police ne passe pas en rouge

RE..
J'avoue ne pas comprendre le fonctionnement de ce classeur..
Pour changer la couleur, la syntaxe serait pour le rouge
Feuil1.Shapes("Text Box 746").TextFrame.Characters.Font.ColorIndex = 3
pour le bleu
Feuil1.Shapes("Text Box 746").TextFrame.Characters.Font.ColorIndex = 5
Eventuellement placer le code dans la macro "Sub CfnChoix()"
Désolé, je cède la main

 

[papy 73 ans]

Bonjour à chacun de vous,
C'est tout bon, merci beaucoup.

 

[job75]

Bonjour le fil, le forum,

Tout bon ??? Faut pas être trop difficile papy !!!

La formule =$AD$2 dans la barre de formule de la Zone de Texte et la formule en AD2 sont inutiles, supprimez-les.

Et ajoutez à la fin de la macro Worksheet_Change :

Private Sub Worksheet_Change(ByVal Target As Range)
'-----'
    With Shapes("Text Box 746").TextFrame.Characters
        .Text = "": .Font.ColorIndex = xlAutomatic
        If [AA2] = "Sup" Then .Text = "Personne à supprimer de l'annuaire": .Font.ColorIndex = 3 'rouge
        If [AA2] = "Maj" Then .Text = "Pour Mise à jour de l'annuaire": .Font.ColorIndex = 5 'bleu
    End With
End Sub

Cela dit il est pour le moins inopportun que les messages s'affichent à chaque modification d'une cellule !!!

Bonne journée.

 

[papy 73 ans]

Bonjour job75
Tu me dis : Cela dit il est pour le moins inopportun que les messages s'affichent à chaque modification d'une cellule !!!
Tu as entièrement raison, mais comment limiter seulement au nom et prénom
En te remerciant

 

[job75]

La macro CfnChoix est assez mal fichue et ne sert pas à grand-chose, supprimez-la.

Et faites modifier la cellule AA2 autrement, par exemple dans la macro du bouton Btn_Traite_Click.

 

[papy 73 ans]

Bonsoir job
Je te remercie de t'intéresser à ma demande, mais je ne sais pas faire ce que tu dis