Recherche un element...

[loulou]

bonsoir le forum

Comment selectionner dans la liste de codes de la colonne C, le code qui posse de la plus grande date (colonne B). s'il n'y a qu'un code il ne se passe rien

Sub AfficheInfoBase()
Dim PC, i As Integer
Dim MaDate As String, MonPC As Integer

PC = Sheets("CALENDRIER").Range("C2").End(xlDown).Row
MaDate = Sheets("CALENDRIER").Range("B2").End(xlDown).Row
For i = 1 To PC
MonPC = Cells(i, 3).Offset(1, 0)
MaDate = Cells(i, 3).Offset(1, -1)
If Cells(i, 3).Offset(Cells(i, 3).Rows.Count, 0) = MonPC Then
Sheets("FICHE1").Range("A33") = "Mise à jour"
Else
Sheets("FICHE1").Range("A33") = ""
End If
Next
End Sub

merci d'avance