Calcul du nombre de jour entre 2 dates

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:

---

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:

---

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.
Pièce jointe 290598
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

Bonjour,
Comment ferais-tu sans VBA ?

Code:

---

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

---

soit en anglais

Code:

---

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

---

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

Code:

---

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:

---

1 2 3

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

---

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:

---

=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:

---

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:

---

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