Discussion :

[jojom13]

Bonjour à tous.
Me voila confronté à un problème que je n'arrive pas à solutionner seul.
Un outil m'exporte un fichier excel qui répertorie une liste d'appels reçus par un call center. Une des colonnes du fichier excel est la date et l'heure à laquelle l'appel a été reçu.
J'aimerais faire un tri de cette colonne avec une macro :
- insérer une ligne vide tous les 1/4 d'heure pour plus de lisibilité (ou mettre un code couleur, peu importe)
- et surtout afficher le nombre d'appels reçus par 1/4 d'heure dans une userform.
Mon gros souci est que la colonne "date et heure" est de ce format "08/01/2008 07:57:42". Je ne vois donc pas comment pouvoir trier seulement l'heure (sachant que j'analyse tous les appels d'une seule et meme journée, je me fiche de la date)

J'espère avoir été clair et que vous pourrez me donner un sérieux coup de main car sur le coup je suis bien coincé.

[Invité]

Bonjour et bienvenue sur le Forum Office de DVP.

Tu trouveras dans cet article de Maxence Hubiche Les Fonctions Date/Heure au chapitre III - B des fonctions d'extractions pour récupérer ce que tu veux de ta chaine.

Starec

[jojom13]

Merci beaucoup à toi je vais jeter un coup d'oeil et éventuellement poser quelques question au cas où.
Bonne nuit, ou peut etre bonne journée vu l'heure.

[jojom13]

Je vois bien le paragraphe qui peut m'aider, avec les fonctions hour/minute/second mais je ne vois en aucun cas comment l'appliquer sachant qu'en plus j'ai "jour/Mois/année" qui me gêne dans ma cellule. Désolé, mais je début en VBA.

[Qwazerty]

SAlut
Google est ton ami, il faut lui demander aussi pas mal hein ca rime ... :p
Je pense que ceci devrait te venir en aide.
A++
Qwaz

[jojom13]

T'imagines bien qu'avant d'atterir ici j'ai fouillé pas mal de temps un peu partout..
Merci pour le lien.

[LeForestier]

Bonjour,
une façon simple pour ce que tu veux..

Code :

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

1
2
3
a$ = Now
t = Split(a$, " ")
Heure = t(1)

A+
Edit:
Et je suppose, puisque tu travail avec les quarts d'heure tu a besoin des minutes...

Code :

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

1
2
3
4
t = split(Heure,":")
't(0)=les heures
't(1)=les minutes
't(2)=les secondes

Edit2:
et encore plus simple

Code :

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

1
2
3
4
5
a$ = Now
t = Split(Replace(a$, " ", ":"), ":")
't(1)=les heures
't(2)=les minutes
't(3)=les secondes

[jojom13]

Je suis désolé mais je débute vraiment.
A quoi correspond la valeur "a$" ?

Dans ma colonne E du tableur j'ai par exemple : "08/01/2008 08:18"
Je veux dans une userform pouvoir indiquer parfois la date "08/01/2008" ou parfois uniquement l'heure "08:18", entre autre pour pouvoir trier par 1/4 d'heure.

Si je reprends ton code,

Code :

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

1
2
3
4
5
a$ = Now
t = Split(Replace(a$, " ", ":"), ":")
't(1)=les heures
't(2)=les minutes
't(3)=les secondes

Cela signifie que je remplace a$, " ", ":" par ":" ?

Merci de m'aider je suis paumé.

[ouskel'n'or]

Mon gros souci est que la colonne "date et heure" est de ce format "08/01/2008 07:57:42". Je ne vois donc pas comment pouvoir trier seulement l'heure (sachant que j'analyse tous les appels d'une seule et meme journée, je me fiche de la date)

Tu ne te fiches sans doute pas de la date, sinon tu auras les heures de tous les jours.
Ce que je te propose est de convertir ta limite inférieure (l'heure de début de ton analyse) en N° de série, de convertir ta colonne en format "Standard", ta limite supérieure (heure de fin) en N° de série, ainsi, entre début et fin pris dans ta base de données, tu auras la fourchettes que tu souhaite avoir
Pour avoir le N° de série d'une date, c'est

Code :

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

NoSérie = cdbl(LadateEtLheureDeDébut)

ou, si VBA ne reconnais pas une heure

Code :

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

NoSérie = cdbl(Cdate(LadateEtLheureDeDébut))

Idem pour la fin de ta fourchette
Tu testes et tu prends l'un ou l'autre code (celui qui fonctionne...)
Une fois que ta colonne est formatée elle aussi, tu peux faire une recherche sur ton No De série dans la colonne avec Find, avec le paramètre Lookat:=XlPart.
Quand tu as terminé, tu remets ta colonne au format Date et Heure
Bon courage

[LeForestier]

Je 'décortique'...
a$ est une ancienne façon de déclarer une variable en string
cela équivaut à
Dim a as string 'désolé certaines habitudes sont difficile à oubliés.
a la place de Now, tu met la valeur de ta cellule
a$=cells(X,5) par exemple
ensuite replace va transformer "08/01/2008 08:18" en "08/01/2008:08:18"
ensuite split va séparer tout ce qu'il y a entre les ":" dans le tableau t
d'où

't(0)=La date
't(1)=les heures
't(2)=les minutes
Je crois que tu à toutes les données nécessaires.
A+

[AlainTech]

Que de "chipotages"...

Je ne vois franchement pas en quoi la présence des dates pose problème puisqu'il est possible d'extraire les minutes d'une date entière.

[AlainTech]

Pour démontrer ce que j'avance, voici un code complet.
J'espère que tu sauras l'adapter à tes besoins.

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
16
Sub test()
  Dim rRange As Range
  Dim rCell As Range
  Dim wks1 As Worksheet
  Set wks1 = ThisWorkbook.Sheets("Feuil1")
  Set rRange = Range(wks1.Cells(1, 1), wks1.Cells(wks1.Cells.SpecialCells(xlLastCell).Row, 1))
  For Each rCell In rRange
    If Not LeQuart(rCell.Value) = LeQuart(rCell.Offset(1, 0)) Then
      rCell.EntireRow.Borders(xlEdgeBottom).Weight = xlMedium
    End If
  Next rCell
End Sub
 
Function LeQuart(dTemps As Date) As Integer
  LeQuart = ((DatePart("h", dTemps) * 60) + DatePart("n", dTemps)) \ 15
End Function

Ce qui donne: