Discussion :

[fataliter]

bonjour

j'ai un probleme avec sais parti du code qui doit faire une addition en fonction du mois
j'ai recherche et lut tout ce que j'ai pus trouver sur les date mais j'ai rien trouve qui pourrai m'aide la dessus
je mais pas tout le programme qui la fait pas loin de 1300 ligne vue que tout les reste fonctionne très bien les variables sont déjà définit
après je sais que il et pas optimiser mais sa sais une autre histoire
je vous remercie par avance de votre aide

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
 
 
rang3 = rang3 + 1
l = l + 1
Next
 
l2 = 0: rang3 = 1: l3 = 0: toto = 0
 
For l2 = l3 To N
 
 If Cells(rang3, 3) >= "01/01/*" And Cells(rang3, 3)  <= "31/01/*" Then
toto = Cells(rang3, 11).Value
JanvMinu = JanvMinu + toto
 
 ElseIf Cells(rang3, 3) >= "01/02/*" And Cells(rang3, 3) <= "31/02/*" Then
toto = Cells(rang3, 11).Value
FevrMinu = FevrMinu + toto
 
 ElseIf Cells(rang3, 3) >= "01/03/*" And Cells(rang3, 3) <= "31/03/*" Then
toto = Cells(rang3, 11).Value
Marsminu = Marsminu + toto
 
 ElseIf Cells(rang3, 3) >= "01/04/*" And Cells(rang3, 3) <= "31/04/*" Then
toto = Cells(rang3, 11).Value
AvrMinu = AvrMinu + toto
 
 ElseIf Cells(rang3, 3) >= "01/05/*" And Cells(rang3, 3) <= "31/05/*" Then
toto = Cells(rang3, 11).Value
MaiMinu = MaiMinu + toto
 
 ElseIf Cells(rang3, 3) >= "01/06/*" And Cells(rang3, 3) <= "31/06/*" Then
toto = Cells(rang3, 11).Value
JuinMinu = JuinMinu + toto
 
 ElseIf Cells(rang3, 3) >= "01/07/*" And Cells(rang3, 3) <= "31/07/*" Then
toto = Cells(rang3, 11).Value
JuilMinu = JuilMinu + toto
 
 ElseIf Cells(rang3, 3) >= "01/08/*" And Cells(rang3, 3) <= "31/08/*" Then
toto = Cells(rang3, 11).Value
AoutMinu = AoutMinu + toto
 
 ElseIf Cells(rang3, 3) >= "01/09/*" And Cells(rang3, 3) <= "31/09/*" Then
toto = Cells(rang3, 11).Value: MsgBox toto
SeptMinu = SeptMinu + toto
 
 ElseIf Cells(rang3, 3) >= "01/10/*" And Cells(rang3, 3) <= "31/10/*" Then
toto = Cells(rang3, 11).Value
OctMinu = OctMinu + toto
 
 ElseIf Cells(rang3, 3) >= "01/12/*" And Cells(rang3, 3) <= "31/12/*" Then
toto = Cells(rang3, 11).Value
NovMinu = NovMinu + toto
 
 ElseIf Cells(rang3, 3) >= "01/12/*" And Cells(rang3, 3) <= "31/12/*" Then
toto = Cells(rang3, 11).Value
DecMinu = DecMinu + toto
 
End If
rang3 = rang3 + 1
l3 = l3 + 1
 
Next
 
 
ActiveWorkbook.Close
Call afficheBP

[unparia]

Bonjour
J'ai moi également depuis ce matin, mes propres habitudes d'écrire de manière "compréhensible"...
Tu comprends quelque chose à ceci, toi -->>
je bis à a

C'est pourtant, dans mon nouveau jargon, une phrase complète ...

[Menhir]

j'ai un probleme avec sais parti du code qui doit faire une addition en fonction du mois

Tu dis que tu as un problème mais quel est ce problème ?
Pourrais-tu décrire un peu plus précisément ce qui ne fonctionne pas comme tu le souhaites ?

Je ne comprends pas non plus ce que tu souhaites obtenir avec une ligne comme celle-ci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 If Cells(rang3, 3) >= "01/01/*" And Cells(rang3, 3)  <= "31/01/*" Then

J'ai l'impression que tu veux savoir si la cellule contient une date dont le mois est Janvier.
Si c'est le cas, il serait plus simple d'écrire :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 If Month(Cells(rang3, 3)) = 1 Then

https://msdn.microsoft.com/fr-fr/VBA...month-function

Ou bien, si la cellule ne contient pas des dates mais du texte qui ressemble à une date :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 If Val(Mid(Cells(rang3, 3), 4, 2)) = 1 Then

[fataliter]

merci Menhir

était bien le 2eme cas

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If Val(Mid(Cells(rang3, 3), 4, 2)) = 1 Then

je n'avais pas fait attention mais sais vrais que que la colonne n'ai pas au format date sais pour sa