Bonjour,

Je suis pas très doué en VBA mais j'ai besoin d'aide...

Je voudrais sur une plage donné, affichier des résultats tirés d'une autre plage d'un onglet différent à partir de la formule "SUMIFS":

J'ai des méssages d'erreur de type "13". Quelqu'un peut relire mon code et m'apporter une aide....
voici mon code:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Sub ligneremplies()
 
Dim f As Integer
Dim qname, qdb, qdf, qqty As Range
Dim qnom, qdate As Range
Dim T As Double
Dim AB As Long
f = Sheets("TESTCODE").Range("F65536").End(xlUp).Row
Set qname = Sheets("TESTCODE").Range("E1:E" & f)
Set qdb = Sheets("TESTCODE").Range("F1:F" & f)
Set qdf = Sheets("TESTCODE").Range("G1:G" & f)
Set qqty = Sheets("TESTCODE").Range("H1:H" & f)
 
Sheets("Planning rotation").Range("XM11:BID359").Select '= T
Set qnom = Sheets("Planning rotation").Range("F11:F359")
Set qdate = Sheets("Planning rotation").Range("XM7:BID7")
 
Range("XM11:BID359").Value = WorksheetFunction.SumIfs(qqty, qname = qnom, qdb <= qdate, qdf >= qdate)
 
 
End Sub