somme.si.ens en vba

Version imprimable

somme.si.ens en vba

Bonjour

Donc voila ce que j'ai fait : 'condition heure 100%

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
                    Range("L13").Select
    ActiveCell.FormulaR1C1 = _
        "=IF(SUMIFS(R13C6:R4000C6,R13C1:R4000C1,RC[-1])>35,35,SUMIFS(R13C6:R4000C6,R13C1:R4000C1,RC[-1]))"
 
    'condition heure 125%
    Range("M13").Select
    ActiveCell.FormulaR1C1 = _
        "=IF(SUMIFS(R13C6:R4000C6,R13C1:R4000C1,RC[-2])>39,39-35,IF(SUMIFS(R13C6:R4000C6,R13C1:R4000C1,RC[-2])<35,""""))"
 
    'condition heure 150%
    Range("N13").Select
    ActiveCell.FormulaR1C1 = _
        "=IF(SUMIFS(R13C6:R4000C6,R13C1:R4000C1,RC[-3])>39,SUMIFS(R13C6:R4000C6,R13C1:R4000C1,RC[-3])-39,IF(SUMIFS(R13C6:R4000C6,R13C1:R4000C1,RC[-3])<35,""""))"
 
    'somme heure 100%
    Range("L13").Select
    Selection.AutoFill Destination:=Range("L13:L2000"), Type:=xlFillDefault
    Range("L13:L2000").Select
 
    'somme heure 125%
    Range("M13").Select
    Selection.AutoFill Destination:=Range("M13:M2000"), Type:=xlFillDefault
    Range("M13:M2000").Select
 
    'somme heure 150%
    Range("N13").Select
    Selection.AutoFill Destination:=Range("N13:N2000"), Type:=xlFillDefault
    Range("N13:N2000").Select

il faudrait supprimé les A4000 et LMN2000 et mettre a la place jusqu’à la dernière ligne de la colonne de A
Sinon voilà le résulta que je veux, en imaginant bien-sure qu'il y "x" semaine

a	b	c	d	e	k	l	m	n
n°semaine	...	...	...	heure	n°semaine	heure 100%	heure 125%	heure 150%
49				8	49	35	3
49				10.5	50	30
49				10.5	51	35	4	4
49				9
50				15
50				15
51				11
51				11
51				11
51				10

Merci d'avance

Bonjour,

D'abord, mets ton code entre les balises de code (tu le surlignes et tu appuies sur le bouton "#").
Pour L13 :
Code:

1 2 3 4 5 6 Dim DerLigA As Long DerLigA = Cells(Rows.Count, 1).End(xlUp).Row Range("L13").Select ActiveCell.FormulaR1C1 = _ "=IF(SUMIFS(R13C6:R" & DerLigA & "C6,R13C1:R" & DerLigA & "C1,RC[-1])>35,35,SUMIFS(R13C6:R" & _ DerLigA & "C6,R13C1:R" & DerLigA & "C1,RC[-1]))"
Fais de même pour les autres formules.

Sinon voilà le résultat que je veux, en imaginant bien-sûr qu'il y "x" semaines

a b c d e k l m n

n°semaine ... ... ... heure n°semaine heure 100% heure 125% heure 150%

49 8 49 35 3

49 10 50 30

49 10 51 35 4 4

49 9

50 15

50 15

51 11

51 11

51 11

51 10

Je pense que c'est un peu plus lisible

17/03/2015, 13h18
Daniel.C

Est-ce que la formule donnée ne répond pas à ton problème ?

Si parfaitement, sauf si j'ai un soucis vous serai toujours là pour m'aidé ?

Merci beaucoup

Cordialement

Clément

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
Dim DerLigA As Long
    DerLigA = Cells(Rows.Count, 1).End(xlUp).Row
 
    'condition heure 100%
    Range("L13").Select
    ActiveCell.FormulaR1C1 = _
    "=IF(SUMIFS(R13C6:R" & DerLigA & "C6,R13C1:R" & DerLigA & "C1,RC[-1])>35,35,SUMIFS(R13C6:R" & _
    DerLigA & "C6,R13C1:R" & DerLigA & "C1,RC[-1]))"
 
    'condition heure 125%
    Range("M13").Select
    ActiveCell.FormulaR1C1 = _
        "=IF(SUMIFS(R13C6:R" & DerLigA & "C6,R13C1:R" & DerLigA & "C1,RC[-2])>39,39-35,IF(SUMIFS(R13C6:R" & DerLigA & "C6,R13C1:R" & DerLigA & "C1,RC[-2])<35,""""))"
 
    'condition heure 150%
    Range("N13").Select
    ActiveCell.FormulaR1C1 = _
        "=IF(SUMIFS(R13C6:R" & DerLigA & "C6,R13C1:R" & DerLigA & "C1,RC[-3])>39,SUMIFS(R13C6:R" & DerLigA & "C6,R13C1:R" & DerLigA & "C1,RC[-3])-39,IF(SUMIFS(R13C6:R" & DerLigA & "C6,R13C1:R" & DerLigA & "C1,RC[-3])<35,""""))"
 
    'somme heure 100%
    Range("L13").Select
    Selection.AutoFill Destination:=Range("L13:L" & DerLigA & ""), Type:=xlFillDefault
    Range("L13:L" & DerLigA & "").Select
 
    'somme heure 125%
    Range("M13").Select
    Selection.AutoFill Destination:=Range("M13:M" & DerLigA & ""), Type:=xlFillDefault
    Range("M13:M" & DerLigA & "").Select
 
    'somme heure 150%
    Range("N13").Select
    Selection.AutoFill Destination:=Range("N13:N" & DerLigA & ""), Type:=xlFillDefault
    Range("N13:" & DerLigA & "").Select    ' j'ai un bogue ici. ce que j'ai fais au dessus est-ce bon ?

17/03/2015, 14h37
Daniel.C

Citation:

D'abord, mets ton code entre les balises de code (tu le surlignes et tu appuies sur le bouton "#").

Bis. Essaie de comprendre :lol:

Citation:

Si parfaitement, sauf si j'ai un soucis vous serai toujours là pour m'aidé ?

Si ce n'est pas moi, il y aura toujours quelqu'un d'autre.

Citation:

Range("N13:" & DerLigA & "").Select ........ j'ai un bogage ici. ce que j'ai fais au dessus est-ce bon ?

Il manque une lettre de colonne. Si "DerLigA" vaut 1000, ta ligne correspond à :

Range("N13:1000").Select

Mets (pas besoin de : & "") :

Code:

Range("N13:N" & DerLigA).Select
17/03/2015, 14h44
kiki29

Salut, ce que Daniel veut t'expliquer c'est ceci : Balise ton code Stp