Calvus
XLDnaute Barbatruc
Bonsoir le forum,
Tout est dit dans le titre.
Après plusieurs essais, le code "passe" finalement, mais j'obtiens inlassablement 0.
Ce qui pose problème est cette partie, dont j'ai essayé plusieurs conversions mais sans succès..
Et en particulier le " ="
Si je remplace le critère date par un autre, recherche sur un client par exemple, ça fonctionne.
Voici le code dans son entier.
Avez vous une idée ?
Merci
Tout est dit dans le titre.
Après plusieurs essais, le code "passe" finalement, mais j'obtiens inlassablement 0.
Ce qui pose problème est cette partie, dont j'ai essayé plusieurs conversions mais sans succès..
VB:
CDate(Right(t(j, 1), 4)) = madate
Et en particulier le " ="
Si je remplace le critère date par un autre, recherche sur un client par exemple, ça fonctionne.
Voici le code dans son entier.
Code:
Option Explicit
Sub Somme()
Dim derligdonnees%, t, tdep, a(), f As Worksheet, i%, n%, j%
Set f = Sheets("Feuil1")
derligdonnees = f.Range("B" & Rows.Count).End(xlUp).Row
t = f.Range("B3:H" & f.Range("B" & Rows.Count).End(xlUp).Row)
tdep = f.Range("O3:O" & f.Range("O" & Rows.Count).End(xlUp).Row)
Dim madate
madate = 2016
ReDim a(1 To UBound(tdep), 1 To 1)
n = 1
For i = 1 To UBound(tdep)
For j = 1 To UBound(tdep)
If t(i, 5) = tdep(j, 1) Then
a(n, 1) = Round(WorksheetFunction.SumIfs(f.Range("h1:h" & derligdonnees), f.Range("f1:f" & derligdonnees), tdep(j, 1), f.Range("B1:B" & derligdonnees), CDate(Right(t(j, 1), 4)) = madate), 2)
n = n + 1
End If
Next j
Next i
End Sub
Avez vous une idée ?
Merci