Discussion :

[Qatari]

Bonjour,

J ai un userform le voici :

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
Public Sub CommandButton1_Click()
 
    'Clear the column A to paste the actual components
    Worksheets("Inlet").Cells(u + 5, 1).Select
    Selection.ClearContents
 
    'Create the list in the table when components have been selected in the listbox
    For i = 1 To ListBox1.ListCount - 1
        If ListBox1.Selected(i) = True Then
        u = u + 1
        Worksheets("Inlet").Cells(u + 5, 1) = ListBox1.List(i)
        End If
 
    Next
 
Unload Me
 
End Sub

Qui marche bien ...

Seulement je voudrai qu il soit repeter (fonction Loop et il y a plusieurs structures si je ne me trompe pas) MAIS il faudrait que :
les cellules de destination changent (espacement de 36 cellules entre les colonnes de resultats) j'ai essayer de faire un truc du genre Cells (u+5, i*36),
que le nombre de boucle soit defini par l'utilisateur (j ai essayer une InputBox pour definir le nombre de Loop mais au mauvais endroit a mon avis)
et pour tout ca le top serait qu'il n'y est que le bouton OK sur mon userform (voir deux boutons mais je vois pas comment gerer les deux boutons :s) autrement dit je suis perdu !

La je vous donne tout d'un coup mais j'ai essayer de l'ameliorer point par point et je rame...

En fait l'idee la plus simple pourrait peut etre etre appeler le userform depuis une Sub et de faire la boucle sur cette Sub mais j'y arrive pas, donc n hesiter pas a proposer meme une demarche completement differente ! C'est le resultat qui compte ! J'suis sur que vous avez de bon conseils jle sens ! ;-)

Merci d'avance

(Je vous rassure je progresse en VBA... )

[ouskel'n'or]

Une question : Si je comprends bien, tu veux décaler de 36 colonnes chaque index de ta listbox ?
Tu as combien d'élément dans ta liste ? Parce que tu attendras vite 256...
Admettons.
Auquel cas, pourquoi ne pas prendre le pb sous un autre angle

Code :

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

Plage = ListBox1.ListCount -1 * 36 ' -1 à vérifier ici

Puis

Code :

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

1
2
3
4
5
6
7
For NoCol = 1 to Plage step 36
     i = i + 1
     If ListBox1.Selected(i) Then ' = True est inutile
          u = u + 1
          Worksheets("Inlet").Cells(u + 5, NoCol) = ListBox1.List(i)
     End If
Next

Juste une idée

[Qatari]

Euh no... jme suis mal exprimer desole, je reformule (en mieux...) :
En fait
j'ai une listbox avec 468 elements, l'utilisateur fait une premiere selection (de plusieurs elements autant qu'il veut) qui va dans la colonne 1, une deuxieme selection dans la colonne 36, [...] , une n selection dans la colonne n x 36
Et c'est l utilisateur qui devra determiner le nombre de repetition "n"

[ouskel'n'or]

Alors limite déjà n < 8
Sinon ? Je n'ai visiblement rien compris du but de la manoeuvre. Mais la nuit fut courte

Edit
Et si tu fais

Code :

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

Plage = n * 36

Non ? Bon ! Je retourne me coucher

[Qatari]

On va mettre ca sur le dos du decalage horaire...
(Moi j ai pas d excuse je change pas d heure... lol)

Limiter a 8 parfait ca ne pose pas de probleme, mais le plage = n * 36 ne me fera pas relancer ma listbox n fois ?

[ouskel'n'or]

Pfft ! Vouais, j'avais shunté ce "détail"

Code :

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

1
2
3
4
5
6
7
8
9
10
For NoCol = 1 to Plage step 36
     i = i + 1
     If ListBox1.Selected(i) Then ' = True est inutile
          For Lindex = 1 to ListBox1.ListCount - 1
               u = u + 1
               Worksheets("Inlet").Cells(u + 5, NoCol) = ListBox1.List(Lindex)
          Next
          u = 0 ' ou 1 ou une valeur initiale...
     End If
Next

J'ai un peu oublié ce que tu voulais... mais là, tu mets toute ta liste dans la même colonne sur des lignes différentes.
Sans garantie (je prends mes précautions... )