Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel recherche de la date la plus récente dans une liste de date

recherche de la date la plus récente dans une liste de date

8 réponses
Avatar
PEJ
Bonjour à tous,

J'ai un petit problème: j'ai une colonne de dates non triées et j'aimerai en
cliquant sur un bouton action que ma fenêtre se positionne sur ma date la
plus récente. Si il y deux date les plus récentes identiques j'aimerai qu'il
y ai une MSGBOX me signalant la présence de X date similaire.

Merci à tous de votre aide.
Signaler un problème avec ce contenu

8 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
Ardus Petus
Vite fait:

'-------------
Sub selMinDate()
Dim MyCol As Range
Dim MinDate As Date
Dim nb As Long
Set MyCol = Columns("A")
MinDate = Application.Min(MyCol)
nb = Application.CountIf(MyCol, MinDate)
If nb > 1 Then
MsgBox nb & " dates identiques: " & MinDate
Else
MyCol.Find(MinDate).Select
End If
End Sub
'----------

Cordialement,
--
AP

"PEJ" a écrit dans le message de news:

Bonjour à tous,

J'ai un petit problème: j'ai une colonne de dates non triées et j'aimerai
en
cliquant sur un bouton action que ma fenêtre se positionne sur ma date la
plus récente. Si il y deux date les plus récentes identiques j'aimerai
qu'il
y ai une MSGBOX me signalant la présence de X date similaire.

Merci à tous de votre aide.




Avatar
PEJ
Merci de ton aide. La fonction me trouve la date la plus vielle
(chronologiquement). Je voulais la plus récente alors j'ai remplacé Min par
Max mais ça ne fonctionne pas. Une idée?



Vite fait:

'-------------
Sub selMinDate()
Dim MyCol As Range
Dim MinDate As Date
Dim nb As Long
Set MyCol = Columns("A")
MinDate = Application.Min(MyCol)
nb = Application.CountIf(MyCol, MinDate)
If nb > 1 Then
MsgBox nb & " dates identiques: " & MinDate
Else
MyCol.Find(MinDate).Select
End If
End Sub
'----------

Cordialement,
--
AP

"PEJ" a écrit dans le message de news:

Bonjour à tous,

J'ai un petit problème: j'ai une colonne de dates non triées et j'aimerai
en
cliquant sur un bouton action que ma fenêtre se positionne sur ma date la
plus récente. Si il y deux date les plus récentes identiques j'aimerai
qu'il
y ai une MSGBOX me signalant la présence de X date similaire.

Merci à tous de votre aide.









Avatar
Ardus Petus
Trop vite lu, trop vite fait:
Ceci devrait marcher:

'--------------------
Sub selMaxDate()
Dim MyCol As Range
Dim MaxDate As Date
Dim nb As Long
Set MyCol = Columns("A")
MaxDate = Application.Max(MyCol)
nb = Application.CountIf(MyCol, MaxDate)
If nb > 1 Then
MsgBox nb & " dates identiques: " & MaxDate
Else
MyCol.Find(MaxDate).Select
End If
End Sub
'------------------------

--
AP

"PEJ" a écrit dans le message de news:

Merci de ton aide. La fonction me trouve la date la plus vielle
(chronologiquement). Je voulais la plus récente alors j'ai remplacé Min
par
Max mais ça ne fonctionne pas. Une idée?



Vite fait:

'-------------
Sub selMinDate()
Dim MyCol As Range
Dim MinDate As Date
Dim nb As Long
Set MyCol = Columns("A")
MinDate = Application.Min(MyCol)
nb = Application.CountIf(MyCol, MinDate)
If nb > 1 Then
MsgBox nb & " dates identiques: " & MinDate
Else
MyCol.Find(MinDate).Select
End If
End Sub
'----------

Cordialement,
--
AP

"PEJ" a écrit dans le message de news:

Bonjour à tous,

J'ai un petit problème: j'ai une colonne de dates non triées et
j'aimerai
en
cliquant sur un bouton action que ma fenêtre se positionne sur ma date
la
plus récente. Si il y deux date les plus récentes identiques j'aimerai
qu'il
y ai une MSGBOX me signalant la présence de X date similaire.

Merci à tous de votre aide.











Avatar
PEJ
Excuses moi, cela fonctionne bien, erreur de frappe.
merci beaucoup de ton aide et bonn fin de journée.



Vite fait:

'-------------
Sub selMinDate()
Dim MyCol As Range
Dim MinDate As Date
Dim nb As Long
Set MyCol = Columns("A")
MinDate = Application.Min(MyCol)
nb = Application.CountIf(MyCol, MinDate)
If nb > 1 Then
MsgBox nb & " dates identiques: " & MinDate
Else
MyCol.Find(MinDate).Select
End If
End Sub
'----------

Cordialement,
--
AP

"PEJ" a écrit dans le message de news:

Bonjour à tous,

J'ai un petit problème: j'ai une colonne de dates non triées et j'aimerai
en
cliquant sur un bouton action que ma fenêtre se positionne sur ma date la
plus récente. Si il y deux date les plus récentes identiques j'aimerai
qu'il
y ai une MSGBOX me signalant la présence de X date similaire.

Merci à tous de votre aide.









Avatar
anonymousA
Bonjour,

sans faire de boucle. En utilisant une plage nommée ( ici plg)
contenant tes dates

cells([Sumproduct(1*if(plg>=MAX(plg),row(plg),0))],[Sumproduct(1*if(plg> =MAX(plg),column(plg),0))]).select

A+
Avatar
Ardus Petus
Ca ne signale pas les doublons!

"anonymousA" a écrit dans le message de news:

Bonjour,

sans faire de boucle. En utilisant une plage nommée ( ici plg)
contenant tes dates

cells([Sumproduct(1*if(plg>=MAX(plg),row(plg),0))],[Sumproduct(1*if(plg>=MAX(plg),column(plg),0))]).select

A+
Avatar
anonymousA
Bonjour,

non et même ca ne marche pas avec des doublons !!. C'était juste pour
le fun.

A+
Avatar
AV
Alternative (plage nommée) :

Sub zzz()
If [countif(plg,max(plg))] > 1 Then
MsgBox "blabla"
Else: Cells([min(IF(plg=max(plg),row(plg),""))], [plg].Column).Select
End If
End Sub

AV