PB userform complexe

Version imprimable

28/06/2008, 10h55
stéphanie123

PB userform complexe

bonjour,

j'ai un petit souci avec une boite de dialogue
j'ai 3 combox qui me permettent de sélectionner des
données dans des colonnes feuil4.
J'aimerai que quand je transfert de la liste 1 vers la liste2 toute les données
à partir du bouton "toute" et que je décide de valider alors cela
test et copie pour tous les données dans liste2 et colle dans la feuil3.
Aujourd'hui mon programme marche , mais en cliquant dans liste 2 et en validant une seul donnée dans la liste2.
Le souci c'est que je sélectionne valeur par valeur, j'aimerai si c'est possible
activé la liste2 quand je transfert les données et quand je valide cela sont tous sélectionner et copié

merci pour votre aide,,,

voici un apercu du programme
28/06/2008, 11h10
JackOuYA

Bonjour,

pourrai-vous nous montrer votre code de transfert, n'ayant pas excel sous la main j'ai du mal à vous aider avec votre piéce jointe.

JacqueS.

ok,

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Private Sub CommandButton1_Click()
Dim j As Integer
    Dim critere As String
    Dim i As Integer
 
     Sheets("Feuil3").Visible = True
 
    Sheets("Feuil3").Select
    Rows("2").Select
    Selection.ClearContents
 
    j = 2
 
    critere = Liste2.Value
 
    'Affectation des variables critere et critere2 en fonction de la valeur des optionbutton
 
    With Sheets("Feuil4")
        For i = 2 To .Cells(Rows.Count, 1).End(xlUp).Row
            If .Cells(i, 5) = critere Then
 
    'Permet de comparer l'option cochée avec le contenu des colonnes de la feuille4

Code:

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
Dim j As Integer
    Dim critere As String
    Dim i As Integer
 
     Sheets("Feuil3").Visible = True
 
    Sheets("Feuil3").Select
    Rows("2").Select
    Selection.ClearContents
 
    j = 2
 
    critere = Liste2.Value
 
    'Affectation des variables critere et critere2 en fonction de la valeur des optionbutton
 
    With Sheets("Feuil4")
        For i = 2 To .Cells(Rows.Count, 1).End(xlUp).Row
            If .Cells(i, 5) = critere Then
 
    'Permet de comparer l'option cochée avec le contenu des colonnes de la feuille4
 
 
       Worksheets("Feuil4").Range("D" & i & ":O" & i).Copy (Worksheets("Feuil3").Range("A" & j))
                            j = j + 1
 
                            End If
                            Next i
                        End With

ceci est mon code qui me permet de lancer le test de mon programme par le bouton valider.

bonsoir,

j'ai une listbox2 que je veux activé quand celle ci est pleine

personne ne sais comment je peux faire!!!

j'ai joint un exemple

merci pour votre aide