Discussion :

[tony847]

bonsoir,

voilà mon souci du moment!

si le combox1 est active =Feuil4 colonne B
si le combox2 est active=Feuil4 colonne C
si le combox3 est active= Feuil4 colonne Q

si optionbouton1 est active=Feuil4 colonne I OU
si optionbouton2 est active=Feuil4 colonne I OU
si optionbouton3 est active=Feuil4 colonne j alors copié les ligne et coller dans la feuil3 à la ligne2 ,,

merci pour tous ce qui vont passer sur message et essayer d'y répondre;

[ucfoutu]

Bonsoir,

Il va te falloir être plus précis que celà, me semble-til ...

Qu'entends-tu par "active" ?
Ayant le focus ?
Y compris pour les optionbuttons, quelle que soit leur valeur ?

Tout celà reste fort flou ...

[tony847]

j'ai une boite de dialogue dans laquel il ya des combox et des optionbuttons

je voudrais quan sélectionnant ces items cela comparre les colonnes de ma base en Feuil4 et me copie les lignes et me les colles dans la Feuil3 si cela répond à cette condition.

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
Private Sub Valider_Click()
 
Dim j As Integer
Dim k As Integer
 
j = 2
k = 2
 
For j = 2 To 4000
 
        If  ComBox1.Value = Sheets("Feuil3").Range("b2:b" & Rows.Count).End(xlUp).Rows
            if  ComBox2.Value=Sheets("Feuil3").Range("c2:bc" & Rows.Count).End(xlUp).Rows
                If  ComBox3.Value=Sheets("Feuil3").Range("q2:q" & Rows.Count).End(xlUp).Rows
                    If  OptionButton1.Value =Sheets("Feuil3").Range("i2:i" & Rows.Count).End(xlUp).Rows or
                If OptionButton2.Value = Sheets("Feuil3").Range("i2:i" & Rows.Count).End(xlUp).Rows or
            If OptionButton3.Value = Sheets("Feuil3").Range("j2:j" & Rows.Count).End(xlUp).Rows Then
            Worksheets("Feuil4").Range("A" & j & ":L" & j).Copy (Worksheets("Feuil3").Range("A" & k))
            k = k + 1
    End If
    Next j
 
End Sub