Soustraction de deux colonnes avec tab.

Re : Soustraction de deux colonnes avec tab.

Salut khroutchev,

Essaye comme ça (non testé) :

Sub test4()
Dim LastLig As Long, i As Long
Dim Tb
Application.ScreenUpdating = False
With Worksheets(1)
LastLig = .Cells(.Rows.Count, 1).End(xlUp).Row
Tb = .Range("AE1:AF" & LastLig)
For i = 2 To LastLig
.Range("Z" & i) = Val(Tb(i, 1)) - Val(Tb(i, 2))
Next i
End With
End Sub


Je me pose une question, pourquoi passer par du code alors qu'Excel fait très bien ces manip en deux clics?

Re : Soustraction de deux colonnes avec tab.

bonjour à tous,

Outre le +1 dans Tb(i, 1) = Val(Tb(i, 4)) - Val(Tb(i, 3)) + 1 qui parait curieux, le format "standard" (?) de la forme xx/xx/xxxx rappelle davantage celui d'une date , ce qui pourrait expliquer les résultats incorrects.

A+ avec quelques précisions sur le contenu exact des colonnes

Re : Soustraction de deux colonnes avec tab.

Sub test4()
Dim LastLig As Long, i As Long
Dim Tb
Application.ScreenUpdating = False
With Worksheets(1)
LastLig = .Cells(.Rows.Count, 1).End(xlUp).Row
For i = 2 To LastLig
If IsDate(Cells(i, 32)) And IsDate(Cells(i, 31)) Then Cells(i, 29) = DateDiff("d", Cells(i, 31), Cells(i, 32)) + 1
Next i
End With
End Sub