Discussion :

[camzo]

Bonsoir tout le monde,

Aujourd'hui, je n'arrive pas à m'en sortir côté Calcul du nombre de jours entre 2 dates.

J'ai tenté tout ce que j'ai pu pour finalement revenir sur un exemple simple afin de voir si cela fonctionne correctement.

Je suis reparti du code proposé par Fring disponible ici.

J'ai pour cela consituté un petit tableau de 3 lignes comme suit:

DATE PREVUE	DATE ACTUELLE	NB JOURS
01/01/2017	03/07/2017
01/01/2017	03/12/2016
01/01/2017

Le but étant de remplir automatiquement la colonne C.

J'ai donc adapté le code en mettant ceci:

Code :

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

1
2
3
4
5
6
7
8
9
Sub NbJourEcart()
Dim i%
For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row
    If Cells(i, 2) = Empty Then  Cells(i, 3) = Empty
    Else
    Cells(i, 3) = Val(Format(CDate(Cells(i, 2)) - CDate(Cells(i, 1))))
    End If
Next
End Sub

Impec, ça fonctionne comme il faut. J'ai 183 pour la ligne 2, -29 pour la ligne 3 et rien pour la ligne 4.

J'ai ensuite transposé ce code dans mon fichier de production. Les colonnes sont différentes (la 1 devient la 8, la 2 devient la 9 et la 3 devient la 11) mais la logique est identique.

J'obtiens malheureusement un erreur Type Mismatch sur la ligne où le Val est appliqué.

Je me dis que cela vient des dates disponibles dans les colonnes 8 et 9, ce qui me semble être la piste à suivre car, j'ai un mélange de DD/MM/YYY et DD-Mon-YYYY
au format US (je ne parle pas uniquement d'interprétation d'affichage mais bien de valeur contenu dans le champ!). Cela vient de l'extraction du système contenant ces données, là je n'y peux rien.

J'ai du coup tenté de forcer ce contenu en voulant appliquer le format DD/MM/YYYY aux colonnes 8 et 9. Certains posts sur le net parle de cela:

Code :

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

1
2
3
4
    Dim cellule As Range
    For Each cellule In Range(Cells(LastRow, 8), Cells(LastRow, 9))
        cellule.Value = Format(cellule.Value, "dd/mm/yyyy")
    Next cellule

Je dois avouer que cela ne m'a pas aidé car l'erreur surgit toujours (toujours sous une forme Custom côté format). A ce demander s'il ne faudrait pas remplacer -Jan- par /01/, -Feb- par /02/, etc.

J'ai checké mes paramètres régionauxet je ne vois rien de spécial.

Je suis également aller consulter la page de Didier Gonard mais je n'ai pas réussi à faire le pont avec mon besoin.

Si quelqu'un a une piste ou voit un pb de code, il ou elle est le bienvenu.

Cordialement,
Camille

[Philippe Tulliez]

Bonjour,
Comment ferais-tu sans VBA ?

Code :

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

=SI(B2;B2-A2;"")

soit en anglais

Code :

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

=IF(B2,B2-A2,"")

et donc pour placer cette formule dans les celules C2:C100

Code :

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

 Range("c2:C100").Formula = "=IF(B2,B2-A2,"""")"

et pour êre plus précis si la formule doit être placée dans la feuille nommée Feui1 du classeur où se trouve le code VBA

Code :

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

1
2
3
 With ThisWorkbook.Worksheets("Feuil1")
 .Range("c2:C100").Formula = "=IF(B2,B2-A2,"""")"
 End With

[camzo]

Bonjour Philippe,

Merci pour cette approche. Je suis donc allé dans ce sens et cela m'a permis de m'en sortir!

Pour tout te dire, cela n'a pas marché car la formule n'était pas appliquée. Je veux dire par là qu'au lieu d'avoir le résultat de la formule, j'avais la formule en elle-même dans la cellule. Bref, elle ne s'appliquait pas.

Cela m'a poussé à appliquer à nouveau ma formule Excel dans la cellule car j'avais alors de sérieux doute sur le contenu sur lequel j'effectue ce travail:

Code :

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

=IF(I2<>"";H2-I2;"")

Et bien cela ne fonctionnait pas! J'avais un #VALUE! en retour!

Conclusion: les dates n'étaient pas du tout interprétées comme telles. Retour à la case départ car c'est bien ce qui me gênait au début.

J'ai alors trouvé une astuce à la noix pour que mes dates présentes dans les colonnes H et I soient au format JJ/MM/AAAA au lieu de JJ-Moi-AAAA. Les puristes vont encore une fois sauter au plafond car mon code est supra-lourd. J'ai en effet dupliqué le bout de code suivant 12 fois pour chaque mois.

Code :

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

1
2
3
    ActiveSheet.Columns("H:I").Replace What:="-Dec-", Replacement:="/12/", LookAt:=xlPart, _
            SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
            ReplaceFormat:=False

J'ai alors à nouveau appliqué le code fourni dans mon premier message:

Code :

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

1
2
3
4
5
6
7
For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row
   If Cells(i, 9) = Empty Then
      Cells(i, 11) = Empty
   Else
      Cells(i, 11) = Val(Format(CDate(Cells(i, 9)) - CDate(Cells(i, 8))))
    End If
Next

Et bien c'est good, cela fonctionne. Aussi bien en négatif qu'en positif.

Il me reste à trouver une solution pour optimiser le code au niveau des 12 remplacements cités ci-dessus et de discuter avec l'équipe Système pour clarifier le format des dates en sortie d'extraction.

Je vous souhaite un bon week-end à toutes et à tous !

Cordialement,
Camzo