Valider-Click (les valeurs des combox )

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;

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

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:

---

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

---

Déjà, si tu instanciais tes feuilles, ce serait peut-être plus simple à relire

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

Private Sub Valider_Click()   Dim j As Integer Dim k As Integer Dim FL3 as worksheet Dim FL3 as worksheet Set FL3 = Worksheets("feuil3") Set FL4 = Worksheets("feuil4")   j = 2 k = 2   For j = 2 To 4000   If ComBox1.Value = FL3.Range("b2:b" & Rows.Count).End(xlUp).Rows if ComBox2.Value=FL3.Range("c2:bc" & Rows.Count).End(xlUp).Rows If ComBox3.Value=FL3.Range("q2:q" & Rows.Count).End(xlUp).Rows If OptionButton1.Value =FL3.Range("i2:i" & Rows.Count).End(xlUp).Rows or If OptionButton2.Value = FL3.Range("i2:i" & Rows.Count).End(xlUp).Rows or If OptionButton3.Value = FL3.Range("j2:j" & Rows.Count).End(xlUp).Rows Then FL4.Range("A" & j & ":L" & j).Copy FL3.Range("A" & k) k = k + 1 End If Next j   End Sub

---

Si je fais ça, alors je vois tout de suite que tu as une foule d'erreurs, c'est sûr, une à chaque ligne de code.
Regarde la syntaxe de "if" dansl'aide en ligne.
Mon avis ? Tu t'es attaqué à un problème trop complexe compte tenu de ton niveau. Ce n'est pas une aide dont tu as besoin mais qu'on fasse le travail pour toi. Commence par apprendre le b a ba de VBA.
Quand tu auras trouvé ton erreur systématique dans l'usage de if... Then, tu reviens avec ta question.
Les mp sont inutiles.
Bon week-end, t'as du boulot.