[VBA-E]Tronquer une DATE

Bonjour,

Je fait un Extract sur une base de donnée SQL (qui contient un liste d'appel téléphonique) sur mon classeur EXCEL


- La date extraire donne:

12/05/2006 14:14:54

Ensuite il faut que je fasse un tableau croisé Dynamique, avec le nombre d'appels par jour.
Hors mon probléme c'est que j'ai aussi l'heure qui me fous le bronxe dans me tableau.

Donc ma question est :
Comment supprimer l'heure ?
C'est a dire comment garder juste les 10 premiers caractéres ?

J'ai vu dans un site la possibilité d'ecrire:
Dim extrac_date As Date*10 (Le *10 devait normalement tronqué a partir de 10 caractére.)

Mais cela ne fonctionne pas chez moi. (office 97)
par avance merci de votre aide.
PS je suis NOVICE en VB-VBA

Pour garder que la date

Code:

---

Left("12/05/2006 14:14:54", 10)

---

te donne 12/05/2006

Merci de cette réponse plus que rapide, mais un peu trop sommaire pour mes faible compétences :(

J'ai besoin d'appliquer cette régle sur tout une colone, comment rédiger mon code ?

Par avance merci
Laurent

Left(String, Length as Long)
le String represente la chaine que tu veux tronquer
Lenght, c'est la longueur que tu en veux

Donc Left(String, 10) prendra les 10 premiers caracteres de ton string
De même que Right(String, 10) te prendra les 10 derniers.

Aprés a toi d'adapter a ton code..

Ok donc si mon format actuel est :

Dim extrac_date As Date



Je doit le modifier comme cela ?

Dim Left(extrac_date, 10) as Date

?

Citation:

---

Dim Left(extrac_date, 10) as Date

---

:?

Dim sert à declarer !
essaye ca :

Code:

---

1 2 3 4

Dim extrac_date As Date extrac_date = "12/05/2006 14:14:54" msgbox left(extrac_date, 10)

---

chui aps sur de la 2eme ligne mais en cherchant un peu tu devrais trouver :D

Essaye ça:

Code:

---

1 2 3 4 5

Sub test() Dim extrac_date As Date extrac_date = "12/05/2006 14:14:54" MsgBox Int(extrac_date) End Sub

---

pourrais-tu remplacer "tronqué" par tronquer dans le titre?
je ne sait pas pourquoi, mais je me crispe à chaque fois que je vois ça.

Ce qui me crispe, moi, c'est pourquoi et chaque avec s ...

Bon, je sors :rire:

Quels "s" ?:aie:

Citation:

---

Envoyé par méphistopheles

je ne sait pas pourquoi, mais je me crispe à chaque fois que je vois ça.

---

celui-qui n'est pas là :mouarf:

J'en rajoute une petite louche ?
ça se voit (ça se s'écrit comme çà)
et...
je vois çà !:D (et ça s'écrit comme cà):mouarf:

;)
Bon alors j'ai rentrer le code suivant:

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Application.ScreenUpdating = False
If Not Intersect(Target, Range("M2:M10")) Is Nothing Then Target = Mid(Target, 1, 30)
Application.ScreenUpdating = False
End Sub

Le probléme c'est que cela me change le format qui a l'origine est:
JJ/MM/AA HH:MM

J'aimerais tronquer le HH:MM

Et quand je tranonque avec le code ci dessou il me change le format de mes donnée et donne par exemple: 388475698

Que faire ?
Par avance merchi :)

Citation:

---

Code:

---

1 2 3 4 5 6

Private Sub Worksheet_Change(ByVal Target As Excel.Range) Application.ScreenUpdating = False If Not Intersect(Target, Range("M2:M10")) Is Nothing Then Target = Mid(Target, 1, 30) Application.ScreenUpdating = False End Sub

---

---

??

Quel est le rapport avec ce qu'on t'a donné comme exemple?

Code:

---

1 2	Application.ScreenUpdating = False

---

jpense que tu peux meme le remettre une troisieme fois, il servira pas plus :mouarf:

le 'intersect' je sais pas trop à quoi ca sert mais à mon avis ca n'a rien à faire là

essaye le code que je t'ai donné en exemple et reviens (ou le code de quelqu'un d'autre mais aps un truc qui sort de nulle part)

Re,

En fait j'ai récupéré ce code sur un Forum :p

J'ai essaye ton code. Et pas de prob il fonctionne trés bien.
Mais je ne sais comment le modifier pour qu'il fasse la même chose sur un colone d'un tableau XLS

Citation:

---

Envoyé par Pitoux

;)
Bon alors j'ai rentrer le code suivant:

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Application.ScreenUpdating = False
If Not Intersect(Target, Range("M2:M10")) Is Nothing Then Target = Mid(Target, 1, 30)
Application.ScreenUpdating = False
End Sub

Le probléme c'est que cela me change le format qui a l'origine est:
JJ/MM/AA HH:MM

J'aimerais tronquer le HH:MM

Et quand je tranonque avec le code ci dessou il me change le format de mes donnée et donne par exemple: 388475698

Que faire ?
Par avance merchi :)

---

C'est une date ce nombre :mrgreen: C'est juste le numéro de série de ta date :D

Tiens en fait voilà,

si tu veux juste modifier le format "apparent" d'excel tu peux faire :

Code:

---

1 2 3 4 5

Range("A1").Select Range(Selection, Selection.End(xlDown)).Select   Selection.NumberFormat = "dd/mm/yyyy"

---

ca va et formatter ta colonne A au format date jj/mm/aaaa mais si tu passe sur une cellule tu verra en haut toujours la forme "12/05/2006 14:14:54"


Si tu veux definitivement "couper" l'heure tu fais :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Sub hu() Dim extrac_date As Date Dim DerniereLigne As Double 'recupere la dernere ligne occupé dans la colonne A '(jusqu'à ce qu'une ligne soit vide) DerniereLigne = Worksheets(1).Range("A1").CurrentRegion.End(xlDown).Row   'pour chacune de ces lignes on ne garde que les 10 premeirs caracteres For i = 1 To DerniereLigne extrac_date = Cells(i, 1) Cells(i, 1) = Left(extrac_date, 10) Next   End Sub

---

voilà dis moi quoi :)

Merci pour ton aide :)

J'ai donc le code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Dim DerniereLigne As Double Dim extrac_dates As Date   'recupere la dernere ligne occupé dans la colonne A '(jusqu'à ce qu'une ligne soit vide) DerniereLigne = ActiveSheet.Range("M2").CurrentRegion.End(xlDown).Row   'pour chacune de ces lignes on ne garde que les 10 premeirs caracteres For i = 1 To DerniereLigne extrac_dates = Cells(i, 1) Cells(i, 1) = Left(extrac_dates, 10) Next

---

Le debugger se bloque sur le "extrac_dates = Cells(i, 1)"
Il m'indique que ma variable vaut 00:00:00

Pourtant dans ma colone M tout les champs on une valeur.
PS: Mon tableau posséde plusieurs Colonne. Seul la colonne M doit etre tronqué.

Citation:

---

Envoyé par Pitoux

Merci pour ton aide :)

J'ai donc le code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Dim DerniereLigne As Double Dim extrac_dates As Date   'recupere la dernere ligne occupé dans la colonne A '(jusqu'à ce qu'une ligne soit vide) DerniereLigne = ActiveSheet.Range("M2").CurrentRegion.End(xlDown).Row   'pour chacune de ces lignes on ne garde que les 10 premeirs caracteres For i = 1 To DerniereLigne extrac_dates = Cells(i, 1) Cells(i, 1) = Left(extrac_dates, 10) Next

---

Le debugger se bloque sur le "extrac_dates = Cells(i, 1)"
Il m'indique que ma variable vaut 00:00:00

Pourtant dans ma colone M tout les champs on une valeur.

---

Quand tu met du code, met les balises code teplé ça sera plus clair :) et plus lisible :)

Si tu met extrac_dates en format texte normalement il te mettra dans cette variable le début de ta date :)
Pour la "transformer" en date par la suite, il faudra alors utiliser un DateSerial :) , en coupant un a un les jour, mois et annee de ta chaine de caractère :D

left et fait pour traiter des chaîne de caractéres .. pas des dates ! (voir aide en ligne..)

dans ton cas vu extrac_dates est une variable de type Date, utilise les fonctions de date.. Year,Month,Day ou bien Format... :f1:

Code:

---

1 2 3

Cells(i, 1) = Format(extrac_dates,"dd/mm/yyyy")

---

;)

Il ne faut pas que je fasse une modification de format, mais que j'enleve en DUR l'heure. Car aprés je doit faire un tableau croisé dynamique classé par date, sans tenir compte des heures

Citation:

---

Dim DerniereLigne As Double
Dim extrac_dates As String
'recupere la dernere ligne occupé dans la colonne A
'(jusqu'à ce qu'une ligne soit vide)
DerniereLigne = ActiveSheet.Range("M2").CurrentRegion.End(xlDown).Row

'pour chacune de ces lignes on ne garde que les 10 premeirs caracteres

For i = 1 To DerniereLigne
extrac_dates = Cells(i, 1)
Cells(i, 1) = Left(extrac_dates, 10)
Next

---

Mais aucune modification dans ma colonne M
j'ai toujours: 12/05/2006 07:28:03

Utilise la fonction "Format" que t'a donné Bbil :) en utilisant l'aide tu devrais pouvoir trouver ton bonheur normalement ;)

On ma donner un code source sur ce topic. Je précise que je debute.
Si je commence a partir a droite et a gauche, sa ne rime plus a rien.

La fonction FORMAT ne fera que modifier l'apparence. Mais si on clic sur la cellule concerné, on s'apperçois qu'en dur il y a toujours l'heure.
Il faut donc tronquer

J'ai un code de base. Reste plus qu'a le modifier légérement je pense non ?

Citation:

---

Envoyé par Pitoux

On ma donner un code source sur ce topic. Je précise que je debute.
Si je commence a partir a droite et a gauche, sa ne rime plus a rien.

La fonction FORMAT ne fera que modifier l'apparence. Mais si on clic sur la cellule concerné, on s'apperçois qu'en dur il y a toujours l'heure.
Il faut donc tronquer

J'ai un code de base. Reste plus qu'a le modifier légérement je pense non ?

---

ben la ligne de code que j'ai posté plus haut c'est pour modifier ton "code de base", avec la fonction Format.. ? tu la essayé ?

OK 1000 excuses :p

Donc au final sa donne

Citation:

---

Dim DerniereLigne As Double
Dim extrac_dates As Date
'recupere la dernere ligne occupé dans la colonne A
'(jusqu'à ce qu'une ligne soit vide)
DerniereLigne = ActiveSheet.Range("M2").CurrentRegion.End(xlDown).Row

'pour chacune de ces lignes on ne garde que les 10 premeirs caracteres

For i = 1 To DerniereLigne
extrac_dates = Cells(i, 1)
Cells(i, 1) = Format(extrac_dates, "dd/mm/yyyy")
Next

---

Il rebloque sur "extrac_dates = Cells(i, 1)"
Valeur de extrac_dates = 00:00:00

On est bien d'accord que seul la colonne M est concerné par cette procédure ?
Elle ne séléectionne pas tout mon tableau ?

Citation:

---

Envoyé par bbil

Code:

---

1 2	Cells(i, 1) = Format(extrac_dates,"dd/mm/yyyy")

---

---

ca revien à ce que j'ai mi là non?

Code:

---

Selection.NumberFormat = "dd/mm/yyyy"

---

enfin peu importe :D

ps : bravo jviens de voir que t'es passé modérateur bbil :P

Citation:

---

Envoyé par Pitoux

On est bien d'accord que seul la colonne M est concerné par cette procédure ?
Elle ne séléectionne pas tout mon tableau ?

---

non la vu qu'il n'y as rien devant Cells.. tu parcours la ligne i de la colonne 1 de la feuille Active => d'ou la colonne A , remplace le 1 par 13 (M)

Citation:

---

Envoyé par Elstak

ca revien à ce que j'ai mi là non?

Code:

---

Selection.NumberFormat = "dd/mm/yyyy"

---

enfin peu importe :D

ps : bravo jviens de voir que t'es passé modérateur bbil :P

---

non !!..

ton code modifie le fomat d'affichage de la cellule sans en changer la valeur..!
le mien , modifie la valeur de la cellule en y affectant le résultat de la fonction format..;)

ouep c'est vrai ta raison bbil :P

sinon pour info pitoux, pour utiliser cells, t'a :

Cells (NumeroDeLaLigne,NumeroDeLaColonne) donc comme l'a dit bbil M correspond à 13,

Code:

---

1 2	cells (i,13)

---

OK bon alors la version donne (pour la colonne M)

Citation:

---

Dim DerniereLigne As Double
Dim extrac_dates As Date
'recupere la dernere ligne occupé dans la colonne A
'(jusqu'à ce qu'une ligne soit vide)
DerniereLigne = ActiveSheet.Range("M2").CurrentRegion.End(xlDown).Row

'pour chacune de ces lignes on ne garde que les 10 premeirs caracteres

For i = 2 To DerniereLigne
extrac_dates = Cells(i, 13)
Cells(i, 13) = Format(extrac_dates, "dd/mm/yyyy")
Next

---

Cette fois mes champs on été modifié
05/05/2006 00:00:00
Toute mes heures sont passé a 00:00:00

Moi je ne voudrais plus d'heure. soit 05/05/2006

bizarre ca je pense

normalement le

Code:

---

Cells(i, 13) = Format(extrac_dates, "dd/mm/yyyy")

---

devrait n'afficher que la date sans l'heure

Ajoute toujours ca avant le "Next" perso jvois pas d'autre solution

Code:

---

1 2	Cells(i, 1) = Left(Cells(i, 1), 10)

---

au risque de me faire taper par bbil

Citation:

---

left et fait pour traiter des chaîne de caractéres .. pas des dates ! (voir aide en ligne..)

---

mais chez moi ca fonctionne :roll:

Plus personne pour m'aider ?
Si besoin je peux envoyer mon Fichier XLS par email

Par avance merci
Car j'ai beau chercher et je ne trouve pas

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Sub hu() Dim extrac_date As Date Dim DerniereLigne As Double 'recupere la dernere ligne occupé dans la colonne A '(jusqu'à ce qu'une ligne soit vide) DerniereLigne = Worksheets(1).Range("C1").CurrentRegion.End(xlDown).Row   'pour chacune de ces lignes on ne garde que les 10 premeirs caracteres For i = 1 To DerniereLigne extrac_date = Cells(i, 3) Cells(i, 3).Select Selection.NumberFormat = "d/m/yyyy" Next   End Sub

---

pour moi ca c'est bon (oublie pas de bien changer pour les colonne... moi jai pris C)

tout se apsse bien chez moi sauf que les "nouvelles" date sont affichées à gauche de la cellule alors que normalement elle sont à droite mais dès lors qu'on en selectionne 1 (en entre dans la cellule pour la modifier) et, meme sans rien modifier, qu'on clique sur une autre cellule, la date se remet à droite.

Ca je comprend pas pourquoi mais on a bien jsute la date sans l'heure

Mais si, y'a toujours quelqu'un... La preuve, 31 posts pour un pb de format de date...
Deux solutions
La première est de tenter de mettre ta colonne au format voulu.
Si ça ne marche pas, la solution d'Elstak devrait fonctionner mais tu dois préciser que c'est une date (pas un string) et l'appliquer pour chaque cellule de ta colonne

Code:

---

1 2 3 4

For i = PremièreLigne to dernièreLigne Cells(i, 13) = Format(cdate(extrac_dates), "dd/mm/yyyy") Next

---

Tu dis

OK, merci :)

BOn je viens de tester :

Citation:

---

Sub hu()
Dim extrac_date As Date
Dim DerniereLigne As Double
'recupere la dernere ligne occupé dans la colonne A
'(jusqu'à ce qu'une ligne soit vide)
DerniereLigne = Worksheets(1).Range("C1").CurrentRegion.End(xlDown).Row

'pour chacune de ces lignes on ne garde que les 10 premeirs caracteres
For i = 1 To DerniereLigne
extrac_date = Cells(i, 3)
Cells(i, 3).Select
Selection.NumberFormat = "d/m/yyyy"
Next

---

Alors oui sa change bien mon format a D/M/YYYY (09/05/2006)

par contre quand je clic sur une cellule date, pour voir en detail le contenus de ma celule je vois toujours
09/05/2006 08:51:27

Et justement je veux supprimer cette heure. Car apres je doit faire un tableau croisé dynamique, sans que ces heures soit prise en compte

Citation:

---

Alors oui sa change bien mon format a D/M/YYYY (09/05/2006)

---

c'est louche si t'a ca, normalement tu devrait avoir (9/5/2006).
Si tu veux (09/05/2006) alors met DD/MM/YYYY.

Citation:

---

par contre quand je clic sur une cellule date, pour voir en detail le contenus de ma celule je vois toujours
09/05/2006 08:51:27

---

bizarre chez moi jai juste la date l'heure a completement ete virée


sinon essaie la solution d'ouskel. ;)

je peux t'envoyer par email mon fichier XLS ?
Si oui donne le mail en Message Privé

Non, on va traiter ce sujet sur le forum car ça peut aider quelqu'un d'autre à l'avenir.
J'ai une idée... Je recherche ce que j'ai fait et je reviens

A tout'

OK alors je tente de mieux m'expliquer.
Je fait une extraction d'une base SQL (liste d'appel telephonique) sur une feuille XLS

Dans la colonne M de mon fichier excel se trouve la date et heure

12/05/2006 14:44
12/05/2006 14:45
12/05/2006 14:50
12/05/2006 14:51
12/05/2006 14:54
12/05/2006 14:54

Quand je clic dans une de ces celulles, je vois le detail (A coté de FX)
et cela donne

12/05/2006 14:44:15
12/05/2006 14:45:45
12/05/2006 14:50:21
12/05/2006 14:51:34
12/05/2006 14:54:14
12/05/2006 14:54:23

Ayant besoin de faire un tableau croisé dynmarique par jour, il faut que je fasse disparaitre les heures.

Hors les Macro actuelle ne font que changer l'affichage dans ma feuille Excel
c'est a dire que cela donne

12/05/2006
12/05/2006
12/05/2006
12/05/2006
12/05/2006
12/05/2006

Mais quand je clic sur une de ces cellules je me retrouve avec

12/05/2006 14:44:15
12/05/2006 14:45:45
12/05/2006 14:50:21
12/05/2006 14:51:34
12/05/2006 14:54:14
12/05/2006 14:54:23

Mais il faut impérativement supprimer définitivement ce champ des heures

Voila j'espére avoir correctement expliqué :)

Avant tout, es-tu sûr d'avoir mis exactement le code que je t'ai donné ou as-tu modifié quelque chose ? Le cas échéant, donne plus de code.
Mais je me permets de me douter d'une modif malencontreuse.

Code:

---

1 2	Cells(i, 13) = Format(cdate(extrac_dates), "dd")+"/" + Format(cdate(extrac_dates), "mm")+ "/" + Format(cdate(extrac_dates), "yyyy")

---

Tu essaies ça mais le code précédent devrait fonctionner si tu ne traites pas le contenu de la cellule mais bien la variable extrac_dates

Tu dis