Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

Dates multiples dans une cellule

1 réponse
Avatar
FA
Bonjour,

je voudrais mettre plusieurs dates dans une cellule du genre 20/5/2006 -
25/5/2006 - 02/07/2006
mais que seulement la dernière soit prise en compte si je fais un trie
parmis une colonne de dates qui auront soit 1 ou 2 ou 3 dates...

Merci

1 réponse

Avatar
JB
Bonsoir,

http://cjoint.com/?dvtwehlUYY

Les dates sont en colonne B:

Sub essai()
[C:C].Insert
For Each c In Range("B2", [B65000].End(xlUp))
If IsDate(c) Then
c.Offset(0, 1) = c
Else
c.Offset(0, 1) = CDate(Right(c, 10))
End If
Next c
[A1:C1000].Sort Key1:=[C2], Order1:=xlAscending, Header:=xlGuess
[C:C].Delete
End Sub

JB
http://boisgontierjacques.free.fr/


On 21 mar, 18:42, "FA" wrote:
Bonjour,

je voudrais mettre plusieurs dates dans une cellule du genre 20/5/2006 -
25/5/2006 - 02/07/2006
mais que seulement la dernière soit prise en compte si je fais un trie
parmis une colonne de dates qui auront soit 1 ou 2 ou 3 dates...

Merci