Discussion :

[GADENSEB]

Bonjour le Forum
Je cherche à inclure dans le sommeprod suivant

Code :

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

=SOMMEPROD((Tb_B_BUDGETREEL="REEL")*(Tb_B_ANNEE=$E$2)*(Tb_B_MOIS="SEPTEMBRE")*(Tb_B_COMPTE="COURANT")*(Tb_B_BQ<>"N.E.")*(Tb_B_DEBITCREDIT))

a la place de (Tb_B_MOIS="SEPTEMBRE") de remplacer septembre par mois-1 donc ici AOUT
autres exemples :
- OCTOBRE devient SEPTEMBRE
- JUILLET deviens JUIN ......

Sachant que j'utilise la fonction Sansaccent, pour élimener les accents des mois (Décembre ...)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Function sansAccent(chaine)
  'Remplace les accents des lettres avec accent
  codeA = "ÉÈÊËÔéèêëàçùôûïî"
  codeB = "EEEEOeeeeacuouii"
  temp = chaine
  For i = 1 To Len(temp)
    P = InStr(codeA, Mid(temp, i, 1))
    If P > 0 Then Mid(temp, i, 1) = Mid(codeB, P, 1)
  Next
  sansAccent = temp
End Function

je sais que j'ai a peu prés déjà cette question sur ce forum mais je ne trouve plus la réponse.... sorry

QQn aurait une idée ?

[joe.levrai]

Bonjour,

le point essentiel, c'est de savoir dans quel contexte tu veux faire varier ce mois ? Est-ce pour étirer la formule et avoir du coup les différents mois les uns à côté (ou en dessous) des autres ?

en attendant, une piste possible :

- écrit une date en A1
- met cette formule dans une autre cellule

=MAJUSCULE(TEXTE(DATE(ANNEE(A1);MOIS(A1);JOUR(A1));"mmmm"))

Tu obtiens le mois en majuscule, et tu peux y ajouter ta fonction SANS_ACCENTS histoire d'enlever les accents
Ainsi, ce qui va faire varier le mois, c'est uniquement le paramètre "MOIS(A1)" de la fonction DATE()

par exemple, on pourrait ajouter dans ce paramètre une partie variable qui va permettre d'ajouter ou soustraire des mois : fonction COLONNE() ou fonction LIGNE() suivant le sens où les formules doivent s'étirer

[GADENSEB]

Hello
Jolie formule,

je l'utilise aussi en la générant, en auto avec

Code :

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

.[C2].Value = UCase(sansAccent(Format(Date, "MMMM")))

pour un autre calcul

mais du coup je ne comprends pas comment faire Mois-1.....
la formule ne sera pas étirée c'est juste pr la cellule c11

thanks

bonne soirée

[joe.levrai]

Il faut pouvoir faire varier les 12 mois de l'année ou pas ?
Est-ce qu'une cellule contient l'information permettant de savoir le mois à utiliser ?

Si en A1, par exemple, tu disposais du numéro du mois voulu, on aurait grosso modo

Code :

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

=SOMMEPROD((Tb_B_BUDGETREEL="REEL")*(Tb_B_ANNEE=$E$2)*(Tb_B_MOIS=sansaccent(MAJUSCULE(TEXTE(DATE(1;A1;1);"mmmm"))))*(Tb_B_COMPTE="COURANT")*(Tb_B_BQ<>"N.E.")*(Tb_B_DEBITCREDIT))

[GADENSEB]

hello
C'est R2 qui contient la date du jour au format "11/10/2016"
oui on doit faire varier sur les 12 mois (pour info : JANVIER devient DECEMBRE )
désolé du manque de précision
la formule me renvoie un #valeur

[unparia]

Bonjour

Regarde ce que fait cette formule :

Code :

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

=sansaccent(TEXTE(DATE(ANNEE(A1);MOIS(A1)-1;JOUR(A1));"mmmm"))

en mettant cette fonction en public dans un module standard :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Public Function sansAccent(chaine As String) As String
  'Remplace les accents des lettres avec accent
  codeA = "ÉÈÊËÔéèêëàçùôûïî"
  codeB = "EEEEOeeeeacuouii"
  temp = chaine
  For i = 1 To Len(temp)
    P = InStr(codeA, Mid(temp, i, 1))
    If P > 0 Then Mid(temp, i, 1) = Mid(codeB, P, 1)
  Next
  sansAccent = UCase(temp)
End Function

[joe.levrai]

Bonjour,

unparia, j'ai hésité avant de lui proposer d'intégrer dans sa fonction perso la mise en majuscule.
à vrai dire, j'ai abandonné car du coup il perd la capacité à réutiliser sa fonction pour des sorties "non majusculées" ... sauf à l'encadrer d'une fonction MINUSCULE() (ou NOMPROPRES()).

GADENSEB, si tu remplaces, dans la formule que je t'ai proposé, le A1 par R2, ça ne fonctionne toujours pas ?
Attention, j'ai peut-être mal recopié ta formule quand j'ai posté, vérifie qu'elle est toujours intègre, seule cette partie est de ma composition :

Code :

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

)*(Tb_B_MOIS=sansaccent(MAJUSCULE(TEXTE(DATE(1;A1;1);"mmmm"))))

[GADENSEB]

Hello à tous les deux
Nan cela ne fonctionne tjrs pas avec

Code :

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

=SOMMEPROD((Tb_B_BUDGETREEL="REEL")*(Tb_B_ANNEE=$E$2)*(Tb_B_MOIS=sansAccent(MAJUSCULE(TEXTE(DATE(1;R2;1);"mmmm"))))*(Tb_B_COMPTE="COURANT")*(Tb_B_BQ<>"N.E.")*(Tb_B_DEBITCREDIT))

snifff

désolé de la réponse en retard j'étais en déplacement

[joe.levrai]

Bonjour,

peut-être qu'il faut extraire la formule, la calculer dans une cellule intermédiaire, et en utiliser le résultat ?

si tu essayes en calculant ça :

Code :

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

sansAccent(MAJUSCULE(TEXTE(DATE(1;R2;1);"mmmm")))

dans une autre cellule (A1 par exemple), et que ta formule principale devient :

Code :

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

=SOMMEPROD((Tb_B_BUDGETREEL="REEL")*(Tb_B_ANNEE=$E$2)*(Tb_B_MOIS=A1)*(Tb_B_COMPTE="COURANT")*(Tb_B_BQ<>"N.E.")*(Tb_B_DEBITCREDIT))

ça ne va pas mieux ?

[GADENSEB]

bonne idée
le #valeur vient de

Code :

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

=sansAccent(MAJUSCULE(TEXTE(DATE(1;R2;1);"mmmm")))

pr rappel, ca peut servir, R2 est généré par

Code :

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

.[R2].Value = Date

[joe.levrai]

arf !

quand je t'ai proposé cette formule, je parlais de R2 qui porte le numéro du mois, et là je percute sur le fait que R2 contient une date complète

du coup :

Code :

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

=sansAccent(MAJUSCULE(TEXTE(DATE(1;MOIS(R2);1);"mmmm")))

teste directement dans ta formule principale avec ça, il fallait extraire le numéro de mois de R2 (d'où la fonction MOIS(R2))

[GADENSEB]

OK Je m'étais peut etre mal exprimé
Avec la date je renvois OCTOBRE

Code :

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

=SOMMEPROD((Tb_B_BUDGETREEL="REEL")*(Tb_B_ANNEE=$E$2)*(Tb_B_MOIS=sansAccent(MAJUSCULE(TEXTE(DATE(1;MOIS(R2);1);"mmmm"))))*(Tb_B_COMPTE="COURANT")*(Tb_B_BQ<>"N.E.")*(Tb_B_DEBITCREDIT))

j'ai aussi testé alone ta formule... là aussi OCTOBRE.

du coup il manque Mois-1

thnaks

[joe.levrai]

MOIS(R2) - 1

mais du coup, on retombe sur ma question de départ : dans quelle mesure peut-on faire varier logiquement les mois dans ta formule ?

qu'Est-ce qui peut remplacer le chiffre "1" (qui donnera le mois précédent) par une variable te permettant d'utiliser le mois souhaité ?

[Philippe Tulliez]

Bonjour Joe,
Attention que la formule MOIS(R2)-1 renverra 0 si la date contenue en R2 est en décembre.
Pour calculer le mois qui précède une date sans avoir de problème avec les dates de janvier, il y a par exemple

Code :

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

=MOIS(DATE(ANNEE(B2);MOIS(B2);0))

ou

Code :

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

=MOIS(MOIS.DECALER(B2;-1))

[joe.levrai]

Bonjour,

tu as entièrement raison Philippe , je n'ai fais aucune mise en garde de contexte.


A vrai dire, j'ai donné ce poisson pour qu'il teste la véracité de la chose .... mais j'ai une idée derrière, qui découle de ma question sur la façon dont on peut gérer dynamiquement le changement de mois.
Enfin, ça dépendra de la réponse de GADENSEB, afin de savoir si on peut se fixer autrement que sur un champs de date.

[GADENSEB]

@joe.levrai /
Pour remplacer "1" "JANVIER", pas de variable mais DECEMBRE uniquement
@ Phillipe
J'en suis là mais probléme de parenthése....

Code :

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

=SOMMEPROD((Tb_B_BUDGETREEL="REEL")*(Tb_B_ANNEE=$E$2)*(Tb_B_MOIS=format(MOIS(DATE(ANNEE(r2);MOIS(r2);0) ;"mmmm"))*(Tb_B_COMPTE="COURANT")*(Tb_B_BQ<>"N.E.")*(Tb_B_DEBITCREDIT))

[joe.levrai]

il manque une parenthèse fermante juste derrière "mmmm"

[GADENSEB]

effectivement

Code :

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

=SOMMEPROD((Tb_B_BUDGETREEL="REEL")*(Tb_B_ANNEE=$E$2)*(Tb_B_MOIS=format(MOIS(DATE(ANNEE(r2);MOIS(r2);0) ;"mmmm")))*(Tb_B_COMPTE="COURANT")*(Tb_B_BQ<>"N.E.")*(Tb_B_DEBITCREDIT))

Mais du coup j'ai un nombre trop important d'arguments sur

Code :

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

format(MOIS(DATE(ANNEE(r2);MOIS(r2);0) ;"mmmm")))

????????????????

[joe.levrai]

J'avais pas vu que tu avais remplacé TEXTE() par FORMAT dans la formule

comme ça ?

Code :

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

=SOMMEPROD((Tb_B_BUDGETREEL="REEL")*(Tb_B_ANNEE=$E$2)*(Tb_B_MOIS=TEXTE(MOIS(DATE(ANNEE(R2);MOIS(R2);0));"mmmm")*(Tb_B_COMPTE="COURANT")*(Tb_B_BQ<>"N.E.")*(Tb_B_DEBITCREDIT)))

[GADENSEB]

grrrr
J'ai un #valeur qui vient de :


*(Tb_B_MOIS=TEXTE(MOIS(DATE(ANNEE(R2);MOIS(R2);0));"mmmm")