XL 2013 Police en couleur dans zone de texte

xUpsilon

XLDnaute Accro

• 28 Octobre 2019

• #2

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

 

Vote positif 0 Vote négatif

papy 73 ans

XLDnaute Occasionnel

• 28 Octobre 2019

• #3

Bonjour xUpsilon,
Voici le lien, en te remerciant.

 

Vote positif 0 Vote négatif

Jacky67

XLDnaute Barbatruc

• 28 Octobre 2019

• #4

Bonjour à tous
Une piste par vba

VB:

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

 

Vote positif 0 Vote négatif

papy 73 ans

XLDnaute Occasionnel

• 28 Octobre 2019

• #5

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

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 28 Octobre 2019

• #6

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

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 28 Octobre 2019

• #7

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

 

Vote positif 0 Vote négatif

Jacky67

XLDnaute Barbatruc

• 28 Octobre 2019

• #8

papy 73 ans à dit:

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

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

papy 73 ans

XLDnaute Occasionnel

• 29 Octobre 2019

• #9

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

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 29 Octobre 2019

• #10

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 :

VB:

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.

 

Vote positif 0 Vote négatif

papy 73 ans

XLDnaute Occasionnel

• 29 Octobre 2019

• #11

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

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 29 Octobre 2019

• #12

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.

 

Vote positif 0 Vote négatif

papy 73 ans

XLDnaute Occasionnel

• 29 Octobre 2019

• #13

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

 

Vote positif 0 Vote négatif