Discussion :

[Averell1976]

Bonjour à toutes et à tous.

J'ai fait un petit code vba pour dupliquer automatiquement le contenu d'un onglet (onglet J1 du fichier ORGANISATION VACANCES ETE). Pour chacun des onglets dupliqués, la date contenu dans la cellule A1 doit s'incrémenter de un jour à chaque fois.
Ex: la cellule A1 de l'onglet J1 contient la valeur "mardi 08 avril 2014". Je duplique 3 fois l'onglet; j'ai alors les onglets J2, J3, J4 qui se créent; et je devrais avoir la valeur "mercredi 09 avril 2014" en A1 de l'onglet J2, "jeudi 10 avril 2014" en A1 de l'onglet J3 et "vendredi 11 avril 2014" en A1 de l'onglet J4.
Or ça n'est pas tout à fait le cas.... d'où vient l'erreur dans mon code?

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub Copie()
Dim i, z, Valeur_A_Recup
z = InputBox("Nombre de copies ", "Copie")
Valeur_A_Recup = Sheets("J1").Range("A1").Value
For i = 1 To z
Sheets("J1").Copy After:=Sheets(i)
ActiveSheet.Name = "J" & i + 1
Sheets("J" & i).Range("A1").Value = Valeur_A_Recup + i
Next i
End Sub

Merci de votre aide.

[patricktoulon]

Bonjour

essaie plutôt ca

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub Copie()
Dim i, z, Valeur_A_Recup
z = InputBox("Nombre de copies ", "Copie")
Valeur_A_Recup = CDate(Sheets("J1").Range("A1").Value)
For i = 1 To z
Sheets("J1").Copy After:=Sheets(i)
ActiveSheet.Name = "J" & i + 1
Sheets("J" & i + 1).Range("A1").Value = CDate(Valeur_A_Recup) + i'ici j'ai ajouté +1 a la designation du sheets sinon meme le premier était modifié
Next i
End Sub

ensuite j'utilise la fonction cdate

je ne saurait que trop te conseiller de mette une condition sur le input aucas outu annule
enfin moi ce que j'en dis

au plaisir

[Averell1976]

Merci beaucoup patricktoulon pour ta solution qui marche impeccable et également pour ta suggestion sur l'input à laquelle je n'avais pas pensé mais que je me suis empressé de mettre en oeuvre....
Excellente journée