Discussion :

[Fabert]

Bonjour à tous,

J'essaie de trouver la bonne syntaxe pour la fonction SumIfs.

J'ai simplifié le code au maximum, pourtant VBA bloque, Objet requis, erreur 424.

En plage 3 se trouvent les valeurs à additionner et en plages 1 et 2 lse trouvent 2 critères à respecter ("a" et "oui")

Quelqu'un pourrait-il m'aider à trouver la bonne syntaxe pour cette fonction ?

Merci beaucoup.

Fabert

Code :

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

1
2
3
4
5
6
7
8
9
10
 
 
Sub test()
plage1 = Range("B3:B9")
plage2 = Range("C3:C9")
plage3 = Range("D3:D9")
 
a = WorksheetFunction.SumIfs(plage3, plage1, "a", plage2, "oui")
 
End Sub

[joe.levrai]

Bonjour,

il faut instancier les plages au moyen de l'instruction Set

Code :

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

1
2
3
Set plage1 = Range("B3:B9")
Set plage2 = Range("C3:C9")
Set plage3 = Range("D3:D9")

il est également conseillé de libérer la mémoire en fin de procédure, en déchargeant les variables

Code :

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

1
2
3
Set plage1 = Nothing
Set plage2 = Nothing
Set plage3 = Nothing

et également conseillé de déclarer ses variables

Code :

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

1
2
3
4
Dim a As Long
Dim Plage1 As Range
Dim Plage2 As Range
Dim Plage3 As Range

[Fabert]

Merci,

La déclaration des variables n'est pas mon fort. Il y a certainement un intérêt bien sûr, mais je ne l'ai pas encore intégré.

Peux-tu me dire en quelques mots à partir de quand c'est vraiment utile?


Merci encore.

[SfJ5Rpw8]

Bonjour,

c'est toujours utile surtout pour les débutants ...

de plus tu devrais rajoute en haut de toutes tes pages de code la ligne :

Code :

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

Option Explicit

[Fabert]

ok merci.

Cependant, dans ma plage 1, ce sont des dates qui y figurent. Est-il possible d'affecter à plage1 le mois de la date au lieu de la date elle-même ?

Merci.