case à cocher

Private Sub Commun(ByVal bytLigneRef As Byte, Optional ByRef bolVider)
'    Variable servant de point de repère pour les colonnes
        Dim bytLoop        As Byte

'    Est-ce que l'on doit vider les cellules ou pas
        If Not bolVider Then
            For bytLoop = 4 To 7    '    Colonne 4 a 7 = Colle D a G
                '    Colonne + 6 Example 4(ou D) + 6 = 10(ou J)
                    Cells(bytLigneRef, bytLoop + 6) = Cells(bytLigneRef, bytLoop)
            Next bytLoop
        Else
            For bytLoop = 4 To 7
                    Cells(bytLigneRef, bytLoop + 6) = Empty
            Next bytLoop
        End If
End Sub
'    Procédure comune qui ramasse sur quel ligne est le chexkbox
Private Sub LequelCheckbox(ByVal ckbCaseCoché As Object)
        With ckbCaseCoché
                    If .Value Then    '    Si c'est vrai
                            Call Commun(.TopLeftCell.Row, False)
                    Else
                            Call Commun(.TopLeftCell.Row, True)
                End If
        End With
End Sub

Private Sub CheckBox1_Click()
        Call LequelCheckbox(Me.CheckBox1)
End Sub

Private Sub CheckBox2_Click()
        Call LequelCheckbox(Me.CheckBox2)
End Sub

Private Sub CheckBox3_Click()
        Call LequelCheckbox(Me.CheckBox3)
End Sub

Private Sub CheckBox4_Click()
        Call LequelCheckbox(Me.CheckBox4)
End Sub

Private Sub CheckBox5_Click()
        Call LequelCheckbox(Me.CheckBox5)
End Sub

Cliquez pour agrandir...