[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")

---

;)