raphael_george
Messages postés60Date d'inscriptionsamedi 19 novembre 2005StatutMembreDernière intervention22 octobre 2007
-
3 sept. 2006 à 17:47
raphael_george
Messages postés60Date d'inscriptionsamedi 19 novembre 2005StatutMembreDernière intervention22 octobre 2007
-
11 sept. 2006 à 23:07
Salut,
j'ai besoin d'aide pour mes macros
Je voudrais faire des calculs de différence d'heure pour calculer des salaires
en fonction de la semaine
de la nuit
et du week-end
ainsi que du type d'assistance
If Me.cbxConges.Value = True Then
Me.cbxConges.Value = False
Range(Cells(LigneAEcrire, 3), Cells(LigneAEcrire, 14)).Select
With Selection.Interior
.ColorIndex = 35
.Pattern = xlSolid
End With
End If
If Me.cbxReferent.Value = True Then
Me.cbxReferent.Value = False
Cells(LigneAEcrire, 15).Value = "Referent"
End If
Private Sub CommandButton1_Click()
Call MacrosOngletDonnees.Calcul_Heures_Par_Poste
End Sub
Private Sub CommandButton2_Click()
Call MacrosOngletDonnees.Colorier_Gris_Jours_Non_Travailles
End Sub
Private Sub CommandButton3_Click()
Call MacrosOngletDonnees.Colorier_Rouge_Samedi_Dimanche
End Sub
Private Sub CommandButton4_Click()
Call MacrosOngletDonnees.Calcul_Majorations
End Sub
Private Sub CommandButton5_Click()
Application.Visible = True
End Sub
Private Sub lbtLieux_Click()
End Sub
Private Sub UserForm_Activate()
Dim Horaire As String, HoraireTemp As String
HoraireTemp = Format (Time, "hh:mm")
HeureN = Mid(HoraireTemp, 1, 2)
MinuteN = Mid (HoraireTemp, 4, 2)
Horaire = ", " & HeureN & "h" & MinuteN
Me.Caption = "Nous sommes le " & Format (Date, "dddd dd mmmm yyyy") & Horaire
Dim hwnd As Long
hwnd = FindWindowA("Thunder" & IIf(Application.Version Like "8*", _
"X", "D") & "Frame", Me.Caption)
SetWindowLongA hwnd, -16, GetWindowLongA(hwnd, -16) And &HFFF7FFFF
End Sub
Private Sub UserForm_Initialize()
Dim Horaire As String, HoraireTemp As String
HoraireTemp = Format (Time, "hh:mm")
HeureN = Mid(HoraireTemp, 1, 2)
MinuteN = Mid (HoraireTemp, 4, 2)
Horaire = ", " & HeureN & "h" & MinuteN
Dim hwnd As Long
hwnd = FindWindowA("Thunder" & IIf(Application.Version Like "8*", _
"X", "D") & "Frame", Me.Caption)
SetWindowLongA hwnd, -16, GetWindowLongA(hwnd, -16) And &HFFF7FFFF
End Sub
<small>
Coloration syntaxique automatique</small>
@++
<hr size="2" width="100%" />
--Mortalino--
Le mystérieux chevalier, "Provençal, le Gaulois"
<!--
Molenn
Messages postés797Date d'inscriptionmardi 7 juin 2005StatutMembreDernière intervention23 février 20117 4 sept. 2006 à 09:47
Difficile de faire moins précis comme question :
Bonjour, faut que je fasse un truc, mais si vous pouviez le faire à ma place.
Dis nous déjà ce que tu as fait et on t'aidera à boucher les trous.
Parce que sinon, je réponds aux questions :
Je voudrais faire des calculs de différence d'heure pour calculer des salaires
=> Heure de fin - Heure de début
en fonction de la semaine
=> ?? L'heure est la même quelque soit la semaine (c'est ce qu'on appelle un concept)
de la nuit
=> Sans doute prévoir à un endroit donné les heures de nuit.
Par ex, tu considères que le début de la "nuit" est à 20h, la fin à "07h"
Tu contrôles si les dates de début et de fin sont dans la fourchette ou non, et tu distribues avec une condition (un IF ou un SELECT CASE, voire en formules EXCEL mais je vais me faire taper ^^)
et du week-end
=> Idem, prévoir les jours de week-end (Samedi Dimanche sans doute, mais ça pourrait être dimanche lundi même si le week-end deviendrait plutôt le week-start ?
Et comparer les jours (il y a des fonctions VBA pour ça, mais aussi une formule EXCEL qui ressort un n° de jour, suffit de faire là encore un IF ou un SELECT).
ainsi que du type d'assistance
=> Alors là ... Toi tu sais sans doute de quoi tu causes, mais nous ...
En résumé, sois précis et tu auras une réponse précise.
Soit flou et ...
Molenn
P.S. : A mon avis, la réponse de Mortalino doit pouvoir s'adapter à tes besoins mais : c'est du pur VBA et à te lire, je doute que tu ne maîtrises (ce n'est aucunement une critique : je me débrouilles nettement mieux avec des formules qu'un userform pour ma part ).
On en revient à la même réflexion : avec si peu d'éléments, difficile d'avoir une réponse constructive
Vous n’avez pas trouvé la réponse que vous recherchez ?
mortalino
Messages postés6786Date d'inscriptionvendredi 16 décembre 2005StatutMembreDernière intervention21 décembre 201118 4 sept. 2006 à 10:04
En fait mon code sert à gérer mon tour de service et les heures majorées.
Si je l'ai posté (et encore, il n'y a qu'une partie) c'est surtout pour montrer qu'il n'y a pas de code tout fait, le code s'adapte suivant PLUSIEURS paramètres qui te sont propres à toi, et qu'un code tout fait n'existe pas.