Discussion :

[Ventura76]

Bonjour à tous,

Encore une fois me revoilà à tendre la main.
J'ai cherché, j'ai essayé et je n'ai pas trouvé !

Je veux simplement faire une différence entre deux dates qui se trouvent dans deux colonnes différentes et ce calcul doit se faire sur toutes les lignes de ma feuille.
Disons que ça fonctionne presque,

Si j'utilise la formule ci-dessous directement dans la cellule, ça fonctionne.

Code :

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

=DATEDIF(AY2; AZ2; "m")

mais si je transpose en vba, le code étant celui-ci

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub Datediff()
Dim wbk1 As Workbook
Dim lastRow As Long
Set wbk1 = ActiveWorkbook 
    With wbk1.Sheets("Sheet1") 
    lastRow = .Range("BA" & .Rows.Count).End(xlUp).Row
       .Range("BB2:BB" & lastRow).Formula = _
       "=DATEDIF(AY2, AZ2, m)"
    End With
End Sub

La cellule affiche ceci

Code :

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

=DATEDIF(AY2; AZ2; m)

Probablement hune histoire de caractère spécial à utiliser dans mon code mais je trouve po !

Si quelqu'un à une suggestion de syntaxe, je prends ! parce que là, j'ai les yeux qui saignent.

Merci à tous

[Ventura76]

J'ai trouvé !!!

il faut inscrire:

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub Datediff()
Dim wbk1 As Workbook
Dim lastRow As Long
Set wbk1 = ActiveWorkbook 
    With wbk1.Sheets("Sheet1") 
    lastRow = .Range("BA" & .Rows.Count).End(xlUp).Row
       .Range("BB2:BB" & lastRow).Formula = _
       "=DATEDIF(AY2, AZ2, ""m"")"
    End With
End Sub

Si ça peut aider !

Bonne journée