Incrément date VBA

Salut à tous,

Je souhaite créer un planning en VBA avec des contrôles (ajout d'un collaborateur, suppression, création de tâche, suppression etc)

Dans un premier temps, je souhaite afficher, en haut de mon planning (dans deux ou trois cases fusionnées) le numéro de la semaine en cours. Sur la ligne en dessous, afficher le Lundi de la semaine en cours, puis le Dimanche (le tout séparé par un tiret). Je souhaiterais pouvoir faire défiler les semaines (donc le numéro de la semaine et le Lundi et Dimanche affiché en fonction) en avant ou en arrière avec un bouton de part et d'autre de mes cellules.

J'ai testé pas mal de méthodes mais je n'arrive à aucun résultat concluant.

Quel serait le meilleur procédé pour arriver à ce résultat ? (fonction, sub, code utilisés...)

Cordialement,

Bonjour,

Citation:

---

Envoyé par CedBlandam

Salut à tous,

Je souhaite créer un planning en VBA avec des contrôles (ajout d'un collaborateur, suppression, création de tâche, suppression etc)

---

Tu n'es vraiment pas le premier:

Citation:

---

(dans deux ou trois cases fusionnées)

---

Les cellules fusionnées sont une vraie plaie avec VBA. Préférer "Centrer sur plusieurs colonnes". Quoi qu'il en soit, c'est une affaire de rien à réaliser avec l'enregistreur de macros

Citation:

---

le numéro de la semaine en cours

---

Ah ça c'est (peut-être) plus problématique. Si tu veux le numéro de semaine qui ne tient pas compte de la norme ISO, il y a weeknum dans l'aide de VBA. Sinon, et comme je m'en sacre (je n'en ai pas besoin chez-moi) de la nome ISO, tu trouves l'algorithme pour le calculer, ou un volontaire pour te fournir le code

Bonjour,
Pour calculer le n° de la semaine de la date du jour aux normes ISO
Pour les versions antérieures à 2010

Code:

---

=ENT((AUJOURDHUI()-SOMME(MOD(DATE(ANNEE(AUJOURDHUI()-MOD(AUJOURDHUI()-2;7)+3);1;2);{1E+99;7})*{1;-1})+5)/7)

---

Depuis la version 2010

Code:

---

=NO.SEMAINE(AUJOURDHUI();21)

---

Pour calculer le lundi de la semaine en cours

Code:

---

=AUJOURDHUI()-JOURSEM(AUJOURDHUI()-1)+1

---

[EDIT]
Un petit exemple rapide pour faire défiler les semaines sans code VBA (Cet exemple part de la semaine en cours)
Imaginons que le lundi de la semaine se trouve se trouve en cellule B2
Tu dessines le contrôle formulaire Barre de défilement sur ta feuille et dans la boite de dialogue Format de contrôle, tu modifies les propriétés
Valeur minimale : 0, Valeur maximale : 280, Changement de pas : 7, Changement de page : 28, Cellule cible : $E$2
En cellule C2 la formule suivante

Code:

---

=B2+E2

---

Dans cet exemple, on part de la semaine en cours et on peut faire défiler les 40 semaines suivantes.

Excel n'est pas du tout un bon outil pour créer un planning. Il existe des outils pas très cher qui font ça très bien sans avoir à rien bidouiller.
Avec Excel, tu vas consommer des centaines d'heures pour obtenir un truc avec une stabilité de guingois alors que tu aurais gagné ton temps (et ton argent) à acheter un outil de planification tout fait.

Merci à tous pour vos réponses. J'ai réussi à obtenir ce que je souhaitais.

Menhir, la question n'est pas de savoir si je perds du temps ou pas ! Je souhaite le faire sous Excel afin de m'améliorer en VBA et parce qu'Excel est GRATUIT et que ce projet n'est pas pour moi ;)

Les centaines d'heures ne sont pas un problème pour moi, je mettrai du temps, mais je réussirai.

Merci encore à tous :)

Bonjour,

Citation:

---

J'ai réussi à obtenir ce que je souhaitais.

---

Il est toujours sympathique de faire partager ses découvertes.

Citation:

---

et parce qu'Excel est GRATUIT

---

Première nouvelle. Libre Office et Ooo Office sont gratuits, la suite Office j'en doute