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