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

C

chris

Guest

• 6 Décembre 2003

• #2

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

 

Vote positif 0 Vote négatif

T

Thierry

Guest

• 7 Décembre 2003

• #3

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

 

Vote positif 0 Vote négatif

M

michel

Guest

• 7 Décembre 2003

• #4

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

 

Vote positif 0 Vote négatif

T

Thierry

Guest

• 7 Décembre 2003

• #5

Bonjour Michel et le forum,

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

Thierry

 

Vote positif 0 Vote négatif