Selection met police rouge dans feuille Résolu/Fermé

Question

Bonjour, 
Je sélectionne l'identité d'une personne dans Listbox1
au niveau des trois Textbox tb6 tb7 et tb8, j'aimerai qu'en cliquant sur un Cmdbtn (Cbtn6 Cbtn7 Cbtn8)  propre à chaque tb 6 à 8 ça mette la police en rouge sur la feuille sur la même ligne que le nom sélectionné, en colonne F(tb6)  G(tb7) ou H(tb8)
Me suis-je bien exprimé....
Je vous remercie

Configuration: Windows / Firefox 59.0

f894009 · Answer

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

jean300 · Answer

Bonjour fb894009
2 colonnes, Nom, Prénom

Patrice33740 · Answer

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

jean300 · Answer

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

f894009 · Answer

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

jean300 · Answer

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

f894009 · Answer

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....

jean300 · Answer

C'est pour ajouter sur un fichier existant

jean300 · Answer

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

f894009 · Answer

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.

jean300 · Answer

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

jean300 · Answer

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.

jean300 · Answer

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

jean300 · Answer

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

jean300 · Answer

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

jean300 · Answer

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

jean300 · Answer

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

jean300 · Answer

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

jean300 · Answer

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

jean300 · Answer

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........??????

jean300 · Answer

Copier et coller
Private Sub Cb1_Click()
        Call ComTel_Tb6a8(1)
End Sub
Private Sub Cb2_Click()
        Call ComTel_Tb6a8(2)
End Sub
Private Sub Cb3_Click()
        Call ComTel_Tb6a8(3)
End Sub

Sub ComTel_Tb6a8(NCb)
    With Me.Controls("Cb" & NCb)
        If .Value = True And Me.Controls("tb" & NCb + 5) <> "" Then
            Me.Controls("tb" & NCb + 5).ForeColor = vbRed   'couleur rouge
        Else
            Me.Controls("tb" & NCb + 5).ForeColor = vbBlack   'couleur noir
        End If
    End With
   
'On laisse passer, sera contrôlé au moment de la mises à jour effective
        tb4.SetFocus    'ne marche pas !!!

End Sub

jean300 · Answer

C'est bon
Merci

Selection met police rouge dans feuille

22 réponses

Discussions similaires