Discussion :

[scoubida42]

Bonjour,

Je débute actuellement en vba même si j'ai des connaissances dans des langages tels que java par exemple.
Je m'arrache les cheveux sur un truc qui je suis sur est très simple.

J'ai une colonne avec un ensemble de date au format suivant par exemple : 24/02/2016 14:00:00
Je veux extraire la date et supprimer l'heure et recopier le tout dans la même cellule que celle où la date a été prise

Voici mon code à l'heure actuelle :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
Sub new_date()
    Dim N As Long, r As Range
    Dim LDate As Date
    Dim LDateNew As Date
 
    N = Cells(Rows.Count, "A").End(xlUp).Row
    For i = 3 To N
 
        LDateNew = Format(Cells(i, "A"), "dd/mm/yyyy")
        Cells(i, "B").Value = LDateNew
 
    Next i
 
End Sub

Si je rajoute un Debug.Print, j'ai bien le bon résultat affiché dans la console 24/02/2016
Mais par contre, là, impossible de remettre ma date dans une cellule Excel au bon format.

J'ai la date qui est conservée mais l'heure n'est pas tronquée, elle est juste passer à 00:00:00

Auriez-vous des idées à me donner pour résoudre ce problème et ainsi avoir 24/02/2016 dans ma cellule excel ?

Merci par avance,

[unparia]

Bonjour
Les cellules d'accueil sont à formater en "jj/mm/aaaa"

[scoubida42]

Merci de la réponse,

Je pensais que c'était quelque chose dans le style ci-dessous qu'il fallait faire mais ça ne marche pas.
Faut-il utiliser autre chose ?

Par contre, c'est hyper lent et ça ne me rends pas la main. Est-ce normal ?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Sub Bouton_Date()
    Dim N As Long, r As Range
    Dim LDateNew As Date
 
    N = Sheets("Extract Mantis").Cells(Rows.Count, "J").End(xlUp).Row
    For i = 2 To N
        LDateNew = Format(Cells(i, "J"), "dd/mm/yyyy")
        Cells(i, "J").Value = Format(Cells(i, "J").Value, "dd/mm/yyyy")
        Cells(i, "J").Value = LDateNew
    Next i
End Sub

[unparia]

citation (bis repetita) :

Les cellules d'accueil sont à formater en "jj/mm/aaaa"

[Philippe Tulliez]

Bonjour,

Par contre, c'est hyper lent et ça ne me rends pas la main. Est-ce normal ?

Pas le temps de vérifier ta procédure mais l n'y a pas de raison d'utiliser une boucle pour écrire dans plusieurs cellules.
Exemple

Code :

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

Range("B2:B100").NumberFormat = "dd/mm/yyyy"

[scoubida42]

Bonjour,

Merci pour la réponse,
En fait, j'avais déjà essayé ce code là mais l'affichage dans la cellule est bon mais si je clique sur la cellule pour avoir le contenu, j'ai toujours l'heure affichée.