Microsoft 365 Erreur code Vba

Irina1009 · 29 Novembre 2023

Bonjour à tous,

J'ai commencé à créer ce tableau afin de faciliter le pointage d'heures. Lorsque je clique sur les flèche bleues pour changer le mois, la formule =DATE(B2;1;1) située en D6 disparait.
Pouvez-vous m'aider à ce sujet svp ? Idem lorsque par exemple je remplis les heures dans les colonnes de G à J, celles-ci restent même si je change de mois... Il faudrait qu'elles s'effacent lorsqu'on change de mois et qu'elles reviennent pour pouvoir inscrire celles qui correspondent au mois choisi et revenir dessus lorsqu'on recherche.

Comme je débute en Vba je ne sais pas encore bien utiliser les codes.
Je voudrait aussi dans l'onglet Synthèse annuelle les éléments du premier onglet puissent apparaitre.

Merci d'avance pour vos conseils et explications.

Phil69970 · 29 Novembre 2023

Bonjour @Irina1009

Je te propose ceci qui correspond à ta demande originale !
Tu as modifié ta demande originale ..... et c'est pas bien ....

Comme j'ai fait un fichier sur ta 1ere demande je le poste

Merci de ton retour

Irina1009 · 29 Novembre 2023

Phil69970 à dit:
Bonjour @Irina1009

Je te propose ceci qui correspond à ta demande originale !
Tu as modifié ta demande originale ..... et c'est pas bien ....

Regarde la pièce jointe 1184991

Comme j'ai fait un fichier sur ta 1ere demande je le poste

Regarde la pièce jointe 1184993

Merci de ton retour

Merci Phil69970 !
Je vais essayer de comprendre le code Vba que tu m'as gentiment fourni histoire de ne pas copier sans savoir à quoi cela correspond.

Ensuite oui j'avoue j'ai modifié mon post initial ...
Il faudrait que lorsque je remplis les heures dans les colonnes de G à J que celles-ci s'effacent lorsqu'on change de mois et qu'elles reviennent si on revient en arrière.

Merci d'avance.

Dranreb · 29 Novembre 2023

Bonjour.
Pour qu'elles puissent revenir ils faudrait qu'elles soient enregistrées quelque part avant qu'on change le mois !
Comme ça par exemple.

Irina1009 · 30 Novembre 2023

Merci Dranreb !Oui cela est parfait ! Par contre pourrais-je avoir de l'aide sur ce débogage ?

Merci.

Dranreb · 30 Novembre 2023

Ajouté un message au cas où on tente de remonter antérieurement à la plus ancienne date de sauvegarde existante.

Irina1009 · 30 Novembre 2023

Dranreb à dit:
Ajouté un message au cas où on tente de remonter antérieurement à la plus ancienne date de sauvegarde existante.

Merci beaucoup Danreb Tout est parfait.
J'aimerais vraiment être plus à l'aise avec le VBA je me forme petit à petit...

Merci à tous pour l'aide.

Irina1009 · 1 Décembre 2023

Bonjour,

Je voudrais savoir si on peut ou même si on DOIT mettre les formules situées Dans les colonnes K - L -M dans le code VBA ?
Car elles disparaissent quand on change de mois.

Les formules sont les suivantes :
Colonne K

Nb heures =[@[M. Fin]]-[@[M. Début]]+[@[AM. Fin]]-[@[AM. Début]]

Colonne L

Heures Contrat =SI(JOURSEM([@Date])=1; "00:00"; SI(JOURSEM([@Date])<=5; "07:30"; SI(JOURSEM([@Date])=6; "07:00"; "00:00")))

Colonne M

Heures. Supp =SI(ET(NON(ESTVIDE([@[M. Début]])); NON(ESTVIDE([@[M. Fin]])); NON(ESTVIDE([@[AM. Début]])); NON(ESTVIDE([@[AM. Fin]])); [@[Nb heures]]<>[@[Heures Norm]]; [@[Nb heures]] - [@[Heures Norm]]<>0); [@[Nb heures]] - [@[Heures Norm]]; "")

Est-ce qu'on pourrais écrire un truc du genre :

With ThisWorkbook.Worksheets("Pointage")
.Range("K6").Formula = "=[@[M. Fin]]-[@[M. Début]]+[@[AM. Fin]]-[@[AM. Début]]
End With

Et ceci pour chaque formule...

Désolée si je dis des inepties mais je débute et essaye de comprendre.

Merci d'avance.

Dranreb · 1 Décembre 2023

Bonjour
J'avais bien pensé que ces colonnes allaient comporter des formules et ne devaient donc pas être sauvegardées.
J'avais mis en attendant des formules qui me semblaient appropriées, et je m'étais aussi occupé de la feuille synthèse qui a disparu ?
Je le joins dans cet état, puis vérifie si j'avais les bonnes formules.

Irina1009 · 1 Décembre 2023

Cela commence à être super bien. J'ai mis mes formules car il faut qu'en fonction du jour en colonne C, Le nombre d'heure dans la colonne L change. Du lundi au jeudi c'est 7,30 / jour et le vendredi 7H. Du coup les Heures supplémentaires également si il y a lieu.
Cependant en mettant mes formules j'obtiens une erreur dans le code pour la Synthèse annuelle.

Merci.

Dranreb · 1 Décembre 2023

Ah oui, hou là, je l'ai joint alors qu'il était en mise au point.
Cette instruction est à supprimer.

Dranreb · 1 Décembre 2023

Bon. On ne peut pas afficher des heures négatives avec ce format.
Alors j'ai eu l'idée d'ajouter une colonne du cumul des heures supplémentaires de la semaine.

Irina1009 · 1 Décembre 2023

Dranreb à dit:
Bon. On ne peut pas afficher des heures négatives avec ce format.
Alors j'ai eu l'idée d'ajouter une colonne du cumul des heures supplémentaires de la semaine.

Merci beaucoup Dranreb !

Ce fichier est super !

Merci pour l'aide précieuse.

Irina1009 · 1 Décembre 2023

Par contre pourrais-je avoir une traduction du code VBA ?
Sur tout celui de la synthèse Annuelle.

Merci.

Dranreb · 1 Décembre 2023

Comprendrez-vous mes commentaires si vous ne comprenez pas le code ?
Mettez des commentaire sur les instructions à commenter tel que vous croyez les comprendre, et je corrigerai …
Je vous propose juste ça : comme base de départ importante :

VB:

Option Explicit
Private Sub Worksheet_Activate()
   Dim TSvg(), LS As Long, TRés(), LR As Long, M As Long
   Sauvegarde ' Pour prendre en compte les données actuelles de la feuille Pointage
   TSvg = [TabSvg].Value: LS = 1
   ReDim TRés(1 To UBound(TSvg, 1) \ 28, 1 To 4)
   Do ' Début mois
      LR = LR + 1: TRés(LR, 1) = Year(TSvg(LS, 1)): TRés(LR, 2) = TSvg(LS, 1)
      M = Year(TSvg(LS, 1)) * 12 + Month(TSvg(LS, 1))
      Do ' Détail jour
         TRés(LR, 3) = TRés(LR, 3) + TSvg(LS, 3) - TSvg(LS, 2) + TSvg(LS, 5) - TSvg(LS, 4)
         TRés(LR, 4) = TRés(LR, 4) + TSvg(LS, 6)
         LS = LS + 1: If LS > UBound(TSvg, 1) Then Exit Do ' Incrément ligne et sortie si dépasse dim tableau
         Loop Until Year(TSvg(LS, 1)) * 12 + Month(TSvg(LS, 1)) > M ' Fin mois
      Loop Until LS > UBound(TSvg, 1) ' Fin tableau
   Me.ListObjects(1).DataBodyRange.Resize(LR).Value = TRés
   End Sub

Microsoft 365 Erreur code Vba

XLDnaute Nouveau

Pièces jointes

XLDnaute Barbatruc

Pièces jointes

XLDnaute Nouveau

XLDnaute Barbatruc

Pièces jointes

XLDnaute Nouveau

Pièces jointes

XLDnaute Barbatruc

Pièces jointes

XLDnaute Nouveau

XLDnaute Nouveau

Pièces jointes

XLDnaute Barbatruc

Pièces jointes

XLDnaute Nouveau

Pièces jointes

XLDnaute Barbatruc

XLDnaute Barbatruc

Pièces jointes

XLDnaute Nouveau

XLDnaute Nouveau

XLDnaute Barbatruc

Discussions similaires