Discussion :

[devdev]

Bonjour,
Je travaille sur un doc excel, mais voilà bien longtemps que je n'ai plus fait de macro.
Je voudrais, avant qu'un fichier excel soit enregistré, insérer une date du jour dans une cellule ( format MM/AAAA ), pour toutes les lignes d'un tableau. ( le tableau peut comporter plus ou moins de lignes )
Ce document doit être envoyé à des clients pour qu'ils saisissent eux mêmes les infos. Pas question de modifier quoique ce soit dans leur menus excel par exemple, je veux faire cette macro uniquement pour ce document.

Quelqu'un peut m'aider svp.

[Fvandermeulen]

Bonjour,
Si tu veux que la date soit dynamique tu peux simplement mettre la formule

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=Aujourd'hui()

Sinon le code ci-dessous dans Thisworkbook - Before save (pour coller à ton explication)

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
Sub testDate()
 
'NbLigne compte le nombre de ligne sur base de la colonne B
NbLigne = Application.Subtotal(3, Sheets("sheet1").Range("b:b"))
'Applique le format mm/yyyy sur la colonne A
Columns(1).NumberFormat = "mm/yyyy"
 
'Défini la boucle de la ligne 2 à la dernière ligne
For i = 2 To NbLigne
 
    'Indique la date du jour dans la cellule variable de la colonne A
    Cells(i, 1) = Date
 
Next i
 
End Sub

En espérant que ce soit ce que tu cherches.

[devdev]

Merci, je ne l'ai pas encore testé, mais ca m'a l'air plutot très bien !

[devdev]

Merci, ca m'a beaucoup aidé ! Cela dit, je n'ai pas compris comment était calculé nbligne, donc j'ai tapé le code suivant, et ca a l'air de fonctionner.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Columns(2).NumberFormat = "mm/yyyy"
j = 7
Do
If Range("D" & j).Value <> "" Then
Cells(j, 2) = Date
j = j + 1
Else
Exit Do
End If
Loop

Une réserve cependant... Pour l'instant, ma colonne de date étant de type date, lorsque j'essaie de la reporter sur une autre celulle, en tapant par exemple dans la formule, =B7 ( B7 étant la celulle date ), excel me ressort une valeur différente...

Quelques minutes plus tard...
Bon, j'ai trouvé, en fait il fallait que je cherche un peu...
J'ai remplacé

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Cells(j, 2) = Date

par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Cells(j, 2) = Format(Date, "mm/yyyy")

et ca fonctionne !

Merci beaucoup pour ton aide.