L
loulou
Guest
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
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