Discussion :

[claude16]

Bonjour le Forum
je suis nouveau dans ce forum et debutant en vba j'ai un Problem que je n'arrive pas a solutionner voici le Sujet

j'ai un fichier Excel comportant 16 colonne et je veux que lorsqu'un utilisateur indique des criteres specifique on selectionne
les ligne correspondant a ces critieres apres copies ces lignes et colle dans un nouveau classeur puis enreigistre ce classeur en Format csv
pour commencer j'ai utiliser une listbox donc j'ai creer un userform Avec 16 listbox ou la Multi selection est possible mais comment faire les tests?
j'ai reussi pour le cas ou la selection multiple n'est pas possible
quelqu'un a une solution a me proposer?

Merci d'avance
Cordialement

[claude16]

Merci je crois j'ai trouve quelque Chose
Premierement je cree 16 listes deroulante Avec listbox ensuite je declare 16 tableaux correspondant aux 16 listes
lorsqu'on selectionne une valeur dans la liste cette valeur est stocker dans le Tableau correspondant puis vient le test

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
compt1=0
compt2= 0
.
.
.
compt16=0
x=2
 for i= 1 to range("A" & Rows.Count).End(xlup).Row
     for j= 1 to Ubound(T1) ''boucle sur le Tableau 1
          if Range("A"& i) = T1(j) then
              compt1 = compt1+1 ''incremente le nombre de fois trouve
        end if
   next j
   for j= 1 to Ubound(T2)''boucle sur le Tableau 1
          if Range("B"& i) = T2j) then
              compt2= compt21 ''incremente le nombre de fois trouve
        end if
   next j
   ainsi de Suite jusqu'aux 16 colonnes
puis je test si les compt sont differents de Zero ou pas
 if compt1<> 0 And compt2<>0 And ......And compt16<>0 then
    inter = i & ":" & i
          Rows(inter).Select
          Selection.Copy
          Sheets("ETW_B_NG").Select
          Sht2.Range("A" & x).Select
         Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
        x = x + 1
end if
compt1=0
compt2=0
.
.
compt16=0
next i