Public Sub mOnAction_Test()
Dim strValue1$, strValue2$
With Feuil1
Let strValue1 = VBA.Strings.Left(.[B3], 1) & _
VBA.Strings.Space(1) & (.Rows.Count - 2)
Let strValue2 = VBA.Strings.Left(.[B10], 1) & _
VBA.Strings.Space(1) & (.Rows.Count - 9)
' --- Hier der Rest der Anleitung:
End With
MsgBox strValue1
MsgBox strValue2
End Sub