Dans le code ci joint, j'essaie de compter le nombre de valeur, puis de
stocker la valeur de la cellule +1, et ensuite de positionner ces valeurs
dans une somme. Je n'y arrive vraiment pas....
Si quelqu'un a une idée :-))
Cordialement,
François
For Departcol = 9 To Derc Step 13
For Each Cel In Range("A4:A" & Derl)
DateD = Cells(1, Departcol)
DateD = CDate(DateD)
Brut = Cells(Cel.Row, 8)
If Cel = "JT" Then
If DateD >= Cells(Cel.Row, 6) And (DateD <= Cells(Cel.Row, 7) Or
Cells(Cel.Row, 7) = "") Then
For i = 1 To Cel.Count
If Month(DateD) = 12 Then
Brut = Brut * 2
ElseIf Month(DateD) = 5 Then
Brut = Brut + (Brut * (1 / 30))
Else
Brut = Brut
End If
Brut = Application.WorksheetFunction.Substitute(Brut, ",", ".")
ici==> Brut = Brut & "" & Brut(i) & "" & ","
Next i
ici==> .Cells(Ligne, 4) = "=sum(" & Brut & ")"
si Service=JT alors =somme(100;35) + somme((20*2);(56*2)) + somme(20;39;49;56)
isabelle
Bonsoir Isabelle,
Désolé, je n'arrive pas à l'adapter. Ci dessous un exemple. c'est un fichier dans les lignes sont variables >100 !
Service Montant1 Montant n JT 100 20 HJ 150 39 YU 20 49 JT 35 56
Je ne passe pas par la fonction sommeprod, car selon la colonne de montant (n), une opération s'effectue sur la valeur.
Résultat = Si Service = JT alors somme(100;35;somme(20*2;56*2);somme(n))
Je te remercie encore pour tes lumières !
Cordialement, François "isabelle" a écrit dans le message de news:
voici un exemple,
Sub macro1() Brut1 = 10 Brut2 = 10 Brut3 = 10 Brut4 = 10 v = Array(Brut1, Brut2, Brut3, Brut4) For i = 0 To 3 resultat = resultat + v(i) Next MsgBox resultat End Sub
isabelle
bonjour Francois dit moi si j'ai bien compris,
si Service=JT alors =somme(100;35) + somme((20*2);(56*2)) + somme(20;39;49;56)
isabelle
Bonsoir Isabelle,
Désolé, je n'arrive pas à l'adapter. Ci dessous un exemple. c'est un fichier
dans les lignes sont variables >100 !
Service Montant1 Montant n
JT 100 20
HJ 150 39
YU 20 49
JT 35 56
Je ne passe pas par la fonction sommeprod, car selon la colonne de montant
(n), une opération s'effectue sur la valeur.
Résultat = Si Service = JT alors somme(100;35;somme(20*2;56*2);somme(n))
Je te remercie encore pour tes lumières !
Cordialement,
François
"isabelle" <i@v> a écrit dans le message de news:
OzmUgsYxHHA.4476@TK2MSFTNGP06.phx.gbl...
voici un exemple,
Sub macro1()
Brut1 = 10
Brut2 = 10
Brut3 = 10
Brut4 = 10
v = Array(Brut1, Brut2, Brut3, Brut4)
For i = 0 To 3
resultat = resultat + v(i)
Next
MsgBox resultat
End Sub
si Service=JT alors =somme(100;35) + somme((20*2);(56*2)) + somme(20;39;49;56)
isabelle
Bonsoir Isabelle,
Désolé, je n'arrive pas à l'adapter. Ci dessous un exemple. c'est un fichier dans les lignes sont variables >100 !
Service Montant1 Montant n JT 100 20 HJ 150 39 YU 20 49 JT 35 56
Je ne passe pas par la fonction sommeprod, car selon la colonne de montant (n), une opération s'effectue sur la valeur.
Résultat = Si Service = JT alors somme(100;35;somme(20*2;56*2);somme(n))
Je te remercie encore pour tes lumières !
Cordialement, François "isabelle" a écrit dans le message de news:
voici un exemple,
Sub macro1() Brut1 = 10 Brut2 = 10 Brut3 = 10 Brut4 = 10 v = Array(Brut1, Brut2, Brut3, Brut4) For i = 0 To 3 resultat = resultat + v(i) Next MsgBox resultat End Sub
isabelle
François
Bonjour Isabelle,
Montant 1 à N représente des mois de 1 à 12.
Effectivement, ta proposition est bonne sauf pour la dernière occurence. L'idée était excel recherche pour chaque ligne où le service = JT, il récupère la cellule JT + 8, et qu'il place la valeur trouvée dans une fonction somme qui s'incrémente des valeurs trouvées !
En tout cas merci beaucoup !
Cordialement, François "isabelle" a écrit dans le message de news: %
bonjour Francois dit moi si j'ai bien compris,
si Service=JT alors =somme(100;35) + somme((20*2);(56*2)) + somme(20;39;49;56)
isabelle
Bonsoir Isabelle,
Désolé, je n'arrive pas à l'adapter. Ci dessous un exemple. c'est un fichier dans les lignes sont variables >100 !
Service Montant1 Montant n JT 100 20 HJ 150 39 YU 20 49 JT 35 56
Je ne passe pas par la fonction sommeprod, car selon la colonne de montant (n), une opération s'effectue sur la valeur.
Résultat = Si Service = JT alors somme(100;35;somme(20*2;56*2);somme(n))
Je te remercie encore pour tes lumières !
Cordialement, François "isabelle" a écrit dans le message de news:
voici un exemple,
Sub macro1() Brut1 = 10 Brut2 = 10 Brut3 = 10 Brut4 = 10 v = Array(Brut1, Brut2, Brut3, Brut4) For i = 0 To 3 resultat = resultat + v(i) Next MsgBox resultat End Sub
isabelle
Bonjour Isabelle,
Montant 1 à N représente des mois de 1 à 12.
Effectivement, ta proposition est bonne sauf pour la dernière occurence.
L'idée était excel recherche pour chaque ligne où le service = JT, il
récupère la cellule JT + 8, et qu'il place la valeur trouvée dans une
fonction somme qui s'incrémente des valeurs trouvées !
En tout cas merci beaucoup !
Cordialement,
François
"isabelle" <i@v> a écrit dans le message de news:
%23jmtIhhxHHA.404@TK2MSFTNGP03.phx.gbl...
bonjour Francois dit moi si j'ai bien compris,
si Service=JT alors =somme(100;35) + somme((20*2);(56*2)) +
somme(20;39;49;56)
isabelle
Bonsoir Isabelle,
Désolé, je n'arrive pas à l'adapter. Ci dessous un exemple. c'est un
fichier dans les lignes sont variables >100 !
Service Montant1 Montant n
JT 100 20
HJ 150 39
YU 20 49
JT 35 56
Je ne passe pas par la fonction sommeprod, car selon la colonne de
montant (n), une opération s'effectue sur la valeur.
Résultat = Si Service = JT alors somme(100;35;somme(20*2;56*2);somme(n))
Je te remercie encore pour tes lumières !
Cordialement,
François
"isabelle" <i@v> a écrit dans le message de news:
OzmUgsYxHHA.4476@TK2MSFTNGP06.phx.gbl...
voici un exemple,
Sub macro1()
Brut1 = 10
Brut2 = 10
Brut3 = 10
Brut4 = 10
v = Array(Brut1, Brut2, Brut3, Brut4)
For i = 0 To 3
resultat = resultat + v(i)
Next
MsgBox resultat
End Sub
Effectivement, ta proposition est bonne sauf pour la dernière occurence. L'idée était excel recherche pour chaque ligne où le service = JT, il récupère la cellule JT + 8, et qu'il place la valeur trouvée dans une fonction somme qui s'incrémente des valeurs trouvées !
En tout cas merci beaucoup !
Cordialement, François "isabelle" a écrit dans le message de news: %
bonjour Francois dit moi si j'ai bien compris,
si Service=JT alors =somme(100;35) + somme((20*2);(56*2)) + somme(20;39;49;56)
isabelle
Bonsoir Isabelle,
Désolé, je n'arrive pas à l'adapter. Ci dessous un exemple. c'est un fichier dans les lignes sont variables >100 !
Service Montant1 Montant n JT 100 20 HJ 150 39 YU 20 49 JT 35 56
Je ne passe pas par la fonction sommeprod, car selon la colonne de montant (n), une opération s'effectue sur la valeur.
Résultat = Si Service = JT alors somme(100;35;somme(20*2;56*2);somme(n))
Je te remercie encore pour tes lumières !
Cordialement, François "isabelle" a écrit dans le message de news:
voici un exemple,
Sub macro1() Brut1 = 10 Brut2 = 10 Brut3 = 10 Brut4 = 10 v = Array(Brut1, Brut2, Brut3, Brut4) For i = 0 To 3 resultat = resultat + v(i) Next MsgBox resultat End Sub