Selection met police rouge dans feuille

Bonjour,

Comment est remplie la listbox? Une seule colonne ou x colonnes?

Bonjour fb894009
2 colonnes, Nom, Prénom

Bonjour,

Avant de continuer, tu devrais penser à créer un identifiant unique pour chaque individu : Nom prénom, c'est loin d'être suffisant.

Bonjour Patrice
Pour l'usage qui en est fait c'est suffisant
Merci à toi

Re,
Comprends pas bien votre affaire de trois boutons pour trois textboxs et le choix par listbox

Bonjour cher ami
Je vais essayer de m'expliquer
Je sélectionne une personne dans la Listbox (Nom, Prénom)
Les renseignements la concernant s'affichent dans des Textbox
Les Textbox 6 à 8 sont ses numéros de téléphone ou on peut la joindre
Ce pour chaque personne
Les boutons seraient pour que la police soit en rouge si cette personne ne veut pas que tel numéro ne soit pas communiqué.
En te remerciant

Re,

Pour l'usage qui en est fait c'est suffisant
Comme Patrice33740 le precisait, un identifiant unique serait le bienvenu pour la recherche ex: pour les personnes de meme nom. Mais c'est vous qui voyez....

C'est pour ajouter sur un fichier existant

Re,
OK pas de problème pour des BtnOpt
La feuille concernée est la feuille Base avec toutes les infos en effet
En te remerciant

Bonjour,

Une facon de faire: https://mon-partage.fr/f/vZ6dlb9x/
Par contre flou dans votre demande pour couleur Nom et Prenom, j'ai opté pour meme couleur.

Bonjour fb
Merci de suivre ma demande, mais ce n'est pas ce que je souhaite, la police rouge ne doit concerner que les Textbox téléphone (tb6 à tb8) en fonction de la ligne sélectionnée dans le Listbox.
Soit comme une modification sur la feuille Base.
Je peux te faire parvenir mon fichier mais comme je n'y connait pas grand chose et qu'il est confidentiel je ne sais pas comment faire

L'idée Option bouton me plairait bien, mais peut-on faire :
Si non coché : police noir
Coché : police rouge
Ce, pour chacun des 3 numéros de téléphone
En te remerciant.

Oui se serait parfait
Mais il faut une case propre à chacune des Textbox 6, 7 et 8

Bonjour f894009
Désolé de répondre si tard, problème de santé
N'y arrivant pas, je te met le fichier
J'ai mis 3 CheckBox à côté des Textbox (numéro téléphone)
Je voudrais que, si coché le numéro correspondant se mette en rouge dans la feuille Base
En te remerciant

https://www.cjoint.com/c/HEtiVfq0wp2

Re,
Je te remercie f894009, mais ça ne met pas le numéro en rouge sur la feuille Base

Toutes mes excuses les plus sincères, l'erreur venait de moi, désolé
Je t'adresse toutes mes félicitations
En te remerciant de tout coeur

Bizarre, je viens de recommencer e le numéro tel dans la feuille Base reste en noir

Bonjourf894009
J'ai sélectionné une nom dans la Listbox, mis un numéro de tel bidon cliqué sur le Cb3 et valider

J'avais une erreur dans

Private Sub tb3_Exit(ByVal Cancel As MSForms.ReturnBoolean)
'Date de naissance
    Dim Age As Integer
    
    If Len(tb3.Text) = 0 Then Exit Sub
    
    If IsDate(tb3.Text) Then
        tb3.Text = Format(tb3.Text, BaseFormatDate)
        Age = DateDiff("yyyy", tb3.Text, Now)
        If DateAdd("yyyy", Age, tb3.Text) > Now Then Age = Age - 1
        tbAge.Text = Age
    End If
    
    If Not ControleDateNaissance(tb3.Text) Then
        'Cancel = True   'On laisse passer, sera contrôlé au moment de la mises à jour effective
        tb3.SetFocus    'ne marche pas !!!
    End If

End Sub

Mais malgré plusieurs autres essais toujours pas concluant

Bien regardé et testé ton code, effectivement il est Ok
Quand je le transpose dans mon fichier ne marche pas, je ne comprends pas
Et, aujourd'hui impossible cliquer sur les Checkbox........??????