Probleme avec les dates

Question

Je me décide a demander votre aide car je ne trouve pas ou ne vois pas ce qui pourrais m'aider... le projet : _ un tableur "planning annuel" congés, maladie, rtt, autre . ===&gt;4 boutons, qui colorisent les cellules + 1 pour enlever la couleur (fait avec l’enregistreur de macro) ===&gt;12 liens pour naviguer entre jan, fev, mars, avr ect... ne marche plus car j'ai renommé la feuille (a refaire) ===&gt; je doit encore ajouter un bouton save pour faire simple. _ un tableur "matrice" pour le planning hebdomadaire ===&gt; tableur simple pour la distribution des taches journalières , avec un bouton qui gère ce qui suit: =======&gt;Ajoute une feuille (copie la matrice ) =======&gt;la nome (semaine 1, semaine 2, ect ... du titre donner au tableur) =======&gt;imprime x3 (non active pour les tests) =======&gt;sup le bouton de la macro =======&gt;semaine+1 (le titre passe a la semaine suivante ) =======&gt;efface les taches non récurrente de la "matrice" (vide le tableur) =======&gt;ajoute +7 jour au jours de la semaine (la ça bug) mon problème c'est les dates de la semaine... ma méthode saute le 31 janvier, mème si je suis content de moi sur le reste j'ai mal réfléchis... croire que 31+7 ça pouvais faire 1 le code que j'utilise , les note sont la pour éviter d'oublier les actions de chacune. Sub nouvel_feuil() ' ' nouvel_feuil Macro ' msg = "n'aies pas peur tout va bien se passer !" ' Définit le message. Style = vbOKCancel + vbDefaultButton1 'Définit les boutons. Title = "Salut toi !" ' Définit les titres. Réponse = MsgBox(msg, Style, Title) If Réponse = vbOK Then 'si oui 'fait copy de matrice et renone avec les valeurs dans la dite cellule Sheets("matrice").Copy After:=Sheets(2) 'Before:=Sheets(2) ActiveSheet.Name = &#91;'matrice'!a1&#93; &amp; &#91;'matrice'!j1&#93; 'tests suppression du boutton With ActiveWorkbook .ActiveSheet.DrawingObjects(1).Delete End With 'fin du test 'imprime en trois exemplaire , avant de revenir sur la matrice 'ActiveWindow.SelectedSheets.PrintOut Copies:=3, Collate:=True 'Imprime 3 exemplaire Sheets("matrice").Select 'activation de feuille matrice Range("j1") = Range("j1") + 1 'donne +1 pour le numéros de la semaines 'ici j'ai un problème sur les jours de la semaine... 'ma méthode dépasse les 30 &amp; 31 jour d'un mois Range("A3") = Range("a3") + 7 Range("E3") = Range("E3") + 7 Range("H3") = Range("H3") + 7 Range("K3") = Range("K3") + 7 Range("N3") = Range("N3") + 7 Range("Q3") = Range("Q3") + 7 Range("R3") = Range("R3") + 7 Range("C8:D30,F8:G30,I8:J30,L8:M30,O8:O30").Select ' nettoyage du tableur pour la semaine suivante selection.ClearContents End If End Sub une petite info , je n'ai aucune base en vba j'ai tout pompé a droite & gauche . j’arrive juste a avoir quelque repaire sur des actions simples, si vous avez une solution a mon problème je prend ! enfin voila merci de votre aide...

Theze · Answer

Je ne comprend pas trop ce que tu veux faire mais Excel (et donc VBA) possède de nombreuses fonction pour le calcul des dates, utilise les. Si tu ne les connais pas, tu tapes ce type de ligne dans la fenêtre d'exécution après avoir entré la formule en Français dans la cellule. Exemple avec la formule "=NO.SEMAINE(B1;2)" en B2 où B1 contient une date valide et dans la fenêtre d'exécution tu entres cette ligne de code (avec le point d'interrogation) : ?Range("B2").Formula puis appui sur Entrée et tu as en dessous la réponse est : =WEEKNUM(B1,2) Et tu peux alors tester avec : Sub Test() MsgBox Application.WeekNum(DateValue("18/12/2016"), 2) End Sub ou DateValue() retourne une date valide...

MFerrand · Answer

Je pense toujours préférable de déconseiller le recours à Microsoft pour le calcul du numéro de semaine. Ce dernier a toujours montré sa négligence des règles européennes en la matière et aucune de ses fonctions n'est totalement exempte de bogue... De même qu'il n'a jamais montré un attachement à un traitement de précision en matière de dates, d'où les différences entre Excel et VBA et les limitations d'Excel en la matière, mais c'est un autre sujet. On ne manque pas de moyens de calculer le numéro de semaine, exactement, aussi bien pour les siècles passés que pour autant de siècle à venir qu'on voudra, calcul relativement simple qui permet de se passer de faire appel à de mauvaises solutions. Function NSEM(d As Date) As Integer Dim dref Application.Volatile dref = DateSerial(Year(d + (8 - Weekday(d)) Mod 7 - 3), 1, 3) dref = dref - Weekday(dref) + 2 NSEM = (d - dref) \ 7 + 1 End Function Cordialement...

Curulis · Answer

@MFerrand, ce n'est pas possible : ou tu ne bois jamais ou tu as un cerveau à rallonge, toi...

MFerrand · Answer

On en reparlera !!! Ça ne me dit toujours pas ce qu'est le peket ? Castagnou je vois mieux, encore que ! Je n'ai pas encore fait de choix pour me concocter un cocktail de fin d'année.....

Curulis · Answer

@MFerrand, la prochaine rafale, ce sera pour moi! https://www.wikiwand.com/fr/Peket Castagnou = kir châtaigne... à tomber! Eh, Neurone, à ta santé...

MFerrand · Answer

Merci pour l'info ! Je connaissais pas ce nom mais j'apprécie la chose.....

MFerrand · Answer

Puisque tu t'es trouvé une solution, on verra le reste plus tard peut-être... Bonne journée...

MFerrand · Answer

De rien ! (pour le moment).

Si je trouve un moment, je commencerai par rendre ton calendrier réinitialisable annuellement... et dans la mesure où ta disposition complique les mises en forme faites habituellement par MFC (grand nombre de MFC), je pense qu'il pourrait être plus simple d'y procéder par macro...

Cordialement.