Débutante en vba excel Help!!! - Page 2
Résolu
Précédent
- 1
- 2
voila ce qui fonctionne très bien
Private Sub CommandButton1_Click()
Range("A1,A2") = ""
If CheckBox1 Then Range("A1") = Range("E1") Else Range("A1") = ""
If CheckBox1 = False And CheckBox2 = True Then Range("A1") = Range("E2")
If CheckBox1 = True And CheckBox2 = True Then Range("A1") = Range("E1"): Range("A2") = Range("E2")
If CheckBox1 = False And CheckBox2 = False And CheckBox3 = True Then Range("A1") = Range("E3"): Range("A2") = ""
If CheckBox1 = False And CheckBox2 = True And CheckBox3 = True Then Range("A1") = Range("E1"): Range("A2") = Range("E3")
End Sub
Merci beaucoup pour ta patience
Titepestounette
Private Sub CommandButton1_Click()
Range("A1,A2") = ""
If CheckBox1 Then Range("A1") = Range("E1") Else Range("A1") = ""
If CheckBox1 = False And CheckBox2 = True Then Range("A1") = Range("E2")
If CheckBox1 = True And CheckBox2 = True Then Range("A1") = Range("E1"): Range("A2") = Range("E2")
If CheckBox1 = False And CheckBox2 = False And CheckBox3 = True Then Range("A1") = Range("E3"): Range("A2") = ""
If CheckBox1 = False And CheckBox2 = True And CheckBox3 = True Then Range("A1") = Range("E1"): Range("A2") = Range("E3")
End Sub
Merci beaucoup pour ta patience
Titepestounette
Précédent
- 1
- 2