Bonjour,

J'aimerais utiliser une macro qui a déjà été faite par quelqu'un, en l'adaptant à mon cas (un fichier avec des produits différents mais dont l'organisation est différente), mais je pense que je ne modifie pas tous les paramètres car ça ne marche pas.

Que signifie Dim i as integer?

Pour mon cas, j'ai modifié juste le nom des onglets, et les numéros (Cells)
Le reste me paraissait "toujours le même".
Je ne peux pas vous envoyer le fichier pour raisons de confidentialité.

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
18
19
20
21
22
Sub inputDate()
'
' inputDate Macro
'
Application.ScreenUpdating = False
 
Sheets("EOL RESEARCH SUPITEM").Select
Dim date1 As Date
date1 = InputBox("Please inform the date of obervation (MM/AAAA).")
Sheets("STATUT EOL").Cells(2, 19) = date1
 
Dim i As Integer
For i = 1 To 17
Sheets("STATUT EOL").Select
Sheets("STATUT EOL").Cells(2, 19 - i).Value = DateAdd("m", -i, date1)
Sheets("STATUT EOL").Cells(2, 19 - i).Select
Selection.NumberFormat = "[$-409]mmm-yy;@"
Next
 
Sheets("EOL RESEARCH SUPITEM").Select
 
End Sub