remplissage cellule avec form + cases à cocher

[arnaudbu]

Hello,

J'aimerais avoir un UserForm qui intègre automatiquement sous forme de case à cocher les noms présent en E3:E**. Si je change un nom ou en rajoute un bien sûr, les captions des cases à cocher devra se mettre à jour.

Quand je sélectionne C2, le Userform devra apparaitre et les noms que j'aurais sélectionner à l'aide des cases à cocher devront s'inscrire dans cette même cellule.

C'est assez complexe pour moi, donc si vous pouvez me guider.

@++

 

[arnaudbu]

Re : remplissage cellule avec form + cases à cocher

Quelqu'un à une idée ? Le fichier exemple est juste au-dessus dans les réponses.

@+

 

[Odesta]

Re : remplissage cellule avec form + cases à cocher

Bonjour

En transformant le "Private Sub UserForm_Initialize()" en "Private Sub UserForm_Activate()"


Cdt
Olivier

 

[arnaudbu]

Re : remplissage cellule avec form + cases à cocher

Ok merci. J'avais déjà essayé mais ça ne change pas les données.

J'ai mis le code ainsi et là pas de problème. Mais je ne sais pas si c'est conventionnel comme méthode...

Private Sub UserForm_Activate()

Dim i As Integer

For i = 1 To ListBox1.ListCount
    ListBox1.RemoveItem 0
Next i

For i = 3 To Sheets("Donnees").Range("B3").End(xlDown).Row
    ListBox1.AddItem Sheets("Donnees").Cells(i, 2).Value
Next i

End Sub

 

[camadian]

Re : remplissage cellule avec form + cases à cocher

Bonjour arnaudbu
tu as aussi la possibilité de mettre dans les propriétés de ta listbox
RowSource: donnees!B3:B18

camadian
A+

 

[arnaudbu]

Re : remplissage cellule avec form + cases à cocher

Bonjour arnaudbu
tu as aussi la possibilité de mettre dans les propriétés de ta listbox
RowSource: donnees!B3:B18

camadian
A+

Oui, mais ce n'est pas que B3:B18 qui m'intéresse.

 

[Odesta]

Re : remplissage cellule avec form + cases à cocher

Re.
Je vous propose ceci (pour devenir "conventionnel") :

Private Sub UserForm_Activate()

Dim i As Integer

[COLOR="Red"]ListBox1.Clear[/COLOR]

For i = 3 To Sheets("Donnees").Range("B3").End(xlDown).Row
    ListBox1.AddItem Sheets("Donnees").Cells(i, 2).Value
Next i

End Sub

Cdt
Olivier

 

[arnaudbu]

Re : remplissage cellule avec form + cases à cocher

Avec un peu de retard, merci pour cette correction.

@+