Problème référence date

Version imprimable

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:

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

15/01/2018, 14h39
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 ...
15/01/2018, 15h00
Menhir

Citation:

Envoyé par fataliter

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:

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:

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:

If Val(Mid(Cells(rang3, 3), 4, 2)) = 1 Then
16/01/2018, 08h52
fataliter

merci Menhir

était bien le 2eme cas

Code:

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