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

 

[Excel-lent]

Re : fichier pour une hotline

Bonsoir Babap1,

Réponse pour la question 1 :

Pourquoi ta colonne D n'est pas au format date????

Le code pour trier un tableau ressemble à ça, mais je ne vois rien de ressemblant dans ton code.

Sub Trie()
    Range("A2:T7").Select
    Selection.Sort Key1:=Range("D3"), Order1:=xlAscending, Header:=xlYes, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
End Sub

Faut dire aussi qu'au milieu de tout cette anglais, même tes commentaires, je m'y perd un peu!

Macro testé, elle fonctionne. A condition évidement d'avoir mis la colonne D au format adéquat 😉

Bonne soirée

 

[babap1]

Re : fichier pour une hotline

Bonjour Excel-lent,

et toutes mes excuses pour mes commentaires en Anglais.. je suis obligé 🙂
Je ne doute pas que ta macro fonctionne, ayant été testé mais il y a surement quelque chose que je fais mal puisque j'ai une erreur...

Application-defined or object-defined error

Je pense que j'ai un souci avec DataOption1:=xlSortNormal

Merci.
Bap

 

[jeanpierre]

Re : fichier pour une hotline

Bonjour babap1, Excel-lent et le forum,

Tu dois avoir une version antérieur à 2003, donc supprime ce qui est en gras :

Selection.Sort Key1:=Range("D3"), Order1:=xlAscending, Header:=xlYes, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal

pour ne conserver que :

Selection.Sort Key1:=Range("D3"), Order1:=xlAscending, Header:=xlYes, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom

Bonne journée.

Jean-Pierre

 

[babap1]

Re : fichier pour une hotline

Bonjour jeanpierre,

merci pour l'info.
J'ai toujours un souci avec ma Date puisque j'ai l'impression qu'il me trie ma colonne selon le jours et nom la date entière...

Bonne journée,
Bap

 

[jeanpierre]

Re : fichier pour une hotline

Re,

Tes dates ne sont pas au format Date (c'est du texte), pourquoi ?

Dés que tu pourras répondre à cela, le reste fonctionnera.

A te lire.

Jean-Pierre

 

[babap1]

Re : fichier pour une hotline

Re,

je passe pour un débutant là et ça ne me fait pas de mal 😉 mais je n'arrive pas à trouver mon erreur de format...

J'ai bien mis ma colonne D en format Date..

Ai-je le droit à un nouveau joker?
Merci d'avance,

Bap

 

[jeanpierre]

Re : fichier pour une hotline

Re,

Ce n'est pas dans le format de cellule en soit, c'est à la saisie qu'il a le problème, (saisie ou récupération de données).

Si c'est une récupération, cela va être un peu plus compliqué car il faudra modifier par macro.

Une solution va être trouvée, je pense, dans ce dernier cas.

Précise-nous à ce sujet.

Bon après-midi.

Jean-Pierre

 

[babap1]

Re : fichier pour une hotline

Re,

il s'agit bien d'une récupération...
Je renseigne ma feuille excel avec un userform 'hotline' qui contient une textbox 'txt_date' et lorsque je clic dans 'txt_date', cela m'ouvre un autre userform qui contient un calendrier 'calendar1' pour que je sélectionne une date.
Après remplissage de tout le userform 'hotline', j'ajoute une nouvelle ligne de données dans ma feuille et la date en question semble s'être tranformée en texte..!

Sub txt_date_Enter()
    calendar.Calendar1.Value = Date
    calendar.Show
End Sub

Sub Calendar1_Click()
    hotline.txt_date.Value = Format(Calendar1, "m/d/yyyy")
    hotline.txt_time.Value = Format(Now, "HH:MM")
    Unload calendar
    calendar.Calendar1.Value = Date
End Sub

Il semblerait que j'ai le même problème pour l'heure...

Merci d'avance pour le coup de pouce,
Baptiste

 

[babap1]

Re : fichier pour une hotline

Re le forum, jeanpierre, Excel-lent,

pour revenir sur un autre souci que j'ai (mon point numéro 3) :
A l'aide de mon userform 'hotline', j'ai des comboboxes qui me permettent de remplir la couleur de fond de certaines cellules :

'Give a color for L2 country
    Range("B" & CurrentRow).Select
    If hotline.cbx_who = "Roumania L2" Then
        Selection.Interior.Color = &H80C0FF
    ElseIf hotline.cbx_who = "Marocco L2" Then
        Selection.Interior.Color = &HC0E0FF
    ElseIf hotline.cbx_who = "France L2" Then
        Selection.Interior.Color = &H80FF&
    End If
    
    'Give a color by period
    Range("D" & CurrentRow & ":E" & CurrentRow).Select
    If hotline.cbx_when = "In Hours" Then
        Selection.Interior.Color = &HFFFFC0
    ElseIf hotline.cbx_when = "Out Hours week-end" Then
        Selection.Interior.Color = &HFFC0C0
    ElseIf hotline.cbx_when = "Out Hours week" Then
        Selection.Interior.Color = &HFF8080
    ElseIf hotline.cbx_when = "Morning time-shift" Then
        Selection.Interior.Color = &HFF0000
    ElseIf hotline.cbx_when = "Evening time-shift" Then
        Selection.Interior.Color = &HC00000
    End If

En revanche, lorsque je souhaite modifier une ligne : je remplie bien mon userform 'hotline' avec les données précédemment rentrées mais cela ne fonctionne pas avec les couleurs. D'après les couleurs de fond de certaines cellules, j'aimerai renseigner des comboboxes :

Range("B" & CurrentRow).Select
    If Selection.Interior.Color = &H80C0FF Then
        hotline.cbx_who.Value = "Roumania L2"
    ElseIf Selection.Interior.Color = &HC0E0FF Then
        hotline.cbx_who.Value = "Marocco L2"
    ElseIf Selection.Interior.Color = &H80FF& Then
        hotline.cbx_who.Value = "France L2"
    End If
    
    Range("D" & CurrentRow & ":E" & CurrentRow).Select
    If Selection.Interior.Color = &HFFFFC0 Then
        hotline.cbx_when.Value = "In Hours"
    ElseIf Selection.Interior.Color = &HFFC0C0 Then
        hotline.cbx_when.Value = "Out Hours week-end"
    ElseIf Selection.Interior.Color = &HFF8080 Then
        hotline.cbx_when.Value = "Out Hours week"
    ElseIf Selection.Interior.Color = &HFF0000 Then
        hotline.cbx_when.Value = "Morning time-shift"
    ElseIf Selection.Interior.Color = &HC00000 Then
        hotline.cbx_when.Value = "Evening time-shift"
    End If

... mais cela ne fonctionne pas 😕

Qu'ai-je fait de si mauvais pour que cela ne fonctionne pas?! 🙁

Merci d'avance,
Baptiste

 

[babap1]

Re : fichier pour une hotline

Bonjour le forum, jeanpierre, Excel-lent,

est-ce que je vous ai fait peur avec mon code? Je pensais qu'il fallait que je donne des détails alors voilà...

Est-ce que je peux avoir un coup de pouce pour terminer mon fichier?
Merci d'avance,

Bap

 

[Excel-lent]

affichage date

Bonjour Babap1,

Non, tu ne m'as pas fait peur! Tes explications sont en effet très clair et bien détaillé.

J'ai commencé à apprendre les userform il n'y a que quelques jours! Donc j'ai laissé la main à ... de performant dans ce domaine.

J'ai profité de l'occasion pour relire tout le fil. Tu as trouvé pour ton problème de date?

En relisant plus doucement, j'ai un doute! Si c'est le cas, voici une piste :

Au vu de :
-> tes macros écrite en anglais,
-> ceci :

pour mes commentaires en Anglais.. je suis obligé

-> tu n'aurais pas un Excel Anglais? ou Français avec des paramétrages anglais????

Car même si tes dates de la colonne D sont au format "standard", elles sont écrite en anglais!!! (mm/jj/aaaa)

Donc lorsque je mets la colonne D au format date, avec mon Excel français, il ne comprend rien. Je dois réécrire les dates dans le bon ordre (jj/mm/aa).
(ce que j'ai fais inconsciemment la dernière fois, ce pourquoi ma solution données plus haut fonctionné sur mon PC et peut-être pas sur le tien?)

Bon courage

 

[babap1]

tri par date de la colonne D

Bonjour le forum,

j'avance doucement sur mon fichier de hotline et j'ai toujours un souci de tri de ma colonne D par date.

Excel-lent : Effectivement mon Excel est en Anglais mais ça devrait aussi pouvoir fonctionner.

Est-ce que quelqu'un peut jetter un coup d'oeil? 😉
Merci d'avance,

Baptiste

 

[JCGL]

Re : fichier pour une hotline

Bonjour à tous,

En FR ton code Tri fonctionne parfaitement

Peux-tu essayer en modifiant chez toi :

Private Sub txt_date_Enter()
    calendar.Calendar1.Value = Format(Date, "yyyy/mm/dd")
    calendar.Show
End Sub

ou

Private Sub txt_date_Enter()
    calendar.Calendar1.Value = Format(Date, "mm/dd/yyyy")
    calendar.Show
End Sub

Dans l'USF 'HotLine'

A+

 

[Fo_rum]

Re : fichier pour une hotline

Salut

Bonjour Excel-lent,

...
Je ne doute pas que ta macro fonctionne, ayant été testé mais il y a surement quelque chose que je fais mal puisque j'ai une erreur...
...
Bap

Ta feuille est protégée, non ?
Teste alors :

Sub Trie()
    Dim nbLig As Long
    [B]ActiveSheet.Unprotect[/B]
    nbLig = Range("B" & Cells.Rows.Count).End(xlUp).row 
    Range("A3:T" & nbLig).Sort Key1:=Range("D3"), Order1:=xlAscending
End Sub