Discussion :

[expertdev]

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

[alsimbad]

salut
A priori, mais sans certitude a cette heure là, tes déclarations dont les noms commencent par Q sont des ranges
T et AB sont des nombres mais n'apparaissent pas dans les critères
dans le code tous tes "set" déterminent des ranges et noms des nombres
je ne connais pas sumif, j'ai regardé a somme.si et il te faut un critère, et le nombre d'argument ne correspond pas.
si ça peut t'aider ..

[casefayere]

Bonjour le forum, expertdev, alsimbad,

je ne connais pas sumif, j'ai regardé a somme.si et il te faut un critère, et le nombre d'argument ne correspond pas.
si ça peut t'aider ..

Non, Sumifs (avec un "s") remplace "SOMME.SI.ENS", où plusieurs critères peuvent être déclarés, je crois que cette fonction existe depuis Excel 2007.

Mais il est vrai que les variables sont mal déclarées, mal référencées et que la formule comporte des erreurs car les critères ne peuvent pas être des plages comme dans "SOMME.si".

Un petit fichier m'aiderais à orienter expertdev

Bonne journée à tou(te)s

[expertdev]

Bonjour casefayere,

Merci pour vos réponses, voici mon fichier à titre d'exemple.
Un exemple de mon fichier car il est lourd et comporte plusieurs lignes et colonnes. Je voudrais remplacers somme.si.ens par la même formule en code VBA.

Merci

[casefayere]

Bonjour Experdev,

Je vais regarder mais en attendant corriges ton 1er message en respectant les balises codes, en pratiquant comme ci-dessous, ou pendant une redaction comme ici :

[casefayere]

En regardant ton fichier et, sutout, ta formule, je ne comprends pas quelle plage veux-tu totaliser.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
'quelle plage car la formule est incorrecte ?
.Range("XM11:BID359") = WorksheetFunction.SumIfs(qqty, qname = qnom, qdb <= qdate, qdf >= qdate)
'et quels critères ?