Formule SOMMEPROD refractaire

[jkv]

Bonjour le forum,

J'ai un petit souci avec une formule sommeprod. Dans la pièce jointe vous trouverez toutes les explications nécessaires à la compréhension de ce problème.
Quelqu'un pourrait m'aider?
Merci d'avance

 

[Tibo]

Re : Formule SOMMEPROD refractaire

Bonjour,

J'ai pas tout testé, mais tu as des dates qui ressemblent à des dates, mais qui ne sont pas des dates :

Séparateur utilisé : . au lieu de /

dans (03.11.2005, ...)

Essaye en corrigeant et dis nous si ça donne ce que tu attends.

@+

 

[jeanpierre]

Re : Formule SOMMEPROD refractaire

Bonsoir jkv, Tibo plus rapide, re le forum,

avec en E3 (adapter le reste) : =SOMMEPROD((I11:I20=$D$3)*(C11:C20>=$D$8)*(C11:C20<=$E$8)*(J11:J20))

Et ta date début en D8, ta date de fin en E8,

Corriger aussi des dates qui n'en sont pas....

A te lire.

Jean-Pierre

 

[JCGL]

Re : Formule SOMMEPROD refractaire

Bonjour à tous,

Tout comme Tibo et JP : corrige ton format Date (fait dans le fichier)

Modification des SommeProd en tenant compte de ton Exercice Comptable

A+

 

[jeanpierre]

Re : Formule SOMMEPROD refractaire

Re, Pour te saluer Jean-Claude,

Pourquoi je n'ai pas renvoyer un fichier....

As-tu essayer 2005 ou 2007 ? De toutes façons ce sera de la faute à mon PC....
même si c'est moi qui n'ai rien compris...

Bonne soirée à toi et à tous.

Jean-Pierre

 

[JCGL]

Re : Formule SOMMEPROD refractaire

Re,

JP : l'exercice comptable commence le 1er novembre de chaque année au 31 octobre de l'année suivante.

Tu as du raisonner en année calendaire

A+

 

[jeanpierre]

Re : Formule SOMMEPROD refractaire

Re,

Oui, c'est sûr maintenant...

Mais entre les dates qui n'en sont pas et le reste.... Ca y est.... C'est good... (méthode rennaise)

 

[jkv]

Re : Formule SOMMEPROD refractaire

Merci à vous tous pour les réponses.
Le problème c'est que les dates sont rentrées à partir d'un UserForm et converties au format texte. Quand je les modifie manuellement la feuille excel, la formule sommeprod fonctionne parfaitement.
Voici le code qui rempli la colonne Date:

ActiveCell.Offset(0, 1).Value = TextBox1

Comment peut-on modifier le format dans le code en format Date?

Merci encore

 

[JCGL]

Re : Formule SOMMEPROD refractaire

Re,

Peux-tu essayer en remplaçant :

ActiveCell.Offset(0, 1).Value = TextBox1

par :

ActiveCell.Offset(0, 1).Value = Format(TextBox1,"yyyy/mm/dd")

Pas testé ;-)

A+

 

[jkv]

Re : Formule SOMMEPROD refractaire

Merci JCGL,
je veux tester...
A+

 

[jkv]

Re : Formule SOMMEPROD refractaire

Re le forum,
Le problème persiste et signe. Quand je rentre les dates manuellement au format 00.00.0000 cela fonctionne.
J'ai modifié le code de
ActiveCell.Offset(0, 1).Value = TextBox1
à
ActiveCell.Offset(0, 1).Value = Format(TextBox1,"yyyy/mm/dd")
mais rien à faire. Le format date n'est toujours pas reconnu.
Encore une idée?
Merci d'avance

 

[JCGL]

Re : Formule SOMMEPROD refractaire

Re,

Quand tu dis :

Quand je rentre les dates manuellement au format 00.00.0000

Tu veux bien dire : au format 00/00/0000...

Peux-tu joindre ton code qui contient l'USF et donc le TextBox ?

A+

 

[jkv]

Re : Formule SOMMEPROD refractaire

Oui, si j'écrit la date directement dans la colonne Date au format 02.12.2007 la formule sommeprod marche bien.
Voici le code du bouton valider

Private Sub cmdValider_Click()
'--- Positionnement dans la base
If IsEmpty("B11") Then
Range("B11").Select
ActiveCell.Value = 1
Else
Range("B10").End(xlDown).Select ' dernière ligne de la BD
'Si erreur: remplir la 1ère ligne manuellement
ActiveCell.Offset(1, 0).Select ' en dessous
ActiveCell.Value = ActiveCell.Offset(-1, 0) + 1
End If
'--- Transfert Formulaire dans BD
ActiveCell.Offset(0, 1).Value = Format(TextBox1, "dd.mm.yyyy") 'Date
ActiveCell.Offset(0, 2).Value = ComboBox1 'Activité
ActiveCell.Offset(0, 3).Value = ComboBox3 'Libellé
ActiveCell.Offset(0, 4).Value = ComboBox4 'Nom et prénom
ActiveCell.Offset(0, 5).Value = Format(TextBox2, CstrValue) 'Description
ActiveCell.Offset(0, 7).Value = ComboBox5 'Mouvement
ActiveCell.Offset(0, 8).Value = Format(TextBox3, "0.00") 'Recettes CHF
ActiveCell.Offset(0, 9).Value = Format(TextBox4, "0.00") 'Dépenses CHF
'ActiveCell.Offset(0, 7).Value = TxtNull
'--
nettoie
Me.TextBox1.SetFocus
End Sub

Merci de ta réponse

 

[JCGL]

Re : Formule SOMMEPROD refractaire

Re,

Peux-tu remplacer tes . par des /

Tu as :

    ActiveCell.Offset(0, 1).Value = Format(TextBox1, "dd.mm.yyyy")   'Date

Mais suivant ton import, il te faudra, peut-être, mettre, comme indiqué précédemment...

    ActiveCell.Offset(0, 1).Value = Format(TextBox1, "yyyy/mm/dd")   'Date

Si tu n'appliques pas les consignes données, je ne pense à pas être en mesure de t'aider ou de tenter de t'aider 😛

 

[jkv]

Re : Formule SOMMEPROD refractaire

Merci de ta réponse,
En fait, j'avais repris le code comme tu l'avais transmis mais cela n'a rien changé. J'ai voulu alors essayer d'autres écritures juste pour voir. Merci quand même.