Discussion :

[majothi]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Je n'ai pas trouvé ds le fofo

Merci d'avance pour votre aide

[mercatog]

Si seulement pour afficher les Dates sans les heures

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

Dim Debut As Long

Tu auras dans début ta date sans les heures

[majothi]

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

[majothi]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[gFZT82]

Bonjour,

Essaie avec

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[majothi]

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

Merci de votre aide