Format DateDiff avec Boucle

Bonjour,

Je chercher a calculer la différence de date entre deux colonnes.
J'y arrive en direct sans boucle mais dès que je mets la boucle ça ne fonctionne plus.

Voici mon code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Sub Test() Dim i As Integer With Sheets("Base")   ' Calcul des traitements de traitement globaux i = 1 While Cells(1 + i, 1) <> "" If Cells(1 + i, 44) = "" Then Else: Cells(1 + i, 56) = DateDiff("d", Cells(1 + i, 26).Value, Cells(1 + i, 44).Value) End If i = 1 + i Wend   End With End Sub

---

Merci

Les dates sont enregistrer dans Excel en nombre de jours.
Donc, DateDiff() n'est pas vraiment utile avec le paramètre "d".

Ton If est trop compliqué.

Tu as oublié de mette un "." devant les références de cellules pour qu'elles tiennent compte du With (ce qui est sans doute la raison du dysfonctionnement).

Essaye ça :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Sub Test() Dim i As Long   With Sheets("Base") i = 1 While Cells(1 + i, 1) <> "" If Cells(1 + i, 44) <> "" Then .Cells(1 + i, 56) = Int(.Cells(1 + i, 26).Value - .Cells(1 + i, 44).Value) i = 1 + i Wend End With End Sub

---

Bonjour,

Merci pour ton retour.

Cependant, j'obtiens un message d'erreur "Incompatibilité de type" et me surligne la partie du code après le then


Je vois pas qu'elle est l'erreur dans cette ligne ...

Citation:

---

Envoyé par Hercule55

Je vois pas qu'elle est l'erreur dans cette ligne ...

---

Sans doute parce que l'erreur n'est pas dans la ligne de code mais dans le contenu des cellules.

C'est bon ça marche en effet !

La date la plus récente était en premier ce qui faisait un différence négative qui n'était pas prise en compte j'imagine !



Merci !