Private Sub CheckBox1_Change()
If Me.CheckBox1 = True Then
Me.TextBox2 = Application.WorksheetFunction.CountIf(Sheets("Feuil1").Columns("G:G"), "1111_problème")
Else
Me.TextBox2 = ""
End If
End Sub
Private Sub CheckBox2_Change()
If Me.CheckBox2 = True Then
Me.TextBox3 = Application.WorksheetFunction.CountIf(Sheets("Feuil1").Columns("G:G"), "2222_problème")
Else
Me.TextBox3 = ""
End If
End Sub
Private Sub CheckBox3_Change()
If Me.CheckBox3 = True Then
Me.TextBox4 = Application.WorksheetFunction.CountIf(Sheets("Feuil1").Columns("G:G"), "3333_problème")
Else
Me.TextBox4 = ""
End If
End Sub
Private Sub UserForm_Initialize()
Me.TextBox1 = Application.WorksheetFunction.CountA(Sheets("Feuil1").Columns("A:A")) - 1
Me.TextBox2 = Application.WorksheetFunction.CountIf(Sheets("Feuil1").Columns("G:G"), "1111_problème")
Me.TextBox3 = Application.WorksheetFunction.CountIf(Sheets("Feuil1").Columns("G:G"), "2222_problème")
Me.TextBox4 = Application.WorksheetFunction.CountIf(Sheets("Feuil1").Columns("G:G"), "3333_problème")
End Sub