Recherche de la date la plus récente dans plusieurs feuilles

[Thierry]

Bonsoir le forum,

J'ai une dizaine de feuilles dans mon application et dans chacune d'entre elles la colonne A est réservé aux dates, et j'aimerais a l'aide d'une macro écrire dans un userform la date la plus récentes toutes feuilles confondues.

Merci a tous.

 

[chris]

Bonjour
Hors macro on obtient la date la plus récente par
=max(feuil1:feuil12!A:A)

remplacer feuil1 et feuil12 par les noms de la 1ère et de la dernière feuille.

Chris

 

[Thierry]

Merci Chris,

Tu ne connaitrais pas l'équivalent macro, passer par les feuilles elles-mêmes ne m'arrange pas vraimment.

Dans un premier ton système fonctionne, merci.

thierry

 

[michel]

bonsoir Thierry , bonsoir Chris

j'espere que la macro ci dessous pourra t'aider

Private Sub UserForm_Initialize()
Dim i As Byte
Dim Val As Date
TextBox1 = 0
For i = 1 To Sheets.Count
Val = Application.Max(Sheets(i).Columns(1))
If Val > TextBox1 Then TextBox1 = Val
Next
End Sub

bonne soirée
michel

 

[Thierry]

Bonjour Michel et le forum,

Merci michel c'est tout a fait ce que je cherchais. ça marche au poil !

Thierry