Personnaliser caption CheckBox via une listBox

Bonjour à tous,

Un p'tit coup de main svp, sur mon userform "Destination", j'ai une listBox, 12 checkBox et un textBox pour la visibilité de l'item sélectionné.

Je souhaiterai que quand je sélectionne un item dans ma listBox , il soit intégré comme caption de la checkBox cliquée, on rechoisi un item et reclic dans nouvelle checkBox, etc.., ainsi ma base se rempli dans l'onglet "Destinataire".

Jusqu'à là, mes codes sont pas trop mal, là où je galère, c'est que quand je ré-ouvre le formulaire, mes checkBox sont bien cochées (True) pour celles qui ont reçues une entrées mais le caption n'est plus car à l'ouverture les entrées des noms saisis disparaisses.

Je n'arrive pas à programmer pour que les checkBox qui ont reçues un nom ainsi que la coche soient sur le formulaire à la ré-ouverture.

Une deuxième amélioration souhaitée, j'ai renseigné le RowSource da ma listBox, comment faire pour l'alimenter de C2 à dernière ligne non vide car la liste des noms peut être évolutive, j'ai essayé des bouts de codes mais cela n'a jamais été compatible avec mon histoire de caption checkBox.

Avez-vous une idée pour m'éclairer?

Merci d'avance, Laurent

Salut,

C'est normal qu'ils perdent leur captions. Plusieurs options s'offrent à toi :

• Changer dans le code directement (Pas très facile pour un débutant)
• Enregistrer les valeurs dans des plages nommées
• Enregistrer les valeurs dans des cellules d'une feuille cachée

pour ce qui est de la liste :

1. Passer ton tableau en tableau structuré nom : Tableau2

1. Mettre la propriété List de la ListBox sur la colonne Désirée

Private Sub UserForm_Initialize()
    Dim i As Integer

    Me.LB_ChoixNom.List = Range("Tableau2[Nom]").Value

    For i = 1 To 12
        If Range("G" & i + 1) = "Oui" Then Controls("CheckBox" & i) = True
    Next

End Sub

Salut Jean-Paul,

Et merci pour ton aide. Pour la listBox, le faite de passer en tableau structuré à résolu mon souci, on pense pas assez à s'en servir.

Pour mes captions de checkBox, j'aimerai comprendre pourquoi je les perds à la ré-ouverture. Est-ce une question de priorité quand les values sont false par rapport à l'userform?

Peut-être en entrant les valeurs dans des variables?

Re,

Tu ne peux changer les captions que dans l'environnement VBE dans les propriétés du CheckBox ou OptionBox etc.

Tu peux le charger au démarrage du UserForm

Private Sub UserForm_Initialize()
CheckBox1.Caption= "Toto"
End Sub

Ok, merci Jean-Paul pour l’explication, je vais procéder différemment.