Date stockée dans une boucle

Fermé

Kuartz Messages postés 850 Date d'inscription vendredi 13 février 2015 Statut Membre Dernière intervention 15 février 2019 - 27 nov. 2015 à 17:42
Kuartz Messages postés 850 Date d'inscription vendredi 13 février 2015 Statut Membre Dernière intervention 15 février 2019 - 30 nov. 2015 à 08:53

Bonjour,

Voici mon code :

Sub TEST()

Dim DL As Long, Date_S() As Date

Code_Client = InputBox("Code client")

Montant_Encaissement = InputBox("Montant encaissement")

For i = 1 To DL

If Range("C" & i) = Code_Client Then
    Date_S(i) = Range("A" & i).Value
End If

Next i




End Sub

Mais voilà, je bloque. Ok, mes dates ont bien été stockées dans la table Date(), mais je voudrais qu'il me dise laquelle de ces dates est la plus ancienne et qu'il me dise donc aussi à quelle ligne elle se trouve (quelle i).

Merci pour vos réponses.

Cordialement.

A voir également:

2 réponses

Réponse 1 / 2

cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 728
27 nov. 2015 à 20:05

Bonjour,

Une piste, on met les cellules Standard et ensuite en Date:

Dim Col As Range, c As Range
Dim valeur As String
For Each Col In Range("C1:C26").Columns 'a adapter
  For Each c In Col.Cells
  c.Select
  Selection.NumberFormat = "General"
valeur = Application.WorksheetFunction.Large(Col, 1)
If c.Value = valeur Then
MsgBox c.Row
End If
Selection.NumberFormat = "m/d/yyyy"
 Next
 Next

cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 728
28 nov. 2015 à 07:49

Comme tu as pu t'en apercevoir, c'est la date la plus récente qui est recherchée.
Pour la plus ancienne c'est ça:

valeur = Application.WorksheetFunction.Small(Col, 1)

Bon WE

Réponse 2 / 2

michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
28 nov. 2015 à 09:23

Bonjour
ligne de la date mini sans macro avec une liste de validation (pas de mauvaise saisie du nom) et une formule matricielle

https://www.cjoint.com/c/EKCiwsJqCsS

Kuartz Messages postés 850 Date d'inscription vendredi 13 février 2015 Statut Membre Dernière intervention 15 février 2019 61
30 nov. 2015 à 08:53

Merci beaucoup pour toutes vos propositions. Je vais fortement m'en inspirer. L'idée de michel_m me séduit beaucoup, dans la mesure où l'erreur n'est pas possible. Je vais réfléchir.

Merci beaucoup.

Cordialement.

Discussions similaires

Mon pc s'allume et s'éteint en boucle

Prélèvement JM Jacquie et Michel date.

Problème Whatsapp - "La date est incorrecte"

Pix

je cherche la date et le lieu de naissance d une personne

Discussions similaires

Newsletters