Discussion :

[eliot.raymond]

Bonjour a toutes et tous, forum bonjour

J'ai une listview avec 14 checkboxes affichés dans ma liste.

Lorsque je coche une ou plusieurs de ces checkboxs celle-ci reste bien cochée et j'écris un message dans des labels

Mais dès que je ferme l'userform pour continuer mon code et que je ré-ouvre l'userform

les checboxes sont toutes décochés et le(s) Label effacer également

Et lors de la sauvegarde si j' ai cocher plusieurs checkboxs alors même après ca n'a pas sauvegarder

J'ai déja vu ce problème mais je ne le retrouve plus

Merci de votre aide, je vous souhaite un bon début de semaine

Cdlt Ray

Merci de votre aide

[SfJ5Rpw8]

Bonjour,
Tu peu lier les contrôles de ton userform a des cellules d'une feuille de calcul... en modifiant la propriété controlsource de tes contrôles du style

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

'feuil1'!A1

[eliot.raymond]

Bonjour bbil

Merci pour ta réponse c'est sympa, j'ai regarder par rapport a ta réponse mais je dois avouer

que je n'ai pas trop bien compris et n'avais pas prévu ça.

Si tu peux m'en dire plus ça m'arrangerai bien svp

A plus tard et merci

Cdlt

[SfJ5Rpw8]

Bonjour,

j'ai lu un peu vite .. je n'avais pas vu qu'il s'agissait d'un listview .. comment la renseigne tu ?

[eliot.raymond]

Celle ci n'ai pas renseignée contient 14 checkbox et donc 14 lignes

je m'en sert uniquement pour faire des validations

je clic sur la checkbox correspondante et j'affiche dans un label le message "prélever le: et la date du jour"

mais comme citer ca ne garde pas mes données a la sauvegarde

merci de ton aide

a plus tard

[SfJ5Rpw8]

Oui mais comment as tu placé tes 14 checkbox dans ta listWiew ? code ?

inspire toi du code suivant pour modifier le tiens :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Private Sub UserForm_Initialize()
    '----- remplissage ListView------------------------
    ListView1.ColumnHeaders.Add , , "Colonne1"
    For i = 1 To 15
        Set pListItem = ListView1.ListItems.Add(, , "Ligne : " & i)
        pListItem.Checked = (Feuil2.Cells(i, 1).Value = 1)
      Next
End Sub
 
 
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
  'Sauve donnée ListView dans feuille de calcul
    Dim i As Integer
    For i = 1 To 15
     Feuil2.Cells(i, 1).Value = IIf(ListView1.ListItems(i).Checked, 1, 0)
    Next
End Sub