bonsoir,
J'ai une listBox avec selection multiples. J'arrive à sauvegarder les
valeurs cochée dans un tableau.( FigeMois )
For i = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(i) = True Then
FigeMois(i + 1, 1) = 1
Else
FigeMois(i + 1, 1) = 0
End If
Next i
Mais comment cocher à l'initialisation de la listbox, à partir des valeurs
sauvegardées du tableau ?
D'avance merci,
--
Amicalement
Leo
----------------------------------------------------------
Pour les Riders, BMX, VTT, un seul site
LITTLE BIG TRAIL
http://perso.wanadoo.fr/lbt/
----------------------------------------------------------
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Pounet95
Bonjour, Peut-être ceci , pour une listbox dans un userform la zone PLAGE contient 2 colonnes avec dans la première les libellés, et dans la seconde les codes 1 ou 0 indiquant la sélection.
Private Sub UserForm_Initialize() ListBox1.Clear i = 0 Range("PLAGE").Select Do While ActiveCell.Value <> "" ListBox1.AddItem ActiveCell.Value If ActiveCell.Offset(0, 1).Value = 1 Then ListBox1.Selected(i) = True i = i + 1 ActiveCell.Offset(1, 0).Select Loop End Sub
Si c'est un listbox dans une feuille( barre outils contrôles ), je ne sais pas dans quel évènement mettre ce code.
Bonne journée -- Pounet95 on trouve tout ( ou presque ) http://www.excelabo.net/
"leo" a écrit dans le message de news: 41ae2bee$0$8113$
bonsoir, J'ai une listBox avec selection multiples. J'arrive à sauvegarder les valeurs cochée dans un tableau.( FigeMois )
For i = 0 To ListBox1.ListCount - 1 If ListBox1.Selected(i) = True Then FigeMois(i + 1, 1) = 1 Else FigeMois(i + 1, 1) = 0 End If Next i
Mais comment cocher à l'initialisation de la listbox, à partir des valeurs sauvegardées du tableau ?
D'avance merci, --
Amicalement Leo ---------------------------------------------------------- Pour les Riders, BMX, VTT, un seul site LITTLE BIG TRAIL http://perso.wanadoo.fr/lbt/ ----------------------------------------------------------
Bonjour,
Peut-être ceci , pour une listbox dans un userform
la zone PLAGE contient 2 colonnes avec dans la première les libellés,
et dans la seconde les codes 1 ou 0 indiquant la sélection.
Private Sub UserForm_Initialize()
ListBox1.Clear
i = 0
Range("PLAGE").Select
Do While ActiveCell.Value <> ""
ListBox1.AddItem ActiveCell.Value
If ActiveCell.Offset(0, 1).Value = 1 Then ListBox1.Selected(i) =
True
i = i + 1
ActiveCell.Offset(1, 0).Select
Loop
End Sub
Si c'est un listbox dans une feuille( barre outils contrôles ), je ne sais
pas
dans quel évènement mettre ce code.
Bonne journée
--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/
"leo" <giorgi.leonello@wanadoo.fr> a écrit dans le message de news:
41ae2bee$0$8113$8fcfb975@news.wanadoo.fr...
bonsoir,
J'ai une listBox avec selection multiples. J'arrive à sauvegarder les
valeurs cochée dans un tableau.( FigeMois )
For i = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(i) = True Then
FigeMois(i + 1, 1) = 1
Else
FigeMois(i + 1, 1) = 0
End If
Next i
Mais comment cocher à l'initialisation de la listbox, à partir des valeurs
sauvegardées du tableau ?
D'avance merci,
--
Amicalement
Leo
----------------------------------------------------------
Pour les Riders, BMX, VTT, un seul site
LITTLE BIG TRAIL
http://perso.wanadoo.fr/lbt/
----------------------------------------------------------
Bonjour, Peut-être ceci , pour une listbox dans un userform la zone PLAGE contient 2 colonnes avec dans la première les libellés, et dans la seconde les codes 1 ou 0 indiquant la sélection.
Private Sub UserForm_Initialize() ListBox1.Clear i = 0 Range("PLAGE").Select Do While ActiveCell.Value <> "" ListBox1.AddItem ActiveCell.Value If ActiveCell.Offset(0, 1).Value = 1 Then ListBox1.Selected(i) = True i = i + 1 ActiveCell.Offset(1, 0).Select Loop End Sub
Si c'est un listbox dans une feuille( barre outils contrôles ), je ne sais pas dans quel évènement mettre ce code.
Bonne journée -- Pounet95 on trouve tout ( ou presque ) http://www.excelabo.net/
"leo" a écrit dans le message de news: 41ae2bee$0$8113$
bonsoir, J'ai une listBox avec selection multiples. J'arrive à sauvegarder les valeurs cochée dans un tableau.( FigeMois )
For i = 0 To ListBox1.ListCount - 1 If ListBox1.Selected(i) = True Then FigeMois(i + 1, 1) = 1 Else FigeMois(i + 1, 1) = 0 End If Next i
Mais comment cocher à l'initialisation de la listbox, à partir des valeurs sauvegardées du tableau ?
D'avance merci, --
Amicalement Leo ---------------------------------------------------------- Pour les Riders, BMX, VTT, un seul site LITTLE BIG TRAIL http://perso.wanadoo.fr/lbt/ ----------------------------------------------------------
