calcul dans label + text box

Private Sub UserForm_Activate()
Dim a As Range, b As Range, c As Range
Dim ca As Integer, cb As Integer, cc As Integer
With Sheets('1').Range('D1' & Sheets('1').Range('D65536').End(xlUp).Row)
Set a = .Find('a', , xlValues)
If Not a Is Nothing Then
firstAddress = a.Address
Do
ca = ca + 1
Set a = .FindNext(a)
Loop While Not a Is Nothing And a.Address <> firstAddress
End If
MsgBox ca & ' a' 'place ca dans le textbox approprié
Set b = .Find('b', , xlValues)
If Not b Is Nothing Then
firstAddress = b.Address
Do
cb = cb + 1
Set b = .FindNext(b)
Loop While Not b Is Nothing And b.Address <> firstAddress
End If
MsgBox cb & ' b' 'place cb dans le textbox approprié
Set c = .Find('c', , xlValues)
If Not c Is Nothing Then
firstAddress = c.Address
Do
cc = cc + 1
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> firstAddress
End If
MsgBox cc & ' c' 'place cc dans le textbox approprié
End With
End Sub

Cliquez pour agrandir...