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.

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