userform et barre de défilement

[jopont]

Dans le fichier ci-joint j'ai dune macro chargé de calculer un temps de présence en fonction de deux pourcentages d'heures.

Les pourcentages s'incrémentent grâce à deux barres de défilements et l'affichage se fait dans une zone txt.

Le Nombre d'heure en G24 se divise par 16 et se multiplient par 24.

ça ne focntionne pas

merci

 

[jp14]

Re : userform et barre de défilement

Bonjour

Dans le fichier ci-joint j'ai dune macro chargé de calculer un temps de présence en fonction de deux pourcentages d'heures.

Les pourcentages s'incrémentent grâce à deux barres de défilements et l'affichage se fait dans une zone txt.

Le Nombre d'heure en G24 se divise par 16 et se multiplient par 24.

ça ne focntionne pas

merci

Que doit-on obtenir ?

Le type de données dans un "textbox" est de type alpha. quand on désire les utiliser dans des opérations numériques il faut les transformer en valeur numérique en utilisant une fonction de type Cxxxx : CCUR, CLNG
JP

 

[jopont]

Re : userform et barre de défilement

Je me ré-explique, il est vrai que je n'ai pas été très clair.

On rentre un nombre d'heure de travail
On rentre un nombre d'heure de formation à déduire.
On obtient la différence= heure de garde

On choisit deux taux à appliquer à heure de garde
Les taux sont reglés par défaut à 71, 94 % et 28.06 %
Les taux peuvent être réglés par les barres de défilement ou entrés directement dans la zone de texte.


Une fois que l'on a obtenu le nombre d'heure pour chaque pourcentage, onfait l'addition suivante :

Presence = ((nombre d'heure G24 /16)*24) + nombre d'heures G12

merci

 

[jp14]

Re : userform et barre de défilement

Bonsoir

Je me ré-explique, il est vrai que je n'ai pas été très clair.

On rentre un nombre d'heure de travail
On rentre un nombre d'heure de formation à déduire.
On obtient la différence= heure de garde
....................................

Presence = ((nombre d'heure G24 /16)*24) + nombre d'heures G12
merci

Un exemple avec des valeurs permettrait de tester l'usf de saisie.

Ci dessous un exemple de traitement pour traiter des textbox

Private Sub TXT_Garde_Enter()
If TXT_Horsgarde = "" Then TXT_Horsgarde = 0
If IsNumeric(TXT_Heurew) And IsNumeric(TXT_Horsgarde) Then
TXT_Garde = CCur(TXT_Heurew) - CCur(TXT_Horsgarde)

Else
Call MsgBox("Vous devez inscrire des valeurs numériques au niveaux des heures", vbInformation, Application.Name)

End If
End Sub

JP

 

[jopont]

Re : userform et barre de défilement

ok et pour le reste ça donneerait quoi ?

A quoi correspond Ccur ?

merci

 

[jp14]

Re : userform et barre de défilement

ok et pour le reste ça donneerait quoi ?

A quoi correspond Ccur ?

merci

CcUR est un format numérique avec 4 chiffres après la virgule sans passage à la notation type ingénieur : xxxxE5

JP