Boucle For et sum

[jeanphi]

Bonjour

J'utilise le code ci dessous pour calculer un délai entre 2 colonnes
Le problème est que ce code me calcule le délai uniquement sur le dernier n correspond aux critère (n <>"")
Comment faire pour que la macro fasse le calcul sur toutes les lignes correspondant aux critère?
Merci 🙂


Private Sub CheckBox14_Click()

Dim tot As Double
Dim n As Integer
Worksheets("FEB").Select
For n = 10 To 13
If Range("AB" & n) <> "" And Range("E" & n) <> "" Then
tot = Application.WorksheetFunction.Sum(Range("AB" & n)) - Application.WorksheetFunction.Sum(Range("E" & n))
End If
Next n
MsgBox "Le délai moyen de commande est de " & Format((tot), "### ##0.00") & "jours", vbInformation, "Délai moyen de commande"

End Sub

 

[kjin]

Re : Boucle For et sum

J'utilise le code ci dessous pour calculer un délai entre 2 colonnes
Le problème est que ce code me calcule le délai uniquement sur le dernier n correspond aux critère (n <>"")
Comment faire pour que la macro fasse le calcul sur toutes les lignes correspondant aux critère?
Merci 🙂

A priori, si le calcul est bien effectué sur toute les lignes, le message n'est affiché qu'à la fin et donc après le dernier calcul
Modifie comme ceci si tu veux un message à chaque ligne

Private Sub CheckBox14_Click()
Dim tot As Double
Dim n As Integer
Worksheets("FEB").Select
For n = 10 To 13
  If Range("AB" & n) <> "" And Range("E" & n) <> "" Then
    tot = Application.WorksheetFunction.Sum(Range("AB" & n)) - Application.WorksheetFunction.Sum(Range("E" & n))
MsgBox "Le délai moyen de commande est de " & Format((tot), "### ##0.00") & "jours", vbInformation, "Délai moyen de commande"
  End If
Next n
End Sub

A+
kjin

 

[Guest]

Re : Boucle For et sum

Bonjour JeanPhi,

Sans boucle for

1 - sans variable

application.WorksheetFunction.SUM(range("D
AB10:AB13"))-applicatiOn.WorksheetFunction.Sum(range("E10:E13"))

2 - avec variable

application.WorksheetFunction.SUM(range("D
AB"& n & ":AB" & n+3))-applicatiOn.WorksheetFunction.Sum(range("E" & n &":E" &  n+13))

Avec boucle
Dim tot as double

For n = 10 To 13
 
If val(Range("AB" & n))>0 And val(Range("E" & n))>0 Then
 
    tot = tot+ Range("AB" &n)-Range("E" &  n)
 
End If
 
Next

[Edition] hello kjin
A+

 

[jeanphi]

Re : Boucle For et sum

bonjour kajin, hasco

et merci
mais en fait ce que je voudrais c est d'avoir automatiquement via le msgbox le délai moyen entre les lignes de la colonne E et celles de la colonne AB si AB<>"" et E<>"" et non pas le délai à chaque changement de n 🙁

 

[Guest]

Re : Boucle For et sum

JeanPhi,

Après le calcul de tot:

MsgBox "Le délai moyen de commande est de " & Format((tot[SIZE=4][COLOR=red]/4[/COLOR][/SIZE]), "### ##0.00") & "jours", vbInformation, "Délai moyen de commande"

Ou

dim cpt
For n = 10 To 13
 
If val(Range("AB" & n))>0 And val(Range("E" & n))>0 Then
cpt=cpt+1
tot = tot+ Range("AB" &n)-Range("E" & n)
 
End If
Next 
MsgBox "Le délai moyen de commande est de " & Format((tot[SIZE=3][COLOR=red]/CPT[/COLOR][/SIZE]), "### ##0.00") & "jours", vbInformation, "Délai moyen de commande"

A+

 

[kjin]

Re : Boucle For et sum

Bonjour,
Bonjour Hasco, sans doute plus perspicace que moi parce que pour ma part, rien compris
A+
kjin

 

[jeanphi]

Re : Boucle For et sum

Super!!!
c'est çà
merci bcp hasco
bonne journée