Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Dates manquantes

Dates manquantes

7 réponses
Avatar
Titus
Bonsoir
j'ai un tableau avec des dates en A
je souhaite qu'une proc me donne les dates manquantes antérieure à la date
du jour sans les W.E.
Merci beaucoup
Titus
Signaler un problème avec ce contenu

7 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Ricky [MVP]
Bonjour *Titus* (et tous les lecteurs)
| Bonsoir
| j'ai un tableau avec des dates en A
| je souhaite qu'une proc me donne les dates manquantes antérieure à la
| date du jour sans les W.E.
| Merci beaucoup
| Titus

A recopier après la dernière date

=SI((Workday(Axx;1)<AUJOURDHUI());Workday(Axx;1);"")

--
Ricky [MVP] Visitez les faq....
http://www.faqoe.com http://faq.ms.word.free.fr
http://dj.joss.free.fr/faq.htm http://www.excelabo.net
http://support.microsoft.com/directory/worldwide/fr/newsgroup/regles.htm
Avatar
Titus
Merci Ricky,
n'est-il pas possible d'obtenir la date manquante dans un msgbox ?
Titus

"Ricky [MVP]" a écrit dans le message de
news:
Bonjour *Titus* (et tous les lecteurs)
| Bonsoir
| j'ai un tableau avec des dates en A
| je souhaite qu'une proc me donne les dates manquantes antérieure à la
| date du jour sans les W.E.
| Merci beaucoup
| Titus

A recopier après la dernière date

=SI((Workday(Axx;1)<AUJOURDHUI());Workday(Axx;1);"")

--
Ricky [MVP] Visitez les faq....
http://www.faqoe.com http://faq.ms.word.free.fr
http://dj.joss.free.fr/faq.htm http://www.excelabo.net
http://support.microsoft.com/directory/worldwide/fr/newsgroup/regles.htm



Avatar
Titus
Désolé, ta formule ne fonctionne pas
Titus

"Ricky [MVP]" a écrit dans le message de
news:
Bonjour *Titus* (et tous les lecteurs)
| Bonsoir
| j'ai un tableau avec des dates en A
| je souhaite qu'une proc me donne les dates manquantes antérieure à la
| date du jour sans les W.E.
| Merci beaucoup
| Titus

A recopier après la dernière date

=SI((Workday(Axx;1)<AUJOURDHUI());Workday(Axx;1);"")

--
Ricky [MVP] Visitez les faq....
http://www.faqoe.com http://faq.ms.word.free.fr
http://dj.joss.free.fr/faq.htm http://www.excelabo.net
http://support.microsoft.com/directory/worldwide/fr/newsgroup/regles.htm



Avatar
Daniel.M
Salut Titus,

Ta borne supérieure est HIER.
Quelle est ta borne inférieure? En supposant que ta borne inférieure est la plus
petite date dans la colonne A et que tes données commencent en A1, la proc
suivante écrire en colonne B (libre et vide initialement) les dates manquantes.

Sub DatesAntérieuresAbsentes()
Dim LeMin As Long, LeSup As Long, f As String, V As Variant

With Range("A1").CurrentRegion.Resize(, 1)
LeMin = CLng(Application.Min(.Cells))
LeSup = CLng(Date - 1)
f = "=IF(ISNA(MATCH(ROW(" & LeMin & ":" & LeSup & ")," & _
.Address & ",0)),ROW(" & LeMin & ":" & LeSup & "),"""")"
V = Evaluate(f)
With .Resize(UBound(V) - LBound(V) + 1, 1).Offset(0, 1)
.Value = V
.NumberFormat = "yyyy/mm/dd"
.Sort key1:=.Cells(1, 1), order1:=xlAscending, header:=xlNo
End With
End With
End Sub


Salutations,

Daniel M.

"Titus" wrote in message
news:
Bonsoir
j'ai un tableau avec des dates en A
je souhaite qu'une proc me donne les dates manquantes antérieure à la date
du jour sans les W.E.
Merci beaucoup
Titus




Avatar
Titus
Bravo, la proc est vraiment super et fonctionne très très bien
Merci beaucoup Daniel
Titus



"Daniel.M" a écrit dans le message de
news:
Salut Titus,

Ta borne supérieure est HIER.
Quelle est ta borne inférieure? En supposant que ta borne inférieure est
la plus

petite date dans la colonne A et que tes données commencent en A1, la proc
suivante écrire en colonne B (libre et vide initialement) les dates
manquantes.


Sub DatesAntérieuresAbsentes()
Dim LeMin As Long, LeSup As Long, f As String, V As Variant

With Range("A1").CurrentRegion.Resize(, 1)
LeMin = CLng(Application.Min(.Cells))
LeSup = CLng(Date - 1)
f = "=IF(ISNA(MATCH(ROW(" & LeMin & ":" & LeSup & ")," & _
.Address & ",0)),ROW(" & LeMin & ":" & LeSup & "),"""")"
V = Evaluate(f)
With .Resize(UBound(V) - LBound(V) + 1, 1).Offset(0, 1)
.Value = V
.NumberFormat = "yyyy/mm/dd"
.Sort key1:=.Cells(1, 1), order1:=xlAscending, header:=xlNo
End With
End With
End Sub


Salutations,

Daniel M.

"Titus" wrote in message
news:
Bonsoir
j'ai un tableau avec des dates en A
je souhaite qu'une proc me donne les dates manquantes antérieure à la
date


du jour sans les W.E.
Merci beaucoup
Titus








Avatar
Daniel.M
Titus,

Merci pour le feedback.
Ma procédure ne mettait pas de côté les jours de fin de semaine.
Celle-ci le fera.

Sub DatesAntérieuresAbsentes()
Dim LeMin As Long, LeSup As Long, f As String, V As Variant

With Range("A1").CurrentRegion.Resize(, 1)
LeMin = CLng(Application.Min(.Cells))
LeSup = CLng(Date - 1)
f = "=IF(ISNA(MATCH(ROW(" & LeMin & ":" & LeSup & ")," & _
.Address & ",0))*(WEEKDAY(ROW(" & LeMin & ":" & LeSup & _
"),2)<6),ROW(" & LeMin & ":" & LeSup & "),"""")"
V = Evaluate(f)
With .Resize(UBound(V) - LBound(V) + 1, 1).Offset(0, 1)
.Value = V
.NumberFormat = "yyyy/mm/dd"
.Sort key1:=.Cells(1, 1), order1:=xlAscending, header:=xlNo
End With
End With
End Sub

Salutations,

Daniel M.

"Titus" wrote in message
news:
Bravo, la proc est vraiment super et fonctionne très très bien
Merci beaucoup Daniel
Titus




Avatar
Titus
Encore merci Daniel, cela ne doit pas être facile d'être un génie au
quotidien !
Titus

"Daniel.M" a écrit dans le message de
news:
Titus,

Merci pour le feedback.
Ma procédure ne mettait pas de côté les jours de fin de semaine.
Celle-ci le fera.

Sub DatesAntérieuresAbsentes()
Dim LeMin As Long, LeSup As Long, f As String, V As Variant

With Range("A1").CurrentRegion.Resize(, 1)
LeMin = CLng(Application.Min(.Cells))
LeSup = CLng(Date - 1)
f = "=IF(ISNA(MATCH(ROW(" & LeMin & ":" & LeSup & ")," & _
.Address & ",0))*(WEEKDAY(ROW(" & LeMin & ":" & LeSup & _
"),2)<6),ROW(" & LeMin & ":" & LeSup & "),"""")"
V = Evaluate(f)
With .Resize(UBound(V) - LBound(V) + 1, 1).Offset(0, 1)
.Value = V
.NumberFormat = "yyyy/mm/dd"
.Sort key1:=.Cells(1, 1), order1:=xlAscending, header:=xlNo
End With
End With
End Sub

Salutations,

Daniel M.

"Titus" wrote in message
news:
Bravo, la proc est vraiment super et fonctionne très très bien
Merci beaucoup Daniel
Titus