Discussion :

[khroutchev]

Bonjour,
je veux tout simplement effectuer une différence entre les colonnes AE et AF. Et repertorier le résultat de la différence dans le colonne Z.
Je précise que les cellules sont au format standart et de la forme suivante : xx/xx/xxxx.
Mon code n'effectue pas correctement la différence entre ces deux colonnes. Est-ce un problème de format ?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
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("AC1:AF" & LastLig)
    For i = 2 To LastLig
        Tb(i, 1) = Val(Tb(i, 4)) - Val(Tb(i, 3)) + 1
    Next i
    .Range("AC1:AF" & LastLig) = Tb
End With
End Sub

Merci d'avance !

[issoram]

Bonjour,

Mon code n'effectue pas correctement la différence entre ces deux colonnes

A quel niveau? C'est le code qui plante ou le résultat qui n'est pas celui attendu?

[khroutchev]

Le résultat attendu n'est pas le bon. J'obtiens des valeurs non-cohérentes lorsque je refais le calcul à la main et compare. Sinon le programme tourne bien.

[casefayere]

Bonjour,

de la forme suivante : xx/xx/xxxx.

Si ce sont des dates, essayes comme ça

Code :

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

Tb(i, 1) = CDate(Tb(i, 4)) - Cdate(Tb(i, 3)) + 1

[khroutchev]

Nop, ça ne marche pas. Le programme plante, je pense qu'il faudrait ajouter une ligne qui change le format de cellule (standart => date). Et ensuite appliquer ton bout de code ou utiliser DATDIFF.

[nibledispo]

bonjour,

le code marche très bien.
il n'y a pas à ce soucier du format des cellule ou sont inscrites les dates. le seul fait d'écrire 01/01/12 fait passer la cellule au format date.

quant au résultat : il est en jours sur une cellule au format standard

ci-joint le code que j'ai adapté pour ne pas faire un essai en ae af

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
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("A1:b" & LastLig)
    For i = 2 To LastLig
        Cells(i, 3) = Tb(i, 2) - Tb(i, 1) + 1
    Next i
    .Range("A1:b" & LastLig) = Tb
End With
End Sub

cordialement.

[khroutchev]

Il n'y aucun changements par rapport au code précédent .
Si ce n'est que tu as enlevé le value() et adapté le code aux colonnes qui correspondent aux données de ton fichier. En l'occurence, les miennes ne se trouvent pas en A et B. Pour moi le code tourne bien également mais les résultats ne sont pas corrects. Ils sont entiers mais en re-faisant le calcul à la main je n'obtiens pas la bon résultat de la soustraction des deux sommes du nombre de jours.

En fait le résultat ne prend pas en compte le mois. C'est à dire que si l'on a :
22/07/2011 - 20/04/2011 = 2.

[khroutchev]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
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

MERCI TOUT DE MEME !

[nibledispo]

Bonjour,

Avec le code que je t'ai remis et les valeurs particulières que tu soumets (20/04/11 et 22/07/11), je trouve 94 jours et non pas 2.
le code final que tu retiens donne le même résultat.
Ma version Excel est 2010.

Bizarre, bizarre !

cordialement

[khroutchev]

Oui sans doute une différence qui se fait au niveau de la version.
Pour ma part, je joue sur 2003.