Discussion :

[neoboy]

Bonsoir tout le monde,

Jusqu’à présent j’ai l’habitude d’afficher le contenue d’un tableau dans Excel et je souhaiterai l’afficher maintenant directement dans un user forme.

Je voulais savoir quel est l’objet le plus adéquat pour afficher cela et la syntaxe qui va avec ?

Merci d’avance !


code excel :

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
18
19
20
21
22
23
24
25
For j = 1 To s
 
 
            Range("A" & j + 1) = j
            Range("B" & j + 1) = nptm(j)
 
 
 
            For i = 1 To n
 
                If (pm(i, j) <> 99999) Then
 
                    Range("D" & i + 1) = j
                    Range("E" & i + 1) = i
                    Range("F" & i + 1) = ord(i)
                    Range("G" & i + 1) = ta(i)
                    Range("H" & i + 1) = ts(i)
 
 
 
                End If
 
 
    Next i
    Next j

[helas]

Bonjour,
Une ListBox devrait faire l'affaire avec les propriétés RowSource, ColumnCount renseignées

[neoboy]

Bonsoir,

1 / mon objectif est d'afficher directement les données dans un objet sans passer par excel.

2 / Je sais qu'une listbox permet de sélectionner des données, mais moi je veux juste qu'on les visualise comme résultat.


Merci d'avance de votre aide.

[sabzzz]

bonjour neoboy,

voici un exemple extrait de l'aide xl2002,

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
18
19
20
21
22
23
24
25
26
27
28
29
30
31
Private Sub UserForm_Initialize()
    Dim i As Single
    Dim MyArray(6, 3)
     'The 1st list box contains 3 data columns
    ListBox1.ColumnCount = 3
    'The 2nd box contains 6 data columns
     ListBox2.ColumnCount = 6
 
    'Load integer values into first column of MyArray
    For i = 0 To 5
        MyArray(i, 0) = i
    Next i
    'Load columns 2 and three of MyArray
    MyArray(0, 1) = "Zero"
    MyArray(1, 1) = "One"
    MyArray(2, 1) = "Two"
    MyArray(3, 1) = "Three"
    MyArray(4, 1) = "Four"
    MyArray(5, 1) = "Five"
 
    MyArray(0, 2) = "Zero"
    MyArray(1, 2) = "Un ou Une"
    MyArray(2, 2) = "Deux"
    MyArray(3, 2) = "Trois"
    MyArray(4, 2) = "Quatre"
    MyArray(5, 2) = "Cinq"
 
    'Load data into ListBox1 and ListBox2
    ListBox1.List() = MyArray
    ListBox2.Column() = MyArray
End Sub

[neoboy]

Bonjour tout le monde,

Merci sabzzz pour ta réponse mais je n'ai toujours pas trouvé la solution !!!

Voila, j’ai essayé de remplir d'abord un tableau et ensuite le coller dans ma Listbox mais ça marche pas !!

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
18
19
20
21
22
23
24
25
26
27
affichage(1, 1) = "Pièce"
        affichage(1, 2) = "Machine"
        affichage(1, 3) = "Ordre"
        affichage(1, 4) = "retrad"
        affichage(1, 5) = "Temps de séjour"
       
                   
     
        
    For i = 1 To n
          For j = 1 To s
            
                If (pm(i, j) <> 99999) Then
                
                    affichage(i + 1, 1) = i
                    affichage(i + 1, 2) = j
                    affichage(i + 1, 3) = ord(i)
                    affichage(i + 1, 4) = ta(i)
                    affichage(i + 1, 5) = ts(i)
                                          
                
                End If
                
           Next j
    Next i
    
   list.RowSource = affichage() ' ça beugue à ce niveau la 

Si quelqu'un pourrai m'aider à affecter les valeur de mon tableau à la listbox ça serait sympa.

Merci d'avance !!

[sabzzz]

bonjour neoboy,

peut tu mettre cette macro en entier ?