Boostez vos compétences Excel avec notre communauté !
Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force.
Apprenez, échangez, progressez – et tout ça gratuitement !
👉 Inscrivez-vous maintenant !
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.
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
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
VB:
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
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
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
- Navigue sans publicité - Accède à Cléa, notre assistante IA experte Excel... et pas que... - Profite de fonctionnalités exclusives Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel. Je deviens Supporter XLD