fichier pour une hotline

[babap1]

Bonjour,

je suis coincé quant à la création d'un fichier de gestion d'incident pour une hotline. Il y a des macros que je n'arrive pas à faire fonctionner...

J'ai mis des commentaires dans mon fichier joint.
Quelqu'un pourrait-il m'aider svp?

D'avance merci,
Bap

 

[babap1]

Re : fichier pour une hotline

Hello JCGL, Fo_rum,

merci à JCGL pour le format yyyy/mm/dd qui me sort le bec de l'eau. C'était donc un problème de Franglisme de mon Excel..! Est-ce que ma fonction marchera si on la lance à partir d'une version française d'Excel..?

J'ai deux autres questions:
1/ lorsque je remplis mon formulaire via le UF 'hotline', je saisie la date et l'heure. Lorsque je fais mon trie, j'ai bien un tri par date maintenant mais j'aimerai qu'il prenne en compte aussi l'heure.

voila ma modification mais elle smeble ne pas fonctionner :

Sub Trie()
    Dim nbLig As Long
    nbLig = Range("B" & Cells.Rows.Count).End(xlUp).row + 1
    Range("A2:T" & nbLig).Select
    Selection.Sort Key1:=Range("D3[B]:E3[/B]"), Order1:=xlAscending, Header:=xlYes, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
End Sub

😕

2/ lorsque je saisie une date et que j'ouvre de nouveau le UF 'calendar1', j'aimerai qu'il ne se mette pas à la date du jour mais celle qui a été saisie avant. 🙄


Merci d'avance pour les coup de pouce,
Baptiste

 

[JCGL]

Re : fichier pour une hotline

Bonjour à tous,

Pout le format cela devrait passer....
Pour le Tri, peux-tu essayer sur ta base :

Sub Trie()
    Dim nbLig As Long
    nbLig = Range("B" & Cells.Rows.Count).End(xlUp).row
    Range("A3:T" & nbLig).Sort Key1:=Range("D3"), Order1:=xlAscending, Key2:=Range("E3") _
        , Order2:=xlDescending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _
        False, Orientation:=xlTopToBottom
    Range("E2").Select
End Sub

Pour le Calendar voir par F4 (dans VBE et l'USF ouvert), les paramètres

A+

 

[babap1]

Re : fichier pour une hotline

Bonjour le forum, JCGL,

je pense que tout est rentré dans l'ordre avec mon fichier hotline... Merci à tous pour votre coup de main; il m'a juste fallu une pirouette avec la fonction trie() de JCGL : 😉

Sub Trie()
    Dim nbLig As Long
    nbLig = Range("B" & Cells.Rows.Count).End(xlUp).row
    Range("A[B]2[/B]:T" & nbLig).Sort Key1:=Range("D3"), Order1:=xlAscending, Key2:=Range("E3") _
        , Order2:=xlDescending, Header:=[B]xlYes[/B], OrderCustom:=1, MatchCase:= _
        False, Orientation:=xlTopToBottom
    Range("E2").Select
End Sub

Bonne journée à tous,
Excellement votre, 🙂

Bap