Discussion :

[Pitoux]

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

[malhivertman1]

Pour garder que la date

Code :

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

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

te donne 12/05/2006

[Pitoux]

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

[malhivertman1]

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..

[Pitoux]

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

?

[Elstak]

Dim Left(extrac_date, 10) as Date

Dim sert à declarer !
essaye ca :

Code :

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

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

[AlainTech]

Essaye ça:

Code :

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

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

[méphistopheles]

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

[AlainTech]

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

Bon, je sors

[méphistopheles]

Quels "s" ?

[ThierryAIM]

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

celui-qui n'est pas là

[jmfmarques]

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

[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

[Elstak]

Code :

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

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 :

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

1
2
 
Application.ScreenUpdating = False

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

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)

[Pitoux]

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

[illight]

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 C'est juste le numéro de série de ta date

[Elstak]

Tiens en fait voilà,

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

Code :

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

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 :

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 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

[Pitoux]

Merci pour ton aide

J'ai donc le code :

Code :

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

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é.

[illight]

Merci pour ton aide

J'ai donc le code :

Code :

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

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

[SfJ5Rpw8]

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...

Code :

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

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