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... )

[Qatari]

Encore moi ,

Alors d'abord merci parce que ca avance mais j ai quand meme encore une question.
Avec ton code ca va etre la meme liste, copier plusieurs fois dans different endroits ? Mais ski serait top c'est que l utilisateur est re-acces a la listbox 3 4 5 ou 6 fois et creer une toute nouvelle liste (sinon jsuis entierement d'accord avec ton code qui repartit les listes dans une meme colonne mais sur des lignes differentes)

pfiou c pas corect de te solliciter comme ca apres une nuit difficile apparament...

[ouskel'n'or]

Donc, ta boucle sur les colonnes est à faire "ailleurs".
Comment sont déterminées les plages de tes listes ? (selon une sélection de l'utilisateur, ça j'ai compris) mais de quelle manière ? Le code serait le bienvenu

[Qatari]

Je vais meme te mettre le fichier Excel

En gros l'idee c'est :

Tous les composants et leur proprietes sont regrouper sur la page Data
A partir de ces noms : une listbox (grace a rowsource)
L'utilisateur choisi une serie de composant elle apparait sur la feuille Inlet.
Et grace a la fonction vlookup les donnees de chaque composant sont retrouver et un tableau complet est creer.

Ca c'est ce qui se passe avec ce qui est fait, maintenant le but c'est de pouvoir repeter l'operation a un autre endroit dans la page Inlet afin d'avoir plusieurs tableaux avec des donnees differentes et avec le mem userform juste repeter d ou mon idee de Loop (et enfin pouvoir recroisees les donnees plus tard et avoir plein d'autres questions sur VBA...)

Merci d'avance

[ouskel'n'or]

Donc, le décalage de 36 colonnes est arbitraire et n'est justifié que si tu as 36 items dans ton listbox.
Donc, ce qui te manque c'est, en admettant qu'un tableau soit renseigné, et en cas de nouveau choix, c'est le décalage à partir de la dernière colonne renseignée du dernier tableau créé.
Comme je vais m'absenter, dis déjà si c'est ça pendant que je regarde.

[Qatari]

le decalage de 36 colonnes correspond aux 30 proprietes de chaque composant de la liste plus une marge pr autre calculs

[ouskel'n'or]

On garde la partie du code qui nous intéresse et on fait une macro qui sera lancée chaque fois que le "user" sélectionnera... ce qu'il doit sélectionner...
On note le N° de la première colonne libre, on ajoute 1 pour séparer tes tableaux si tu veux et on fait ça

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub Sélection_Click() 'l'utilisateur sélectionne...
     PremièreColonneDuTableauSuivant = Range("A1").SpecialCells(xlCellTypeLastCell).Column + 2
     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, PremièreColonneDuTableauSuivant ) = ListBox1.List(Lindex)
          Next
          u = 0 ' ou 1 ou une valeur initiale...
     End If
end sub

C'était pas bien compliqué... si c'est ce qu'il te faut...

[Qatari]

J'essaye de suite et jte dit si ca marche, merci
Et c'est sur qu il me faut du simple pour le moment... lol

D'ailleurs tu sais ou il a y de bon tutoriaux ? (autres que ceux ici, excel-vba.com et anthony-vba) Pas faciel d apprendre a l'arrach :s

Encore merci