Bonjour à tous,
Etudiant en agronomie, j'essaye d'apprendre le VBA sans grande prétention.

Dans le cadre d'un stage en entreprise, j'essaye de programmer un macro de gestion des ventes. L'entreprise livre des paniers de légumes aux clients de façon hebdomadaire. Ceux-ci sont parfois absent et nous communiquent leurs dates d'absence.

Je e programme un compteur avec VBA qui fait la somme des paniers de légumes à livrer chaque jour, puis une macro qui soustrait les clients étant absent le jour J.

Voici le code que j'ai employé pour soustraire les clients :
code :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub dday()
Dim x As Date, a As Integer
a = 1
 
While a < 500
 
Cells(a, 2).Value = x
If x = today Then
Cells(1, 6).Value = Cells(1, 6) - 1
Else
 
End If
a = a + 1
 
Wend
 
End Sub
Seulement, ce code remplace la date saisie par la date du jour et en conséquence ne fonctionne pas. Pouvez vous m'aider ?

Merci de votre aide !

misterW