Discussion :

[jahnaz]

Bonjour à tous,

Tout d'abord, merci pour l'aide que vous fournissez sur ce forum. Cela est très bénéfique.

Voici mon problème.
Je veux créer une macro permettant de créer une nouvelle feuille de calcul dans un même classeur. Cette nouvelle feuille, j'aimerais qu'elle se mette en dernière position (à la fin). De plus, j'aimerais que la date rentrée dans une cellule (par exemple A2) se mette automatiquement à jour en fonction de la date dans la celluele A1 de la feuille précédente (soit 7 jours de plus).

Merci de m'aider.

Voici un exemple de code que j'ai écrit, mais qui met ma nouvelle feuille toujours à la position 5.

Code :

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

1
2
3
4
5
6
7
8
9
Sub NEW_()
'
' NouvelleFeuille Macro
'
'
    Sheets("WEEK").Select
    Sheets("WEEK").Copy After:=Sheets(4)
    Range("F5").Select
End Sub

[zyhack]

Bonjour

pour ajouter une feuille en dernière position

Code :

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

Worksheets.Add After:=Worksheets(Worksheets.Count)

pour la recopie de la valeur

a mettre dans le code événement de la feuille dont la valeur change (celle que tu appele précédente)

Code :

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

1
2
3
4
5
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Range("A1"), Target) Is Nothing Then
  Worksheets(ActiveSheet.Index + 1).Range("A2") = Target.Value + 7
End If
End Sub

a+