Discussion :

[IronHeavy]

Bonjour Le forum!

L'énigme du jour...

Je dispose d'une Listbox (une seule colonne)dont je souhaite transférer le contenu (nombre d'items variable) dans un tableau. Mes soucis:

1ère méthode:
J'arrive à intégrer les items en ligne OU en colonne, mais cela ne correspond pas avec la mise en page attendue: le nombre d'items est supérieur au nombre de cellules en hauteur ou en largeur de mon cadre.

Code :

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

1
2
3
 For i = 0 To ListBox3.ListCount - 1
        .Cells(5, i + 1) = Me.ListBox3.List(i)
    Next i

J'aimerai pouvoir effectuer un renvoi de ligne (ou de colonne) pour que les items puissent rentrer DANS le cadre fixé.


2ème méthode:
J'arrive à transférer l'Item 1 en case (x,y) ; l'item 2 en case (x',y'), etc... Mais au moment de lancer la fonction, celle ci se met en erreur si j'ai moins d'items que de cases paramétrées.

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
 
 .Cells(5, 1) = Me.ListBox3.List(0)
 .Cells(5, 2) = Me.ListBox3.List(1)
 .Cells(5, 3) = Me.ListBox3.List(2)
 .Cells(5, 4) = Me.ListBox3.List(3)
 .Cells(5, 5) = Me.ListBox3.List(4)
 .Cells(5, 6) = Me.ListBox3.List(5)
 .Cells(6, 1) = Me.ListBox3.List(6)
 .Cells(6, 2) = Me.ListBox3.List(7)
 .Cells(6, 3) = Me.ListBox3.List(8)
 .Cells(6, 4) = Me.ListBox3.List(9)
 .Cells(6, 5) = Me.ListBox3.List(10)
 .Cells(6, 6) = Me.ListBox3.List(11)
 .Cells(7, 1) = Me.ListBox3.List(12)
 .Cells(7, 2) = Me.ListBox3.List(13)
 .Cells(7, 3) = Me.ListBox3.List(14)
 .Cells(7, 4) = Me.ListBox3.List(15)
 .Cells(7, 5) = Me.ListBox3.List(16)
 .Cells(7, 6) = Me.ListBox3.List(17)

Il me manque un argument permettant à la fonction de s'interrompre au nombre d'items contenus dans la Listbox.

Quelle piste privilégier?

Une autre méthode peut être?

Merci d'avance!

[unparia]

Bonjour

Quelle piste privilégier?

Celle de l'exposé (on ne le voit pas) de l'objet concerné par le bloc With que tu parais utiliser.

[mjpmjp]

bonjour,
pour le retour ligne
Ligne1 & VbCr & Ligne2...ou...Ligne1 & VbCrlf & Ligne2

pour les items en moins
nombre de item = me.listbox.listcount

@+JP

[IronHeavy]

@ unparia

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
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
Private Sub CExpositionAgent_Click()
 
        With Worksheets("FICHEAGENT")
 
            .Cells(2, 5).Value = ComboBox1.Text
            .Cells(2, 9).Value = TextBox1.Text
            .Cells(12, 1).Value = Label1.Caption
            .Cells(12, 2).Value = Label2.Caption
            .Cells(12, 3).Value = Label3.Caption
            .Cells(12, 4).Value = Label4.Caption
            .Cells(12, 5).Value = Label5.Caption
            .Cells(12, 6).Value = Label6.Caption
            .Cells(14, 1).Value = Label7.Caption
            .Cells(14, 2).Value = Label8.Caption
            .Cells(14, 3).Value = Label9.Caption
            .Cells(14, 4).Value = Label10.Caption
            .Cells(14, 5).Value = Label11.Caption
            .Cells(14, 6).Value = Label12.Caption
            .Cells(16, 1).Value = Label13.Caption
            .Cells(16, 2).Value = Label14.Caption
            .Cells(16, 3).Value = Label15.Caption
            .Cells(16, 4).Value = Label16.Caption
            .Cells(16, 5).Value = Label17.Caption
            .Cells(16, 6).Value = Label18.Caption
            .Cells(18, 1).Value = Label19.Caption
            .Cells(18, 2).Value = Label20.Caption
            .Cells(18, 3).Value = Label21.Caption
            .Cells(18, 4).Value = Label22.Caption
            .Cells(18, 5).Value = Label23.Caption
            .Cells(18, 6).Value = Label24.Caption
            .Cells(20, 1).Value = Label25.Caption
            .Cells(20, 2).Value = Label26.Caption
            .Cells(20, 3).Value = Label27.Caption
            .Cells(20, 4).Value = Label28.Caption
            .Cells(20, 5).Value = Label29.Caption
            .Cells(16, 6).Value = Label29.Caption
 
 
   ' For i = 0 To ListBox3.ListCount - 1
   '     .Cells(5, i + 1) = Me.ListBox3.List(i)
   ' Next i
 
 .Cells(5, 1) = Me.ListBox3.List(0)
 .Cells(5, 2) = Me.ListBox3.List(1)
 .Cells(5, 3) = Me.ListBox3.List(2)
 .Cells(5, 4) = Me.ListBox3.List(3)
 .Cells(5, 5) = Me.ListBox3.List(4)
 .Cells(5, 6) = Me.ListBox3.List(5)
 
   End With
 
 
Unload FIDENTIFICATION
Unload FSECTORISATION
Unload FMAÎTRISE
Unload FFICHEAGENT
Worksheets("FICHEAGENT").Select
 
End Sub

@mjpmjp: déjà utilisé ListboxCount, mais je ne sais "quand" insérer le renvoi de ligne!

Ci dessous un visuel du rendu final:

[IronHeavy]

Pas de solution en vue?

J'ai peut être mal formulé mon problème?

Si j'utilise le code:

Code :

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

1
2
3
4
 
    For i = 0 To ListBox3.ListCount - 1
       .Cells(5, i + 1) = Me.ListBox3.List(i)
    Next i

le contenu de ma listbox s'aligne en ligne 5 indéfiniment (de 1 à 15 items).. Or ma mise en page impose un "retour à la ligne" à la 6ème colonne, sans cela les items en dehors de la zone d'impression ne seront logiquement pas imprimés!

Et si j'utilise le code:

Code :

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

1
2
3
4
5
6
 
 .Cells(5, 1) = Me.ListBox3.List(0)
 .Cells(5, 2) = Me.ListBox3.List(1)
 .Cells(5, 3) = Me.ListBox3.List(2)
...
 .Cells(7,3) = Me.Listbox3.List(15)

Le transfert échoue dès lors que le nombre d'items à transférer est inférieur à 15 !

Je m'arrache les cheveux!