Re : [VBA] Selectionner une cellule sous condition (date)
J'ai changer mon code qui fonctionne maintenant, et grace au tri décroissant j'ai la date la plus récente. (MERCI
)
Je vous montre mon code car mon souci c'est qu'il continu, il ne s'arrete pas à la derniere ligne de mon onglet nom. :
Sub test()
Dim i As String
Dim a As Integer
Dim x As Integer
i = 1
a = 1
Do
i = i + 1
Sheets("Nom").Activate
Sheets("Nom").Cells(i, 1).Select
Selection.Copy
Sheets("Synthèse").Activate
Sheets("Synthèse").Cells(2, 4).Select
x = Sheets("Synthèse").Cells.Find(What:=Sheets("nom").Cells(i, 3), After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False) _
.SelectSelection.EntireRow.Copy
Sheets("ce que je veux").Activate
Sheets("ce que je veux").Cells(a, 1).Select
ActiveSheet.Paste
Application.CutCopyMode = False
a = a + 1
Selection.Offset(1, 0).Select
Loop
End Sub