enlever la notion d'heure

[Arthur_martin53]

Voilà je me permets encore aujoud'hui de vous solliciter sur un problème.

j'ai une macro longue comme le bras qui me remplie des champs dans excel. Les informations sont tirées d'une base de données.

Ainsi dans excel je suis amené à comparer par la formule que voici (qu'un d'entre vous m'a déjà fait - encore merci)

=SI(ET(M3221<>"";N3221="";M3221>G$1);"Prévis.";SI(ET(M3221<>"";N3221 ="";M3221<G$1);"Retard";SI(ET(M3221="";N3221<>"");"lancé sans prév.";SI(ET(M3221<>"";N3221<>"";M3221<N3221);"Lancé retard";SI(ET(M3221<>"";N3221<>"";M3221>=N3221);"Lancé OK";"")))))

Mon souci c'est que la cellule M3221 diront nous et comparée avec la N3221.

La première saisie manuellement j'inscris 19-janv et de temps à autre dans l'autre j'ai 19-janv 10:00:00. La macro me ramène l'heure dans la deuxième cellule et donc dans ma comparaison j'ai une info qui me dit Retard. Hors moi je considère ça comme OK.

Avez vous une solution pour :

soit que la comparaison ne tienne pas compte de l'heure soit pour que la macro qui me ramène l'info de la deuxième cellules ne prenne pas l'heure.

Je file un bout de la macro et je pense que l'info est là :

Cells(i, 1).Value = SZ_date_expe(Cells(i, 7).Value)
Range("A" & i).NumberFormat = "d-mmm"

 

[Kotov]

Re : enlever la notion d'heure

Bonjour Arthur_Martin,

Voici un petit exemple à adapter à ton fichier en supposant que ta date avec l'heure est positionnée en A1 et qu'en B1, tu souhaites faire disparaitre l'heure :

Sub test()
Cells(1, 2) = Format(Cells(1, 1), "dd/mm/yyyy")
End Sub

A tester
A+

Kotov