Nombre jours entre 2 dates (Format de date VBA: Now() )

  • Initiateur de la discussion Initiateur de la discussion fifou
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

fifou

XLDnaute Nouveau
Bonjour à tous,

L'idée de ma boucle est de connaitre le nombre de jours entre 2 dates.
J'ai un petit soucis avec cette boucle, et un message d'erreur (message d'erreur : erreur d'exécution 13
incompatibilité de type) bloque au niveau de la ligne now(). Je pense que le problème vient du format de Now(), mais je ne trouve pas la solution :/.

Si quelqu'un à une idée ça serait super!

Code:
For i = ActiveCell.Row To 5 Step -1

If IsDate(Cells(i, 6)) Then
Cells(i, 19).Value = Now() - Cells(i, 6).Value
ElseIf IsEmpty(Cells(i, 6)) Then Cells(i, 19) = ""

End If

Next

A+
 
Re : Nombre jours entre 2 dates (Format de date VBA: Now() )

Bonjour

Le code suivant permet de calculer le nombre de jours entre deux dates.
Code:
DateDiff(interval, date1, date2[, firstdayofweek[, firstweekofyear]])
Il faut lire la documentation pour bien configurer la fonction.


JP
 
Re : Nombre jours entre 2 dates (Format de date VBA: Now() )

Bonjour fifou, jp14

a priori la date en colonne F n'est pas une date mais du texte, même si IsDate(...) renvoie True.

Essayer en 'forçant' avec CDate()
Code:
Cells(i, 19).Value = Now() - CDate(Cells(i, 6).Value)

A+
 
Re : Nombre jours entre 2 dates (Format de date VBA: Now() )

Bonjour à tous,

Essaye avec Now sans les ()

A+ à tous

Edition : Avec les dates en A2 et suivantes

VB:
Sub Essai()
    Dim DerL&
    DerL = Range("A65000").End(xlUp).Row
    Range("B2:C" & DerL).ClearContents
    For i = 1 To DerL
        If IsDate(Cells(i, 1)) Then
            Cells(i, 2) = Int(Date - Cells(i, 1))
            Cells(i, 3) = Int(DateDiff("d", Cells(i, 1), Date, 2, 2))
        Else
            Cells(i, 2) = ""
        End If
    Next
End Sub

Hello mon Pierre
 
Dernière édition:
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
4
Affichages
177
  • Question Question
Microsoft 365 Export données
Réponses
4
Affichages
649
Réponses
1
Affichages
384
Retour