Dans cet article, vous apprendrez comment entrer les jours de la semaine, c’est-à-dire du lundi au vendredi automatiquement en utilisant le code VBA dans n’importe quelle colonne.

Cliquez sur l’onglet Développeur Dans le groupe Code, sélectionnez Visual Basic

img1

Cliquez sur Insérer, puis sur Module

img2

Cela créera un nouveau module.

Entrez le code suivant dans le module

Sub WeekendOut ()

Dim Start As Date, Off As Date

Dim y%, i #

Début = InputBox (« Date de début: »)

Off = InputBox (« Date de fin: »)

===

For i = Start To Off

y = y + 1

Si Jour de la semaine (i, 2) <6 Alors

Cellules (y, 2) = Format (i, « mm-jj-aa »)

Cellules (y, 1) = Format (i, « dddd »)

ElseIf Weekday (i, 2) = 6 Then

Sinon

y = y – 1

Fin si

Suivant i

End Sub

===

img3

Appuyez sur la touche de raccourci ALT + F8 pour ouvrir la fenêtre Macro, puis sélectionnez la macro.

img4

Vous pouvez également appuyer sur F5 pour exécuter le code dans l’écran VBA.

Après avoir exécuté la macro, nous obtiendrons la boîte de saisie suivante Nous devons entrer la date de début au format MM / JJ / AAAA

img5

Ensuite, le code demandera d’entrer la date de fin

img6

img7

Par conséquent, nous obtiendrons le jour de la semaine dans la colonne A et la cellule suivante stockera la date.

De cette façon, vous pouvez facilement entrer les jours de la semaine sans ressentir de douleur manuelle.