[XL-2003] Maxi Liste déroulante [Résolu]

[Djromé]

Salut les Kracks,

Je souhaiterai obtenir une liste déroulante avec tous les temps d'un chronomètre en seconde sur 24 heures.
86400 lignes (60s*60mn*24h) me sont nécessaires et Excel bloque à 0h17mn02s (soit 1022)?
Avez-vous un moyen pour y remédier?

[Philippe JOCHMANS]

Bonjour

Où est ta liste ? Dans une feuille ? Un UserForm ?

Est-ce une liste de formulaire ou un contrôle ActiveX ?

Comment celle-ci est-elle remplie ?

De plus il me semble qu'il y a une limite sur le contrôle ActiveX.

Philippe

[kiki29]

Salut,après un test rapide pour une ComboBox dans une UserForm cela marche avec un temps de remplissage de la ComboBox conséquent

[mromain]

Bonjour à tous,

Voici un exemple pour remplir un ComboBox :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Dim tabVal() As String, h As Long, m As Long, s As Long, cpt As Long
    'dimensionner le tableau contenant les données
    ReDim tabVal(1 To CLng(60) * CLng(60) * CLng(24))
    'remplir le tableau
    cpt = 0
    For h = 0 To 23
        For m = 0 To 59
            For s = 0 To 59
                cpt = cpt + 1
                tabVal(cpt) = Format(h, "00") & "h" & Format(m, "00") & "mn" & Format(s, "00") & "s"
            Next s
        Next m
    Next h
    'initialiser la ComboBox
    Me.ComboBox1.List = tabVal

A+