me8me
Messages postés3Date d'inscriptionlundi 25 octobre 2010StatutMembreDernière intervention25 octobre 2010
-
25 oct. 2010 à 10:07
me8me
Messages postés3Date d'inscriptionlundi 25 octobre 2010StatutMembreDernière intervention25 octobre 2010
-
25 oct. 2010 à 14:18
bonjour à tous,
mon probléme est, j'ai 3 cellules en face de chaque cellule j'ai 3 checkbox, avec mes checkbox et mes cases je dois excuté une fonction mais avec des conditions, j'ai 8 conditions:
si ma 1 case est rempli et mon checkbox activé -> imprimepdf
si ma 2 case est rempli et mon checkbox activé -> imprimepdf
si ma 3 case est rempli et mon checkbox activé -> imprimepdf
si mes deux case 1 et 2 remplies et mes deux checkbox box sont activé -> imprimepdf
si mes deux case 1 et 3 remplies et mes deux checkbox box sont activé -> imprimepdf
si mes deux case 3 et 2 remplies et mes deux checkbox box sont activé -> imprimepdf
si mes trois cases remplies et mes 3 checkbox activés -> imprimepdf
me8me
Messages postés3Date d'inscriptionlundi 25 octobre 2010StatutMembreDernière intervention25 octobre 2010 25 oct. 2010 à 14:18
voici un bout de code que j'ai commencé à faire, mais ca marche pas comme je le veyx :(
Private Sub CheckBox1_Click()
If Not IsEmpty(Cells(2, 6)) And CheckBox1 Then
ImprimePDF
ElseIf Not IsEmpty(Cells(2, 6)) And Not IsEmpty(Cells(3, 6)) And CheckBox2 And CheckBox1 Then
ImprimePDF
ElseIf IsEmpty(Cells(2, 6)) = False And CheckBox1 And CheckBox2 And CheckBox3 And CheckBox4 Then
ImprimePDF
End If
End Sub
Private Sub CheckBox2_Click()
If IsEmpty(Cells(3, 6)) = False And CheckBox2 Then
ImprimePDF
ElseIf IsEmpty(Cells(3, 6)) = False And CheckBox1 And CheckBox2 And CheckBox3 And CheckBox4 Then
ImprimePDF
End If
End Sub
Private Sub CheckBox3_Click()
If IsEmpty(Cells(4, 6)) = False And CheckBox3 Then
ImprimePDF
ElseIf IsEmpty(Cells(4, 6)) = False And CheckBox1 And CheckBox2 And CheckBox3 And CheckBox4 Then
ImprimePDF
End If
End Sub
Private Sub CheckBox4_Click()
If IsEmpty(Cells(5, 6)) = False And CheckBox4 Then
ImprimePDF
ElseIf IsEmpty(Cells(5, 6)) = False And CheckBox1 And CheckBox2 And CheckBox3 And CheckBox4 Then
ImprimePDF
End If
End Sub