Texte si Heure comprise entre X & Y
Bonjour à tous!
Je dois faire l'analyse du trafic à une guérite. Toutes les entrées sont compilées dans une base de donnée que je peux exporter sur Excel. Mon but étant de séparer les entrées en 3 Quarts de Travail, une macro serait utile vu le volume de données à traiter.
Je me réfère au fichier joint pour la suite: le bouton Triage permettrait, en lisant l'heure en Colonne "C", d'indiquer le quart de travail correspondant en colonne "D": Jour, Soir ou Nuit (7h à 15h, 26h à 23h ou 23h à 7h).
Je suis bloqué au bouton de commande ci-dessous:
Private Sub CommandButton1_Click()
Dim Heure As Integer, Quart As String
Heure = Range("D1").Value
Select Case Heure
Case Is >= #6:45:00 AM#
Quart = "Jour"
Case Is >= #2:45:00 PM#
Quart = "Soir"
Case Else
Quart = "Nuit"
End Select
End Sub
J'apprécie à l'avance votre implication, merci beaucoup!
Bonjour,
une macro n'est pas vraiment justifiée :
=CHOISIR(EQUIV(C2*24;{0;7;15;23});"Nuit";"Jour";"Soir";"Nuit")eric
Pour info une heure pour excel c'est une fraction de jour, un jour étant égal à 1.
Par exemple 12:00 = 0.5
Avec Dim Heure As Integer et Heure = Range("D1").Value tu ne risques pas d'avoir autre chose que 0.
eric