J'ai construit une macro dont voici le code, mais aucune formule
Sub trouver_mois()
For i = 4 To Cells(Rows.Count, 3).End(xlUp).Row
If Cells(i, 3) <> "" Then
MaDate_entrée = Cells(i, 3)
monMois_entrée = Month(MaDate_entrée)
Cells(i, 6) = monMois_entrée
End If
If Cells(i, 4) <> "" Then
MaDate_sortie = Cells(i, 4)
monMois_sortie = Month(MaDate_sortie)
Cells(i, 7) = monMois_sortie
End If
Next i
For i = 4 To Cells(Rows.Count, 3).End(xlUp).Row
If Cells(i, 6) <= "5" And Cells(i, 7) >= "5" Then
Sheets("MAI25").Cells(i, 1) = Sheets("Source").Cells(i, 1)
Sheets("MAI25").Cells(i, 2) = Sheets("Source").Cells(i, 2)
Sheets("MAI25").Cells(i, 3) = Sheets("Source").Cells(i, 3)
Sheets("MAI25").Cells(i, 4) = Sheets("Source").Cells(i, 4)
End If
Next i
End Sub
Cette macro peut être allégée si on désire ne pas afficher les cellules en "F" et "G"
Petite remarque : dans mon code je n'ai pas exigé que la feuille active soit "Source", donc faites le manuellemnt avant d'utiliser la macro