Somme si...

Gorfael

XLDnaute Barbatruc

• 20 Août 2007

• #2

Re : Somme si...

Salut jeanphi et le forum

je souhaite créer une macro me permettant de mettre en place le pb suivant:
Moi, je préfère les résoudre (^^)

dans la colonne C figure les dates de création et dans la colonne T les dates de livraison
en fait je souhaite qu'à chaque fois où il y a une date dans la colonne C, la macro vérifie s'il y a une date dans la ligne correspondante de la colonne T et si c'est le cas qu'elle me somme le total de la colonne C et celui de la colonne T puis qu'elle fasse la différence exprimée en jours entre C et T
???? Si j'ai des dates en C et T, ça sert à quoi de faire la somme ?
si tu a 3 dates égales à aujoud'hui par exemple, à quoi peut bien servir 117942 ?

quelqu'un peut t'il m'aider?
Pas sans quelques précisions


Private Sub CheckBox2_Click()
Worksheets("FEB").Select
DateCreation = WorksheetFunction.Sum(Range("C8:C100"))
DateCommande = WorksheetFunction.Sum(Range("Q8:Q100"))
total = Application.WorksheetFunction.CountA(Range("E8:E700"))
Calcul = (DateCommande - DateCreation) / total
If DateCommande > DateCreation Then
MsgBox "La durée moyenne de commande est de " & Round(Calcul, 2) & " jours", vbInformation, "Délai moyen entre date de création de la FEB et date de commande"
Else
MsgBox "La durée moyenne ne peut être calculée pour le moment, veuillez mettre à jour les dates de commande absentes", vbCritical, "Information"
End If
End Sub
Comprend pas du tout ce que tu veux faire

Code:

Sub test()
Dim Cel As Range
With Worksheets("FEB")
    For Each Cel In .Range(.Range("D8"), .Range("D65536").End(xlUp))
        If Not (IsEmpty(Cel)) And IsDate(Cel) Then
            .Range("K" & Cel.Row) = Int(Cel - Cel.Offset(0, -1))
        End If
    Next Cel
End With
End Sub

Pour chaque cellule de la plage D8 à la dernière non-vide de D de la feuille FEB
si la cellule n'est pas vide et qu'elle contient une date
la cellule K de la même ligne = différence entre la cellule de la colonne de gauche -la cellule testée

Ce qui me semble plus ou moins à la déinition de ce que tu veux (ou du moins, ce que j'ai cru comprendre).
A+

 

Vote positif 0 Vote négatif

J

jeanphi

XLDnaute Occasionnel

• 21 Août 2007

• #3

Re : Somme si...

bjr le forum, bjr gorfael


en fait je souhaite calculer le délai moyen entre une date de création d'un dossier et une date de commande
pr cela et c'est la raison pr laquelle j'ai mis mon code ci dessous j'ai besoin de pouvoir additionner les valeurs de la colonne c et les valeurs de la colonne t (à condition qu'une ligne lambda ai une valeur dans c et dans t) puis de faire la différence entre les deux delta afin de connaitre le délai moyen
j ai donc besoin qu une msgbox me donne le résultat
donc pr le moment je n arrive pas a utiliser ton code 🙁
si quelqu'un pouvait me débloquer ce pb ce serait cool! 🙂

 

Vote positif 0 Vote négatif

S

smotty

XLDnaute Occasionnel

• 21 Août 2007

• #4

Re : Somme si...

Salut!

En fait c'est la méthode qui n'est pas bonne, je pense qu'il vaut mieux calculer d'abord le délai de livraison pour chaque commande.

Puis seulement calculer le délai moyen en faisant:

somme des délais / nombre de commandes livrées.

 

Vote positif 0 Vote négatif

J

jeanphi

XLDnaute Occasionnel

• 21 Août 2007

• #5

Re : Somme si...

salut


oui mais en vb ca donne quoi? 🙁

 

Vote positif 0 Vote négatif

J

jeanphi

XLDnaute Occasionnel

• 21 Août 2007

• #6

Additionner une valeur dans 2 colonnes si la valeur existe sur les 2 col

je joins un petit fichier, ce sera plus simple pr la compréhension 😉
je souhaite que la macro additionne les cellules de C10 à C24 et de F10 à F24 avec pour condition qu'une valeur soit présentes dans 2 colonnes
si l'on regarde l'exemple, je souhaite pouvoir additionner C10 et C15 puis F10 et F15 sans prendre en compte les valeurs ne figurant que sur une seule colonne
Je souhaite ensuite qu'une fois obtenu le total de la colonne C et de la colonne F, la macro soustrait le total de la colonne C de la colonne E pour obtenir un délai moyen, délai qui remonte via une MSGBOX
j'espère que quelqu'un pourra m'aider!! 🙁
merci et bonne soirée à tous

 

Pièces jointes

• TEST.xls

  35.5 KB · Affichages: 69
• TEST.xls

  35.5 KB · Affichages: 72
• TEST.xls

  35.5 KB · Affichages: 75

Vote positif 0 Vote négatif

Cousinhub

XLDnaute Barbatruc

• 21 Août 2007

• #7

Re : Somme si...

Bonsoir, essaie ceci :

MsgBox Evaluate("SUMPRODUCT(((f10:f24)-(c10:c24))*(f10:f24<>""""))/SUMPRODUCT((c10:c24<>"""")*(f10:f24<>""""))")

sur une seule ligne

 

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 21 Août 2007

• #8

Re : Somme si...

Bonjour à tous,
Salut bh*2,

Un essai avec un code plus long que celui de bhbh et des colonnes supplémentaires mais comme je ne suis pas sûr d'avoir tout compris on pourra peaufiner après

A+

 

Dernière édition: 10 Avril 2008

Vote positif 0 Vote négatif

J

jeanphi

XLDnaute Occasionnel

• 22 Août 2007

• #9

Re : Somme si...

bonjour et merci pour ton aide


c'est exactement ce que je voulais 🙂
bonne journée

 

Vote positif 0 Vote négatif

J

jeanphi

XLDnaute Occasionnel

• 22 Août 2007

• #10

Re : Somme si...

bonjour



c'est bien ce que je voulais
le seul "hic" c'est le résultat qui s'affiche en colonne B et qui me pose pb puisque j'utilise de nombreuses macro ds le fichier
encore merci pour ton aide et bonne journée à toi 😉

 

Vote positif 0 Vote négatif

Cousinhub

XLDnaute Barbatruc

• 22 Août 2007

• #11

Re : Somme si...

Bonjour, as-tu essayé ma formule?

 

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 22 Août 2007

• #12

Re : Somme si...

Bonjour,
Salut bh*2,

bhbh : je pense que jeanphi (Post de 09:35) parle de ma version puisque toi, tu n'as pas de cellules intermédiaires.

Merci à toi, j'ai appris Evaluate

Au plaisir de te croiser

 

Vote positif 0 Vote négatif

Gorfael

XLDnaute Barbatruc

• 22 Août 2007

• #13

Re : Somme si...

jeanphi à dit:

bonjour



c'est bien ce que je voulais
le seul "hic" c'est le résultat qui s'affiche en colonne B et qui me pose pb puisque j'utilise de nombreuses macro ds le fichier
encore merci pour ton aide et bonne journée à toi 😉

Cliquez pour agrandir...

Salut

Code:

Sub test()
Dim X As Long
Dim Y As Integer
Dim Tot_V As Double
Y = 0
For X = 2 To [F65536].End(xlUp).Row
    If Range("F" & X) >= Range("C" & X) And IsDate(Range("F" & X)) Then
        Tot_V = Tot_V + Range("F" & X) - Range("C" & X)
        Y = Y + 1
    End If
Next X
Tot_V = Round(Tot_V / Y, 2)
MsgBox Tot_V, vbOKOnly, "Résultat"
End Sub

Faite suivant ton fichiier Test
A+

 

Dernière édition: 22 Août 2007

Vote positif 0 Vote négatif