Contenu récent par Jgral

Yes merci encore

Oui oui mais ce sera toujours dans le format 1 chiffre suivi d'une lettre.

Merci à vous deux pour votre aide la solution proposée par CISCO me paraît répondre à merveille à ma demande

Si je ne suis toujours pas assez clair n'hésitez pas à me demander j'ai vraiment besoin d'un coup de main svp

Je souhaite pour chaque ligne pouvoir calculer le nombre d'heure normale : c'est-à-dire le nombre d'heure faite des lundis au vendredis (dans la limite de 8h pour tous les jours sauf le vendredi dans la limite de 7h). Ce qui devrait me permettre de déduire le nombre d'heure sup. Exemple ...

Bonjour, Actuellement j’additionne les heures en fonction du type "E", "T" ou "I"de façon brute. Je souhaite pouvoir récupérer le nombre d'heures supplémentaires (avec 8h du lundi au jeudi et 7 le vendredi). Dans mon cas les WE ne sont normalement pas travaillés mais je souhaite pouvoir y...

Niquel Merci beaucoup

Sachant que je prend la ligne de F jusqu'a AJ pour compter aussi sur le week end si il y a quelque chose.

Le voici saisi automatiquement par une macro.qui affiche 8 pour les lundis, mardis, mercredis, jeudi et 7 pour les vendredis le tout suivi d'une lettre en fonction de la colonne AL. Je souhaite pouvoir additionner tous les E, I et T entre eux en prenant pour valeur le chiffre qui va les...

Bonjour, Je vous sollicite sur un problème de formule. Je ne veux pas le faire par macro. Voici mon problème : Je souhaite additionner pour les jours inférieurs ou égal à aujourd'hui les valeurs de la dernière ligne par type (il peut y avoir 8T ou 8I par exemple). En clair je souhaite...

Merci ça fonctionne niquel j'ai un peu modifié le code pour faire exactement ce que je souhaitais : Dim i As Integer For i = 1 To UserForm5.Controls.Count If i < 2 Or (i > 4 And i < 18) Then If Me("CheckBox" & i) Then...

Bonjour, J'en convient mon titre est long :) Comme je le dis dans le titre je souhaite récupérer les valeurs des CheckBox présentent dans le UserForm5 (cliquer sur TRAVAUX CLIENT à gauche) afin de les écrire dans une zone de texte générée. Sub zone_de_txt04() L = ActiveCell.Column '<--...

Ca fonctionne à merveille merci Job75 !!!!

Bonjour et merci pour votre retour. J'ai testé votre code ci-dessus en le modifiant légèrement : Private Sub CommandButton9_Click() Dim chemin$ chemin = ThisWorkbook.Path If Dir(chemin, vbDirectory) = "" Then MkDir chemin With Me.PageSetup .Orientation = xlLandscape .PrintTitleRows =...

Merci de votre réponse . Pour le 1er problème : Comment utilise t-on cela car je ne vois pas comment l'intégrer dans cette ligne : ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="C:\Users\jgral\Desktop\Photos MALATAVERNE\Etude Technique.pdf", Quality:=xlQualityStandard...