Discussion :

[Hercule55]

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 :

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

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

[Menhir]

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 :

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

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

[Hercule55]

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 ...

[Menhir]

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.

[Hercule55]

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 !