Compréhension If et IsEmpty

Version imprimable

Voir 40 message(s) de cette discussion en une page

Bonjour Robert
Je pense que j'ai trouvé ou ça plantait pour l’essentiel, mais pas encore la solution pour résoudre..

Par rapport au message précédent:
Pour la première question, je me suis une nouvelle fois planté, même si je force la saisie d'un zéro dans une cellules date, elle n'est pas interprétée comme tel.
Mon idée était de mettre la condition: si une des cellules contenant normalement la date est à zéro, ne pas faire l'opération. Si je n'y parviens pas, je mettrai une mesagebox pour arrêter le code le temps de saisir des dates s'il n'y en a pas.

Pour la suite du code, c'est bien ce que j'avais compris et écrit pour les opérations, ne fonctionnant pas je l'ai enlevé pour y mettre un plus mauvais code.
Pour les conditions, pourquoi faire simple quand on peu faire compliqué, focalisé sur les codes, je n'avais pas pensé à multiplier par zéro (si ça recommence, je retournerai voir, s'il veulent me reprendre en CP ou CE1).

Pour ce qui est du problème qui provoque l'erreur, il est plus bas dans mon code ou une dernière formule me fait une moyenne glissante de la colonne 7 reportée sur la colonne 17 avec remise à zéro chaque 1er avril. Mais j'ai pas du lui expliquer clairement.

Ci-dessous, la fin du code, ce sont les 20 dernières lignes qui semble perturber les calculs, en tout cas quand je le suspend, les autres fonctionne.

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
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
 
End With
With Sheets("Data_lait").ListObjects("Données_Lait")
    If .ListRows.Count = 0 Then
        Range("Données_Lait[[#Headers],[Date]]").Offset(1, 0) = 1
        Range("Données_Lait[[#Headers],[Date]]").Offset(1, 0) = ""
    End If
 
    If .ListRows.Count = 1 And .ListRows(1).Range.Cells(1, 1) = "" Then
        Set LignTablo = Sheets("Data_lait").ListObjects("Données_Lait").ListRows(1)
    Else
        Set LignTablo = Range("Données_Lait").ListObject.ListRows.Add(AlwaysInsert:=True)
    End If
End With
 
With LignTablo.Range
    .Cells(1, 1) = TrouveType(TxtDate)
    .Cells(1, 2) = TrouveType(TxtLivraisonpossible)
    .Cells(1, 3) = TrouveType(TxtDatefincampagne)
    .Cells(1, 4) = TrouveType(TxtNbmoyenVLcampagne)
    .Cells(1, 5) = TrouveType(TxtLaittank)
    .Cells(1, 6) = TrouveType(TxtTraitetank)
    .Cells(1, 7) = TrouveType(TxtVltank)
    .Cells(1, 8) = TrouveType(TxtDatelaitréalisé)
    .Cells(1, 9) = TrouveType(TxtLaitréalisé)
    .Cells(1, 10) = TrouveType(TxtVlfincampagne)
    .Cells(1, 11) = TrouveType(TxtMoispaye)
    .Cells(1, 12) = TrouveType(TxtPrixlaitnet)
    .Cells(1, 13) = TrouveType(TxtTb)
    .Cells(1, 14) = TrouveType(TxtTp)
    .Cells(1, 15) = TrouveType(TxtUrée)
    .Cells(1, 16) = TrouveType(TxtCellules)
 
 
 
  'calcul du lait total restant à livrer
    .Cells(1, 18) = Val(TrouveType(TxtLivraisonpossible) - Val(TrouveType(TxtLaitréalisé)))
 
     'calcul lait à livrer par vl par jour sur la campagne
If Val(TrouveType(TxtNbmoyenVLcampagne)) = 0 Then
    .Cells(Ligne, 19) = 0
Else: .Cells(1, 19) = Val(TrouveType(TxtLivraisonpossible)) / 365 / Val(TrouveType(TxtNbmoyenVLcampagne))
End If
 
'calcul lait livré par vl depuis début de campagne
If Sheets("Fiche").Range("VL_moyen_depuis_début_campagne") = 0 Then
     .Cells(Ligne, 20) = 0
Else: .Cells(1, 20) = Val((TrouveType(TxtLaitréalisé)) / (365 - (Val(TrouveType(TxtDatefincampagne)) - Val(TrouveType(TxtDatelaitréalisé))))) / Sheets("Fiche").Range("VL_moyen_depuis_début_campagne")
End If
 
    'calcul lait restant à livrer par vl jusqu'à fin de campagne
If Val(TrouveType(TxtVlfincampagne)) = 0 Then
   .Cells(Ligne, 21) = 0
Else: .Cells(1, 21) = (Val(TrouveType(TxtLivraisonpossible)) - Val(TrouveType(TxtLaitréalisé))) / (CDate(TrouveType(TxtDatefincampagne)) - CDate(TrouveType(TxtDatelaitréalisé))) / Val(TrouveType(TxtVlfincampagne))
End If
 
    'Calcul PL réelle/ VL/jour
If Val(TrouveType(TxtLaittank)) * Val(TrouveType(TxtVltank)) = 0 Then
    .Cells(Ligne, 22) = 0
 Else: .Cells(1, 22) = Val(TrouveType(TxtLaittank)) / Val(TrouveType(TxtVltank)) / (Val(TrouveType(TxtTraitetank)) / 2)
End If
 
'Calcul lait à 70 par VL par jour
If Val(TrouveType(TxtLaittank)) * Val(TrouveType(TxtVltank)) = 0 Then
    .Cells(Ligne, 23) = 0
 Else: .Cells(1, 23) = Val(TrouveType(TxtLaittank)) / Val(TrouveType(TxtVltank)) / (Val(TrouveType(TxtTraitetank)) / 2) * (Val(TrouveType(TxtTb)) + Val(TrouveType(TxtTp))) / 70
End If
 
 'Calcul MU par VL /jour
If Val(TrouveType(TxtLaittank)) * Val(TrouveType(TxtVltank)) = 0 Then
    .Cells(Ligne, 24) = 0
 Else: .Cells(1, 24) = Val(TrouveType((TxtLaittank)) / Val(TrouveType(TxtVltank)) / (Val(TrouveType(TxtTraitetank)) / 2)) * (Val(TrouveType(TxtTb)) + Val(TrouveType(TxtTp)))
End If
 
  'Calcul lait vendu par VL /jour
If Val(TrouveType(TxtLaittank)) * Val(TrouveType(TxtVltank)) * Val(TrouveType(TxtTraitetank)) * Val(TrouveType(TxtPrixlaitnet)) = 0 Then
     .Cells(Ligne, 25) = 0
 Else: .Cells(1, 25) = (Val(TrouveType((TxtLaittank)) / Val(TrouveType(TxtVltank)) / (Val(TrouveType(TxtTraitetank)) / 2)) * Val(TrouveType(TxtPrixlaitnet))) / 1000
End If
 
 'Calcul cout ration / 1000 L
If Val(TrouveType(TxtLaittank)) * Val(TrouveType(TxtVltank)) * Val(TrouveType(TxtTraitetank)) * Val(TrouveType(TxtPrixlaitnet)) = 0 Then
.Cells(Ligne, 26) = 0
 Else: .Cells(1, 26) = Val(TrouveType(Sheets("Fiche").Range("cout_ration_VL_j_Ration_Initiale") * 1000)) / (Val(TrouveType(TxtLaittank)) / Val(TrouveType(TxtVltank)) / (Val(TrouveType(TxtTraitetank)) / 2))
End If
 
'Calcul  Nb moyen Vl depuis le début de la campagne
    Set SrcRng = ThisWorkbook.Worksheets("Data_Lait").Range("A5").CurrentRegion
CntVal = 0
SumVal = 0
 
 For RowN = 2 To SrcRng.Rows.Count
 
 If IsDate(SrcRng(RowN, 1)) Then     'Peut être supprimé si c'est toujours une date
        DMonth = Month(SrcRng(RowN, 1))
        Debug.Print RowN, SrcRng(RowN, 1), DMonth
 
        If DMonth = 4 Then
            CntVal = 0
            SumVal = 0
   End If
 
        CntVal = CntVal + 1
        SumVal = SumVal + SrcRng(RowN, 7)
        SrcRng(RowN, 17) = SumVal / CntVal
 
 End If
Next RowN
 
End With

Joël

bonjour,
je vais regarder ça de plus près; mai en attendant tu peux utiliser Isdate!
Code:

1 2 3 4 5 If IsDate(TxtDatefincampagne)=false then msgbox "Ko" else msgbox "OK" end if
le signe * marche!
Code:

1 2 3 4 If IsDate(TxtDatefincampagne) * IsDate(TxtDatefincampagne2) = 0 then msgbox "Ko" else msgbox "OK"

08/11/2014, 14h42
Docmarti

Bonjour.

On ne peut pas évaluer une date avec la fonction VAL.

Val(TrouveType(TxtDatefincampagne)) devrait être remplacé par CDate(TrouveType(TxtDatefincampagne)).

VAL Renvoie le nombre situé au début d'une chaîne de caractère sous la forme d'une valeur numérique d'un type approprié.

La fonction Val arrête la lecture de la chaîne au premier caractère ne faisant apparemment pas partie d'un nombre...
Les espaces, les tabulations et les caractères de saut de ligne ne sont pas pris en compte dans l'argument.

Dans l'exemple suivant, la fonction renvoie la valeur 2014 :

Code:

Val(" 2014/02/15")

Suite...

Il faudra aussi vérifier tes parenthèses. Certaines ne sont pas au bon endroit dans:

Code:

.Cells(1, 20) = Val((TrouveType(TxtLaitréalisé)) / (365 - (Val(TrouveType(TxtDatefincampagne)) - Val(TrouveType(TxtDatelaitréalisé))))) / Sheets("Fiche").Range("VL_moyen_depuis_début_campagne")

Ceci semble fonctionner :

Code:

.Cells(1, 20) = Val(TrouveType(TxtLaitréalisé)) / (365 - (cdate(TrouveType(TxtDatefincampagne)) - cdate(TrouveType(TxtDatelaitréalisé)))) / Sheets("Fiche").Range("VL_moyen_depuis_début_campagne")

1 pièce(s) jointe(s)

Bonjour Robert et Docmarti
Merci
Ok, pour Val, j'essayerai de m'en rappeler la prochaine fois que je serai le nez dedans.
J'ai aussi modifié les parenthèses, et remis le code de calcul de la moyenne glissante à sa place dans le code, contrairement à ce que j'avais pensé, il ne me semble pas posé de souci.
Toute les conditions et opération semble bonne (sauf remise à zéro moyenne mobile) et j'ai tester j'espère toute les erreurs de saisie, le code n'a pas planté.

Le classeur est conçu pour être dupliqué pour chaque client. La remise à zéro doit s'effectuer à chaque changement de campagne, 1 fois par an (au 01/04 dans le cas exemple)
Le calcul de la remise à zéro ne se fait pas à partir de la bonne donnée. Tel qu'il est il fait, la mise à zéro s'effectue quand la date de la colonne 1 passe en Avril. Mon souci est que dans chacun des classeur, il est créé une fiche environ tout les 2 mois, et surtout de façon plus ou moins régulière. Ce qui veut dire que sur un classeur, je peux avoir une fiche en janvier, une en mars, une en mai, dans ce cas, pas de remise à zéro. Sur une autre fiche, je peu avoir une en février, une début avril et une fin avril, et je me retrouve avec 2 remise à zéro.
Pour exemple dans la classeur joint, il faudrait que la remise à zéro soit faite au changement d'année dans la colonne 6, je n'arrive pas à modifier sans plantage

Partie du code modifié:

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
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
 
With Sheets("Data_lait").ListObjects("Données_Lait")
    If .ListRows.Count = 0 Then
        Range("Données_Lait[[#Headers],[Date]]").Offset(1, 0) = 1
        Range("Données_Lait[[#Headers],[Date]]").Offset(1, 0) = ""
    End If
 
    If .ListRows.Count = 1 And .ListRows(1).Range.Cells(1, 1) = "" Then
        Set LignTablo = Sheets("Data_lait").ListObjects("Données_Lait").ListRows(1)
    Else
        Set LignTablo = Range("Données_Lait").ListObject.ListRows.Add(AlwaysInsert:=True)
    End If
End With
 
With LignTablo.Range
    .Cells(1, 1) = TrouveType(TxtDate)
    .Cells(1, 2) = TrouveType(TxtLivraisonpossible)
    .Cells(1, 3) = TrouveType(TxtDatefincampagne)
    .Cells(1, 4) = TrouveType(TxtNbmoyenVLcampagne)
    .Cells(1, 5) = TrouveType(TxtLaittank)
    .Cells(1, 6) = TrouveType(TxtTraitetank)
    .Cells(1, 7) = TrouveType(TxtVltank)
    .Cells(1, 8) = TrouveType(TxtDatelaitréalisé)
    .Cells(1, 9) = TrouveType(TxtLaitréalisé)
    .Cells(1, 10) = TrouveType(TxtVlfincampagne)
    .Cells(1, 11) = TrouveType(TxtMoispaye)
    .Cells(1, 12) = TrouveType(TxtPrixlaitnet)
    .Cells(1, 13) = TrouveType(TxtTb)
    .Cells(1, 14) = TrouveType(TxtTp)
    .Cells(1, 15) = TrouveType(TxtUrée)
    .Cells(1, 16) = TrouveType(TxtCellules)
 
'Calcul  Nb moyen Vl depuis le début de la campagne
    Set SrcRng = ThisWorkbook.Worksheets("Data_Lait").Range("A5").CurrentRegion
CntVal = 0
SumVal = 0
 
 For RowN = 2 To SrcRng.Rows.Count
 
 If IsDate(SrcRng(RowN, 1)) Then     'Peut être supprimé si c'est toujours une date
        DMonth = Month(SrcRng(RowN, 1))
        Debug.Print RowN, SrcRng(RowN, 1), DMonth
 
        If DMonth = 4 Then
          CntVal = 0
          SumVal = 0
   End If
 
        CntVal = CntVal + 1
        SumVal = SumVal + SrcRng(RowN, 7)
        SrcRng(RowN, 17) = SumVal / CntVal
 
 End If
Next RowN
 
  'calcul du lait total restant à livrer
    .Cells(1, 18) = Val(TrouveType(TxtLivraisonpossible) - Val(TrouveType(TxtLaitréalisé)))
 
     'calcul lait à livrer par vl par jour sur la campagne
If Val(TrouveType(TxtNbmoyenVLcampagne)) = 0 Then
    .Cells(1, 19) = 0
Else: .Cells(1, 19) = Val(TrouveType(TxtLivraisonpossible)) / 365 / Val(TrouveType(TxtNbmoyenVLcampagne))
End If
 
'calcul lait livré par vl depuis début de campagne
If IsDate(TxtDatefincampagne) * IsDate(TxtDatelaitréalisé) * Sheets("Fiche").Range("VL_moyen_depuis_début_campagne") = 0 Then
     .Cells(1, 20) = 0
Else: .Cells(1, 20) = Val((TrouveType(TxtLaitréalisé)) / (365 - (CDate(TrouveType(TxtDatefincampagne)) - CDate(TrouveType(TxtDatelaitréalisé))))) / Sheets("Fiche").Range("VL_moyen_depuis_début_campagne")
End If
 
    'calcul lait restant à livrer par vl jusqu'à fin de campagne
If IsDate(TxtDatefincampagne) * IsDate(TxtDatelaitréalisé) * Val(TrouveType(TxtVlfincampagne)) = 0 Then
   .Cells(1, 21) = 0
Else: .Cells(1, 21) = (Val(TrouveType(TxtLivraisonpossible)) - Val(TrouveType(TxtLaitréalisé))) / (CDate(TrouveType(TxtDatefincampagne)) - CDate(TrouveType(TxtDatelaitréalisé))) / Val(TrouveType(TxtVlfincampagne))
End If
 
    'Calcul PL réelle/ VL/jour
If Val(TrouveType(TxtLaittank)) * Val(TrouveType(TxtVltank)) = 0 Then
    .Cells(1, 22) = 0
 Else: .Cells(1, 22) = Val(TrouveType(TxtLaittank)) / Val(TrouveType(TxtVltank)) / (Val(TrouveType(TxtTraitetank)) / 2)
End If
 
'Calcul lait à 70 par VL par jour
If Val(TrouveType(TxtLaittank)) * Val(TrouveType(TxtVltank)) = 0 Then
    .Cells(1, 23) = 0
 Else: .Cells(1, 23) = Val(TrouveType(TxtLaittank)) / Val(TrouveType(TxtVltank)) / (Val(TrouveType(TxtTraitetank)) / 2) * (Val(TrouveType(TxtTb)) + Val(TrouveType(TxtTp))) / 70
End If
 
 'Calcul MU par VL /jour
If Val(TrouveType(TxtLaittank)) * Val(TrouveType(TxtVltank)) = 0 Then
    .Cells(1, 24) = 0
 Else: .Cells(1, 24) = Val(TrouveType((TxtLaittank)) / Val(TrouveType(TxtVltank)) / (Val(TrouveType(TxtTraitetank)) / 2)) * (Val(TrouveType(TxtTb)) + Val(TrouveType(TxtTp)))
End If
 
  'Calcul lait vendu par VL /jour
If Val(TrouveType(TxtLaittank)) * Val(TrouveType(TxtVltank)) * Val(TrouveType(TxtTraitetank)) * Val(TrouveType(TxtPrixlaitnet)) = 0 Then
     .Cells(1, 25) = 0
 Else: .Cells(1, 25) = (Val(TrouveType((TxtLaittank)) / Val(TrouveType(TxtVltank)) / (Val(TrouveType(TxtTraitetank)) / 2)) * Val(TrouveType(TxtPrixlaitnet))) / 1000
End If
 
 'Calcul cout ration / 1000 L
If Val(TrouveType(TxtLaittank)) * Val(TrouveType(TxtVltank)) * Val(TrouveType(TxtTraitetank)) * Val(TrouveType(TxtPrixlaitnet)) = 0 Then
.Cells(1, 26) = 0
 Else: .Cells(1, 26) = Val(TrouveType(Sheets("Fiche").Range("cout_ration_VL_j_Ration_Initiale") * 1000)) / (Val(TrouveType(TxtLaittank)) / Val(TrouveType(TxtVltank)) / (Val(TrouveType(TxtTraitetank)) / 2))
End If
 
 
 
End With
 
Unload Me
 
End Sub

Joël

Le classeur est conçu pour être dupliqué pour chaque client. La remise à zéro doit s'effectuer à chaque changement de campagne, 1 fois par an (au 01/04)
La remise à zéro du calcul de la remise à zéro à partir de la bonne donnée. Tel qu'il est il fait, la mise à zéro s'effectue quand la date de la colonne 1 passe en Avril. Mon souci est que dans chacun des classeur, il est crée une fiche environ tout les 2 mois, et surtout de façon plus ou moins régulière. Ce qui veut dire que sur un classeur, je peux avoir une fiche en janvier, une en mars, une en mai, dans ce cas, pas de remise à zéro. Sur une autre fiche, je peu avoir une en février, une début avril et une fin avril, et je me retrouve avec 2 remise à zéro.
Pour exemple dans la classeur joint, il faudrait que la remise à zéro soit faite au changement d'année dans la colonne 6.

08/11/2014, 16h01
Invité

Bonjour Docmarti ,
pour info trouvetype retourne une date "yyyy-mm-dd" pour obliger Excel à la reconvertir en "dd/mm/yyyy" donc cdate suffi!

en revanche il retourne les numérique en "2.25" ce qui nous évite de faire le choix entre Cdbl("2,25") et Val("2.25")
09/11/2014, 00h58
Docmarti

Citation:

Envoyé par rdurupt

Bonjour Docmarti ,
pour info trouvetype retourne une date "yyyy-mm-dd" pour obliger Excel à la reconvertir en "dd/mm/yyyy" donc cdate suffi!

en revanche il retourne les numérique en "2.25" ce qui nous évite de faire le choix entre Cdbl("2,25") et Val("2.25")

Bonjour Robert.

Oui j'avais très bien compris ton choix de retourner les dates en utilisant le format international aaaa-mm-jj. C'est une excellente idée car Excel reconnaît ce format de date, quel que soit le format de date dans le Panneau de configuration de Windows. Excellent.
De plus je viens de voir que si on envoie CDate(LaDate) vers une cellule au format Texte, on se retrouve avec une date au format américain (mm/jj/aaaa) dans la cellule, soit une inversion jour/mois. J'avais remarqué le problème inverse : qu'il y avait inversion jour/mois quand on envoie une date au format String vers une cellule au format Date ou Général. En tout cas avec ta technique qui consiste à utiliser le format international, il n'y a pas d'inversion. C'est donc supérieur à CDate.
09/11/2014, 22h03
joel50

Bonsoir
La solution à la question initiale ayant été trouvé, notamment avec excellente fonction TrouveType de Robert, une fois que l'on a bien compris son but et fonctionnement. Je clôture donc ce post, j'ai ré-ouvert celui concernant la remise à zéro de la moyenne mobile avec remise à zéro chaque année.
http://www.developpez.net/forums/d14...e/#post8025846
Merci de votre aide précieuse.
Joël

Voir 40 message(s) de cette discussion en une page