Editeur de planning annuel V1

[ChRouan]

ChRouan a soumis une nouvelle ressource:

Editeur de planning annuel - Gestion d'activités ou de ressources sur un ou plusieurs jours.

Encore un calendrier direz-vous !
Dans ce planning j'ai essayé de simplifier au maximum la création de chaque calendrier annuel, mais également la gestion des activités (création, modification, suppression) pour tout ce qui concerne leur mise en forme (couleur, texte,...) en privilégiant l'usage du clic droit.
Ce calendrier prend en compte les jours fériés fixes et mobiles français.

En savoir plus sur cette ressource...

 

[yves57]

ChRouan a soumis une nouvelle ressource:

Editeur de planning annuel - Gestion d'activités ou de ressources sur un ou plusieurs jours.



En savoir plus sur cette ressource...

bonjour,
très beau boulot, soigné et facile à utiliser.
y a t'il un moyen de mettre des événements annuels qui seraient automatiquement reconduit
à bientôt

 

[oguruma]

ChRouan a soumis une nouvelle ressource:

Editeur de planning annuel - Gestion d'activités ou de ressources sur un ou plusieurs jours.



En savoir plus sur cette ressource...

Bonjour
Good Job - simple - synthétique - mais possibilité d'ajouter une tranche horaire ? comme ceci

Peut-être que tu y a pensé et que techniquement c'est impossible ?

mais pas très contributif et collaboratif le fait de cacher son code hein ? bon.... sache que le mot de passe se fait sauter facilement 😉 avec un peu d'expérience....
le principe est aussi le partage de l'expérience et du savoir - mes sources ne sont pas protégées
donc là immense déception

Voici un exemple de source qui devrait te parler 🙂 désolé c'était plus fort que moi trop tentant 😀 😉 🙂
Bon je te rassure je ne vais pas publier ton fichier débridé avec ton code 😉 je te laisse la décision

Private Function xjour(annee As Integer) As Integer
  
    Dim a, b, c, d, e, f, g, h, i, k, l, m, n, p As Integer
  
    If annee < 1582 Then
        a = annee Mod 4
        b = annee Mod 7
        c = annee Mod 19
        d = (19 * c + 15) Mod 30
        e = (2 * a + 4 * b - d + 34) Mod 7
        n = Int((d + e + 114) / 31)
        p = d + e + 114 - 31 * n
    Else
        a = annee Mod 19
        b = Int(annee / 100)
        c = annee - 100 * b
        d = Int(b / 4)
        e = b - 4 * d
        f = Int((b + 8) / 25)
        g = Int((b - f + 1) / 3)
        h = (19 * a + b - d - g + 15) Mod 30
        i = Int(c / 4)
        k = c Mod 4
        l = (32 + 2 * e + 2 * i - h - k) Mod 7
        m = Int((a + 11 * h + 22 * l) / 451)
        n = Int((h + l - 7 * m + 114) / 31)
        p = h + l - 7 * m + 114 - 31 * n
    End If
  
    xjour = p + 1
      
End Function

juste pour ton info
Dim a, b, c, d, e, f, g, h, i, k, l, m, n, p As Integer

p est le seul à être Integer
les autres sont des types variant 😉
il faut typer chaque variable avec un as
exemple Dim a as integer, b as integer, c as integer

 

[Dand87]

Ah zut! J'ai office 365 famille! Devrais-je aller à la version "Premium"?

 

[oguruma]

Ah zut! J'ai office 365 famille! Devrais-je aller à la version "Premium"?

Regarde la pièce jointe 1224078

J'ai aussi O365 et ça fonctionne - ma version :

essaie de revoir

sélectionner

je crains que cette option soit activée

dans la foulée

 

[Dand87]

J'ai aussi O365 et ça fonctionne - ma version :
Regarde la pièce jointe 1224085


essaie de revoir

Regarde la pièce jointe 1224080
Regarde la pièce jointe 1224081

Regarde la pièce jointe 1224079

sélectionner Regarde la pièce jointe 1224083

je crains que cette option soit activée Regarde la pièce jointe 1224082

dans la foulée
Regarde la pièce jointe 1224084

Bon, j'ai un autre info..., je suis sur MAC! J'ai renouveler dernièrement de la version Familiale à Premium.
Voici ce que j'ai comme version

Et sur la sécurité:

Je n'ai pas de tableau/paramètre sur ActiveX

 

[oguruma]

Bon, j'ai un autre info..., je suis sur MAC! J'ai renouveler dernièrement de la version Familiale à Premium.
Voici ce que j'ai comme version
Regarde la pièce jointe 1224096
Et sur la sécurité:
Regarde la pièce jointe 1224097
Je n'ai pas de tableau/paramètre sur ActiveX

Ah ok MAC ? Je sors pas mon bisness désolé "beurk" lol