Discussion :

[questionaccess]

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

[GoFio]

Salut,

Que signifie Dim i as integer?

Ca signifie que tu déclares une variable i comme étant un entier.
Pour plus de renseignements, je t'invites à lire ceci :
http://silkyroad.developpez.com/VBA/LesVariables/

Ensuite Rajoute :

Code :

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

Option Explicit

Tout en haut de ton code. Ça pourrait te permettre de voir de erreur de déclaration de variable.

Ensuite où ça bug ?
Pourrais tu mettre les balises [CODE ] [ /CODE] pour que cela soit plus lisible.