Discussion :

[Matsev]

Bonjour à tous,
Je me permet de vous demander un peu d'indulgence car je suis débutant en excel et vba. Je travail dans une entreprise de transport public ou nos heures sont irrégulières avec des bonifications de temps et des indemnités d'argents selon les heures ou les jours fériés. Mon employeur n'est pas très doué à nous verser et faire nos décompte juste. Etant représentant du personnel j'aimerai mettre un classeur avec formulaire où les employés peuvent rentrer facilement leurs heures et ainsi vérifier le décompte avec celui de l'employeur.

Premier pas est de rentrer dans un tableau les services à effectuer (Service selon graphique)Tous dépassements de ces temps va générer un temps supplémentaire (mais cela se fera sur un autre tableau).

Un problème après l'autre

Mon problème est que quand je rentre mes heures dans l'userform et qu'elle s'inscrive dans un tableau excel, elles ne sont pas sous la bon format?(Formule mis dans les textboxes trouvée dans un tuto de Patricktoulon membre du site écrit le 11.11.17)
exemple de service à rentrer: 2018/ A /Nav2 /heures début: 16:00 /heures de fin: 00:15 /et 01:00 pour chaque pause.
Quand je rentre les chiffres directement dans le tableau cela fonctionne très bien.

Je ne sais pas si c'est un problème vba ou de formule dans le tableau?

Merci de votre aide et de votre patience. J'espère que mes explication sont claires

Je travaille sous office 2016
Meilleures salutations Mat

[sogedic]

Regarde si ca peut te suffire

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
17
18
19
20
21
22
23
24
25
26
Private Sub CbenregistrerService_Click()
' Enregistrer les services dans le tableau
 
    Dim dl As Integer
        dl = Sheets("Service").Range("E1000").End(xlUp).Row + 1
        Sheets("Service").Range("b" & dl) = Me.TxtbxAnn?e
        Sheets("Service").Range("c" & dl) = Me.TxtbxPeriode
        Sheets("Service").Range("d" & dl) = Me.TxtbxNomDuService
        Sheets("Service").Range("f" & dl).Value = CompleteH(Me.TxtboxDebutService)
        Sheets("Service").Range("G" & dl) = CompleteH(Me.TxtboxFindeService)
        Sheets("Service").Range("I" & dl) = CompleteH(Me.TextbxPauseDeduite)
        Sheets("Service").Range("J" & dl) = CompleteH(Me.TxtboxPauseCompensee)
 
End Sub
 
Function CompleteH(myH As String) As String
'par d?faut on consi?re que ce sont les heures qui sont saisis et non les mn
    Select Case Len(myH)
        Case 0: CompleteH = "00:00"
        Case 1: CompleteH = "0" & myH & ":00"
        Case 2: CompleteH = myH & ":00"
        Case 3: CompleteH = myH & "00"
        Case 4: CompleteH = myH & "0"
        Case 5: CompleteH = myH
    End Select
End Function

Mais perso je trouve le code plus sympa à l'utilisation

[eriiic]

Bonjour,

c'est parce que tu mets une chaine (un textbox donne du texte) au lieu d'un nombre dans tes cellules.
C'est comme si tu mettais "deux" au lieu de 2.
Pour chaque heure à convertir utilise Cdate(). Ex :

Code :

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

Sheets("Service").Range("f" & dl) = CDate(Me.TxtboxDebutService)

Si ça avait été un nombre quelconque autre qu'un temps ou qu'une date il aurait fallu utiliser CDbl()
eric

[patricktoulon]

bonjour
c'est tres étonant avec office 2007 le format dans les cellule est bon chez moi
en regardant le format de cellule tu est bien en "hh:mm"
il est ou le smilblick?

[eriiic]

Bonjour patrick,

le format n'importe pas si tu mets du texte.
Et c'est ce que fait sa macro "8:00" et non 8:00 si tu ajoutes une ligne avec. Normal avec un textbox.
eric

[patricktoulon]

re
oui ce que j'ai voulu dire c'est que son fichier tel quel fonctionne chez moi