remplissage cellule avec form + cases à cocher

A

arnaudbu

XLDnaute Occasionnel

• 17 Novembre 2010

• #16

Re : remplissage cellule avec form + cases à cocher

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

@+

 

Vote positif 0 Vote négatif

Odesta

XLDnaute Impliqué

• 17 Novembre 2010

• #17

Re : remplissage cellule avec form + cases à cocher

Bonjour

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


Cdt
Olivier

 

Vote positif 0 Vote négatif

A

arnaudbu

XLDnaute Occasionnel

• 17 Novembre 2010

• #18

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

Code:

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

 

Vote positif 0 Vote négatif

C

camadian

Guest

• 17 Novembre 2010

• #19

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+

 

Vote positif 0 Vote négatif

A

arnaudbu

XLDnaute Occasionnel

• 17 Novembre 2010

• #20

Re : remplissage cellule avec form + cases à cocher

camadian à dit:

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

camadian
A+

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

Odesta

XLDnaute Impliqué

• 17 Novembre 2010

• #21

Re : remplissage cellule avec form + cases à cocher

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

Code:

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

 

Vote positif 0 Vote négatif

A

arnaudbu

XLDnaute Occasionnel

• 21 Novembre 2010

• #22

Re : remplissage cellule avec form + cases à cocher

Avec un peu de retard, merci pour cette correction.

@+

 

Vote positif 0 Vote négatif