Controle du format date dans une cellule

Bonjour

Je voudrais mettre une condition ds ma macro pour controler la valeur de la cellule.

J'ai des cellules qui ont une valeur de ce type 02/02/2013 09:12:53 et d'autres celle ci 12/02/2013,

si ma cellule a cette valeur 02/02/201309:12:53 alors

Code:

---

Debut = Left(Worksheets("BASE").Range("M" & i).Value, Len(Worksheets("BASE").Range("M" & i).Value) - 9)

---

pour supprimer les heures

si ma cellule a cette valeur 02/02/2013 alors

Code:

---

Debut = Worksheets("BASE").Range("M" & i).Value

---

Je n'ai pas trouvé ds le fofo

Merci d'avance pour votre aide

Si seulement pour afficher les Dates sans les heures

Code:

---

Worksheets("BASE").Range("M:M").NumberFormat = "dd/mm/yyyy"

---

Si par contre tu veux supprimer les heures, il suffit de prendre la partie entière de tes dates

Code:

---

1 2 3 4 5 6

Dim c As Range   For Each c In Worksheets("BASE").Range("M2:M200") If IsDate(c) Then c = CLng(c) Next c Worksheets("BASE").Range("M:M").NumberFormat = "dd/mm/yyyy"

---

EDIT

Fais

Code:

---

Dim Debut As Long

---

Tu auras dans début ta date sans les heures

je vais definir ma variable comme tu me le conseille, je fais l'essai et je te dirais si c'est ok

Code:

---

1 2 3 4 5 6 7 8 9 10

Dim Date1 as String Dim Date3 as Date   date1 = Worksheets("IMPORT").Cells(i, 13).Value 'debut planifie If IsDate(date1) Then 'controle si c'est une date date1 = Left(date1, Len(date1) - 9) 'suppression des heures date3 = date1 'conversion en format date Worksheets("IMPORT2").Range("M" & j) = date3 End If

---

Comme ceci sa marche, les autres manieres arrondissaient les dates ou pas ce qui me poser pb ds mon graphe de Gantt


Mais il y une exception, c'est lorsque ma cellule possede une valeur de ce type 18/02/2013 00:00:00, ce qui me donne une mauvaise date pour la suite.

Avez vous une petite astuce

Merci d'avance

Bonjour,

Essaie avec

Code:

---

1 2 3 4 5 6 7 8 9 10

Sub test() Dim Date1 Dim Date3 As Date Date1 = Worksheets("IMPORT").Cells(i, 13).Value 'debut planifie If IsDate(Date1) Then 'controle si c'est une date Date1 = Int(CDbl(Date1)) 'suppression des heures Date3 = CDate(Date1) 'conversion en format date Worksheets("IMPORT2").Range("M" & j) = Date3 End If End Sub

---

Cordialement.

merci gFZT82 pour ta solution, l'essayer c'est l'adopter

Merci de votre aide