Suivi du planning et de l'activité du personnel

Bonjour,

Merci pour tout.

Je crois que la version téléchargeable est déjà corrigée à moins que j'ai oublié de le faire...

En effet cela avait déjà été signalé.

@ bientôt

LouReeD

Bonjour et meilleur voeux.

Je rencontre le même problème que Moul, l'erreur en cliquant sur "Aujourd'hui"

Je n'ai pas réussi à trouver comment réparer.

Bonsoir,

faut vraiment que je vérifie la version en téléchargement !

Sinon la correction est simple si vous n'avez pas peur d'aller dans l'éditeur VBA.
Voici la correction des codes, il suffit de remplacer les deux procédures existantes par celles-ci, j'attend votre retour pour me dire si cela fonctionne :

Sub aujourdhui()
    Application.ScreenUpdating = False
    Dim I As Integer
    I = [debut].Column
    If Now < [debut].Value Then
        ActiveWindow.ScrollColumn = I
    Else
        Dim semaine_cherchée As String
        semaine_cherchée = [la_semaine]
        Do
            If ActiveSheet.Cells([debut].Row - 6, I).Value = semaine_cherchée Then
                If I > 11 Then
                    ActiveWindow.ScrollColumn = I - 11
                Else
                    ActiveWindow.ScrollColumn = [debut].Column
                End If
                Exit Do
            End If
            I = I + 7
            If I > 366 Then
                Application.ScreenUpdating = True
                Exit Do
            End If
        Loop
    End If
End Sub
Sub aujourdhui_agenda()
    Application.ScreenUpdating = False
    Dim I As Integer
    I = 4
    If Year(Now) < [An] Then
        ActiveWindow.ScrollColumn = I
    Else
        Dim semaine_cherchée As String
        semaine_cherchée = "Semaine " & Format([la_semaine], "00")
        Do
            ActiveWindow.ScrollColumn = I
            If ActiveSheet.Cells(2, I).Value = semaine_cherchée Then Exit Do
            I = I + 7
            If I > 366 Then
                Application.ScreenUpdating = True
                Exit Do
            End If
        Loop
    End If
    Application.ScreenUpdating = True
End Sub

@ bientôt

LouReeD

Normalement la valeur de la cellule nommée [La_Semaine] a une valeur numérique, la ligne des semaines de la feuille planning a aussi des valeurs numérique mais avec un format "affiché sur deux digits", donc les tests devraient être bon, mais c'est tordu car comme Moul l'a indiqué, je paramètre une variable en String !

@ bientôt

LouReeD

Bonsoir,

merci Sébastien pour la rapidité de validation de la version 1.3 !

Donc normalement, la version en téléchargement ne devrait pas avoir de soucis au niveau des fonctions aujourd'hui pour le planning et aujourdhui_agenda pour les feuilles agenda.

En écrivant ceci je me rend compte que ce n'est même pas la version "feuille Agenda unique" ! tout comme la feuille annuelle !

Je vais attendre un peu avant de mettre en validation la nouvelle version 2 le temps de la "nettoyer" des données inscrites...

@ bientôt

LouReeD

Parfait j'ai essayer et cela fonctionne.
Je t'en remercie, ton agenda et top

PS : Par contre je comprend rien en VBA j'ai juste recopier et ça a fonctionner

Bonjour

En 2008 je ne connaissais pas grand chose non plus, après je me suis inscrit sur le site en 2014 et j'ai commencé à répondre à côté de la plaque aux questions puis j'ai lu et relu les réponses des "grands" d'ici, et j'ai créer de plus en plus de programmes et maintenant j'arrive à peu près à faire ce que je souhaite sous Excel (les jeux m'ont bien aidé à tout ceci). Bin je ne suis pas "conventionnel" sur l'ecriture VBA, mais ça fonctionne (pas toujours dans le bon sens !)

En gros avec de la pratique on arrive à augmenter son niveau... J'ai des lacunes : powerquery, gestion de fichier/classeur, vocabulaire technique VBA, mais bon je fais avec... Enfin sans !

@ bientôt

LouReeD

Bonjour et meilleurs vœux pour 2022

Un grand merci pour ce planning sous excel. Je l'ai utilisé sans problème l'année dernière mais cette année j'ai un problème quand je veux saisir une activité, est ce dû au passage à office 365 ? voici mon problème

Lorsque je veux saisir une activité il y a une erreur d'exécution

Pouvez vous m'expliquer quel est le problème, je ne m'y connais pas trop en VBA et je ne m'explique pas trop ce qui a pu changer entre l'année dernière et maintenant si ce n'est un passage à office 365

Merci ide votre aide et encore un grand merci pour cette application sous excel

Cric69

J'ai trouvé mon erreur. En début d'année j'ai du changer le séparateur de liste de ";" à "," pour pouvoir créer des csv

Je viens de remettre le séparateur de liste à ";" et tout refonctionne normalement.

Merci et désolé du dérangement

Bonsoir,

j'en apprends tous les jours !

@ bientôt

LouReeD

Bonjour @ tous !

Et bien, ma "locomotive" de téléchargements s'essouffle un peu ! Je le vois grâce au statistiques que Sébastien a mis en place : de près de 2000 téléchargements mensuel je suis passé à 800/1000... Il faut vraiment que le le reprenne voir même comme dit un peu plus haut de mettre en téléchargement la version "feuille unique" ! A vrai dire je ne sais plus trop où j'en suis, je commence à décrocher le "Pratique" !

Vivement que l'hivers arrive, moins de chose à faire en extérieur !

@ bientôt

LouReeD