Utiliser le VBA pour copier et incrémenter une feuille

Bonjour à tous,

Désolé je ne vois pas comment imager ce que je souhaite faire. merci d'avance a ceux qui me viendront en aide.
Je voudrais savoir s'il est possible de copier l'adresse d'une cellule d'une feuille de calcul excel dans une autre feuille en changeant juste la ligne.
Voici le code que j'utilise pour copier une feuille vers une autre, changer la valeur de certaines cellules et remplir automatiquement plusieurs cellules:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("C2:C33")) Is Nothing Then If Target.Count = 1 And Len(Target) > 0 Then 'Sheets.Add(after:=Sheets(Sheets.Count)).Name = Target Sheets("MODELE").Copy After:=Sheets(Sheets.Count) With ActiveSheet .Name = Target .Range("D1:Y2") = Target   End With Dim i As Integer i = 1 While i <= 10 With ActiveSheet .Range("C1") = "=Feuil1!D6" End With i = i + 1 Wend   End If End If End Sub

---

Je voudrais maintenant que D6 puisse être transformé en D7 pour remplir une autre colonne lors de la création d'une nouvelle page

Cordialement,
Theyang

Bonjour,

Citation:

---

Je voudrais maintenant que D6 puisse être transformé en D7 pour remplir une autre colonne lors de la création d'une nouvelle page

---

Essai ceci :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

Private Sub Worksheet_Change(ByVal Target As Range)   If Not Intersect(Target, Range("C2:C33")) Is Nothing Then   If Target.Count = 1 And Len(Target) > 0 Then   Sheets("MODELE").Copy , Sheets(Sheets.Count)   With ActiveSheet   .Name = Target .Range("D1:Y2") = Target .Range("C1") = "=Feuil1!D7"   End With   End If   End If   End Sub

---

Hervé.

Merci de ta réponse hervé mais en fait je voudris que le changement de D6 en D7 se fasse de façon automatique. En fait je veux qu'a chaque utilisation du code sur la page que D6 soit incrémenté de 1.

Bonjour,

Je suppose alors, que la ligne est incrémentée à chaque ajout de feuille ! Pour ça, je pense qu'il faut que la valeur de la ligne soit stockée dans un nom (Name). Cette valeur est récupérée à l'ouverture du classeur et sauvegardée à la fermeture et pour ça, il te faut coller ces deux proc dans le module du classeur :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28

Public Ligne As Long   Private Sub Workbook_Open()   'une erreur est générée si le nom n'existe pas, d'où le gestionnaire On Error Resume Next   'si il existe, récupère la valeur... Ligne = Split(Worksheets("Feuil1").Names("Ligne"), "=")(1)   'sinon, ajoute le nom en le rendant invisible dans la fenêtre "Gestionnaire de noms" If Err.Number <> 0 Then   Ligne = 6 'initialise à 6   Worksheets("Feuil1").Names.Add "Ligne", Ligne, False   End If   End Sub   Private Sub Workbook_BeforeClose(Cancel As Boolean)   'enregistre la valeur avant la fermeture Worksheets("Feuil1").Names("Ligne").Value = Ligne   End Sub

---

Et ceci dans le module de la feuille (en remplacement du précédant) :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26

Private Sub Worksheet_Change(ByVal Target As Range)   If Not Intersect(Target, Range("C2:C33")) Is Nothing Then   If Target.Count = 1 And Len(Target) > 0 Then   Sheets("MODELE").Copy , Sheets(Sheets.Count)   With ActiveSheet   .Name = Target .Range("D1:Y2") = Target   ThisWorkbook.Ligne = ThisWorkbook.Ligne + 1 'incrémente de 1 à chaque fois 'que cette proc est appelée   .Range("C1") = "=Feuil1!D" & ThisWorkbook.Ligne   End With   End If   End If   End Sub

---

J'ai pas testé mais ça devrait marcher !

Hervé.

Bonjour Hervé,

J'ai essayé ton code mais à l'exécution j'ai un message disant :
erreur de compilation
Membre de méthode ou de données introuvable.

et sa me surligne en jaune Liste dans la deuxieme partie de code que tu m'as donné.

Cordialement,

Merci de ton aide Hervé je pense avoir réussi a faire en parti ce que je voulais je te tiens au courant. et ton code fonctionne nickel je l'avais simplement mal placé.

Merci encore de ton aide j'ai réussi a faire ce que je voulais. Je passe le sujet en résolu.