Discussion :

[marot_r]

Bonjour à toutes et à tous.

J'ai enrichi SOMME.SI.ENS avec une fonction VBA pour permettre de faire l'addition de plusieurs colonnes mais avec des zones de critères avec une seule colonne.
En standard SOMME.Si.ENS retourne .#VALEUR# dans ce cas.

Ici le code de ma fonction :

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
Public Function Mon_Somme_Si_Ens( _
                    prmZoneSomme As Range, prmZoneCritere01 As Range, prmCritere01 As Variant, _
                    Optional prmZoneCritere02 As Variant, Optional prmCritere02 As Variant, Optional prmZoneCritere03 As Variant, Optional prmCritere03 As Variant, Optional prmZoneCritere04 As Variant, Optional prmCritere04 As Variant, Optional prmZoneCritere05 As Variant, Optional prmCritere05 As Variant, Optional prmZoneCritere06 As Variant, Optional prmCritere06 As Variant, _
                    Optional prmZoneCritere07 As Variant, Optional prmCritere07 As Variant, Optional prmZoneCritere08 As Variant, Optional prmCritere08 As Variant, Optional prmZoneCritere09 As Variant, Optional prmCritere09 As Variant, Optional prmZoneCritere10 As Variant, Optional prmCritere10 As Variant, Optional prmZoneCritere11 As Variant, Optional prmCritere11 As Variant, _
                    Optional prmZoneCritere12 As Variant, Optional prmCritere12 As Variant, Optional prmZoneCritere13 As Variant, Optional prmCritere13 As Variant, Optional prmZoneCritere14 As Variant, Optional prmCritere14 As Variant) As Double
    'Fait un somme.si.ens sur plusieurs colonnes avec un test sur une seule colonne
    Dim result As Double: result = 0
 
    Dim ligne As Range
    Dim colonne As Range
 
    For Each colonne In prmZoneSomme.Columns
        result = result + Application.WorksheetFunction.SumIfs( _
                                colonne, prmZoneCritere01, prmCritere01, _
                                prmZoneCritere02, prmCritere02, prmZoneCritere03, prmCritere03, prmZoneCritere04, prmCritere04, prmZoneCritere05, prmCritere05, prmZoneCritere06, prmCritere06, _
                                prmZoneCritere07, prmCritere07, prmZoneCritere08, prmCritere08, prmZoneCritere09, prmCritere09, prmZoneCritere10, prmCritere10, prmZoneCritere11, prmCritere11, _
                                prmZoneCritere12, prmCritere12, prmZoneCritere13, prmCritere13, prmZoneCritere14, prmCritere14)
    Next colonne
 
    Mon_Somme_Si_Ens = result
End Function

C'est simple wrappeur sur SumIfs.

Mon problème vient de ce que l'un de mes critères est "=VRAI" or quand on passe par VBA il faut mettre "=TRUE" à la place :-( ce qui n'est pas évident pour un utilisateur ordinaire.
De plus, je soupçonne que si j'avais utilisé une fonction de calcul, il aurait aussi fallu lui mettre son non anglais.

Existe-t-il un moyen simple de dire à Excel d'utiliser la langue courante comme la propriété .FormulaLocal des Ranges ?

A+

[Zekraoui_Jakani]

Bonjour, à ma connaissance ce moyen n'existe pas dans ce contexte. J'ai eu le même problème dans Access que j'ai dû résoudre en passant par des variables intermédiaires de type "boolean" (traduire VRAI en TRUE à chaque passage dans la boucle).

[unparia]

Bonjour
Je ne parviens pas à bien deviner dans quel contexte interviennent les utilisateurs (saisie de VRAI)
Quoiqu'il en soit : je ne rencontre pas ton problème avec des VRAI en cellules et un True en critère en VBA
Par exemple : ceci en VBA

Code :

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

Application.WorksheetFunction.SumIfs([A1:A3], [B1:B3], True)

me retourne exactement la même valeur que ce que me retourne cette formule mise sous Excel

Code :

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

=SOMME.SI.ENS(A1:A3;B1:B3;VRAI)

et ceci : que une/des cellule(s) de la plage B1:B3 contiennent des VRAI saisis au clavier ou des VRAI/formule

[Menhir]

Mon problème vient de ce que l'un de mes critères est "=VRAI"

Essaye de remplacer "=VRAI" par VRAI() (sans guillemets).

[marot_r]

Désolé j'aurai du mettre en contexte.

Ici l'usage que je fais de ma fonction.

Code :

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

1
2
3
4
5
6
7
8
=SI(CA$3<>"";
     Mon_Somme_Si_Ens(
         INDIRECT(NomFeuilleDonnees_MainOeuvre&"!"&ADRESSE(LIGNE(Donnees_MainOeuvre!$CB$28);COLONNE(Donnees_MainOeuvre!$CB$28)+(DATE(ANNEE(CA$3); MOIS(CA$3); 1)-DATE(ANNEE(CA$3);1;1)+1))&":"&ADRESSE(LIGNE(Donnees_MainOeuvre!$CB$49);COLONNE(Donnees_MainOeuvre!$CB$28)+(DATE(ANNEE(CA$4); MOIS(CA$4)+1; 0)-DATE(ANNEE(CA$4);1;1)+1)));
         Donnees_MainOeuvre!$N$28:$N$49;"=" & $B13;
         Donnees_MainOeuvre!$B$28:$B$49;"=TRUE";
         Donnees_MainOeuvre!$M$28:$M$49;"=" & $E13;
         Planification.xlsm!CodeLigne_Calendrier;"=NB_HEURE_QUOTIDIEN_SIGNE");
     "")

Comme on peut le voir sur la ligne 4, j'aurai aimé mettre =VRAI à la place de =TRUE.

Menhir, je vais essayer et je te reviens.

A+

[marot_r]

Je viens de tester et le VRAI() ne résout pas le problème.

A+

[unparia]

Ce qui était trompeur, était ta phrase :

ce qui n'est pas évident pour un utilisateur ordinaire

alors que, s'agissant là d'une instruction écrite en VBA, ce n'est par un "utilisateur", mais le développeur lui-même, qui est concerné.
Oui, les instructions VBA sont en notation anglaise.
Je note à ce propos que même tes ";" devraient alors être des ","
Mais tu ne nous montres pas la totalité de cette égalité. Que précède exactement "=SI" de ton code (le dernier montré) ?

Je ne comprends pas ...

[SR.SFC]

bonjour,
Sugestion : Pour les valeurs booléennes il est possible de les remplacer par
0 pour faux
et
1 pour Vrai. (Dans Access Vrai à pour équivalent -1)

[marot_r]

Ce qui était trompeur, était ta phrase :

alors que, s'agissant là d'une instruction écrite en VBA, ce n'est par un "utilisateur", mais le développeur lui-même, qui est concerné.
Oui, les instructions VBA sont en notation anglaise.
Je note à ce propos que même tes ";" devraient alors être des ","
Mais tu ne nous montres pas la totalité de cette égalité. Que précède exactement "=SI" de ton code (le dernier montré) ?

Je ne comprends pas ...

Je n'ai pas été clair, désolé.

J'ai créé une fonction VBA pour l'utiliser dans une formule Excel, elle même dans une cellule donc il n'y a rien avant le =SI() de la formule que j'ai postée.
Et cette formule est visible par mon utilisateur qui pourrait vouloir s'en resservir.

Suggestion : Pour les valeurs booléennes il est possible de les remplacer par
0 pour faux
et
1 pour Vrai. (Dans Access Vrai à pour équivalent -1)

Oui, je me doutais qu'on pouvait faire quelque chose comme cela mais je n'aime pas trop le "Magic Number". Mes formules sont déjà assez compliquées à comprendre comme cela.

Je vous remercie tous de votre aide, je vais documenter ma fonction pour spécifier clairement que si on veut tester un booléen, il faut mettre =TRUE.

A+