Bonjour
J'ai un fichier dans lequel je voudrais faire apparaitre les calculs après le clic d'un bouton j'ai adapté un code vba sur les tableaux mais j'ai un message d'erreur incompatibilité de type
Pouvez vous m'aider
Merci d'avance
J'ai un fichier dans lequel je voudrais faire apparaitre les calculs après le clic d'un bouton j'ai adapté un code vba sur les tableaux mais j'ai un message d'erreur incompatibilité de type
Pouvez vous m'aider
Code:
Private Sub CommandButton1_Click()
Dim Ws As Worksheet, Te(), Ts(), L&
Set Ws = Worksheets("Feuil2")
Te = Ws.[A2].Resize(Ws.[A20000].End(xlUp) - 1, 21).Value
ReDim Ts(1 To UBound(Te, 1), 1 To 3)
For L = 1 To UBound(Te, 1)
If IsDate(Te(L, 21)) Then 'And IsDate(Te(L, 2)) Then
Ts(L, 1) = Year(Te(L, 21))
Ts(L, 2) = Te(L, 21) - Te(L, 20)
Ts(L, 3) = Month(Te(L, 21)): End If: Next L
Ws.[V2].Resize(UBound(Ts, 1), UBound(Ts, 2)).Value2 = Ts
End Sub