Calculer nombre de jours entre deux dates
Fermé
campagnie
Messages postés
11
Date d'inscription
mardi 26 avril 2016
Statut
Membre
Dernière intervention
16 février 2017
-
16 févr. 2017 à 16:24
ThauTheme Messages postés 1442 Date d'inscription mardi 21 octobre 2014 Statut Membre Dernière intervention 29 juillet 2022 - 16 févr. 2017 à 17:35
ThauTheme Messages postés 1442 Date d'inscription mardi 21 octobre 2014 Statut Membre Dernière intervention 29 juillet 2022 - 16 févr. 2017 à 17:35
A voir également:
- Calculer nombre de jours entre deux dates
- Deux comptes whatsapp - Guide
- Itinéraire google map entre deux adresses - Guide
- Calculer une moyenne sur excel - Guide
- Clémence souhaite faire calculer automatiquement les prix de 30 produits dans trois devises. elle a déjà saisi une formule de calcul pour le tarif du premier produit dans la première devise. corrigez sa formule afin que recopiée vers le bas puis vers la droite, elle remplisse correctement tout le tableau. - Forum Excel
- Nombre de semaines entre deux dates ✓ - Forum Programmation
1 réponse
ThauTheme
Messages postés
1442
Date d'inscription
mardi 21 octobre 2014
Statut
Membre
Dernière intervention
29 juillet 2022
160
16 févr. 2017 à 17:35
16 févr. 2017 à 17:35
Bonjour la Compagnie, bonjour le forum,
Par formule je ne sais pas faire. je n'ai pas le temps de commenter le code. Essaie comme ça :
Par formule je ne sais pas faire. je n'ai pas le temps de commenter le code. Essaie comme ça :
Sub Macro1()
Dim O As Worksheet
Dim TV As Variant
Dim I As Integer
Dim D1 As Date
Dim D2 As Date
Set O = Worksheets("Feuil1") 'à adapter
TV = O.Range("A1").CurrentRegion
For I = 1 To UBound(TV, 1)
On Error Resume Next
D1 = Split(TV(I, 1), " - ")(0)
D2 = Split(TV(I, 1), " - ")(1)
If Err <> 0 Then
D1 = CDate(TV(I, 1))
D2 = CDate(TV(I, 1))
End If
On Error GoTo 0
O.Cells(I, 2).Value = (D2 - D1) + 1
Next I
End Sub
