Changer valeur formule boucle vba multisheet

Bonjour,

Après plusieurs recherches je ne trouve pas de réponse à ma question sans utiliser formularR1C1 que j'aimerais éviter.

J'ai un tableau qui contient 30 lignes sur une sheet "tableau".
Chaque ligne contient des informations qui une fois mises en forme sur une sheet "mise en forme" est prête à être imprimée sur une page A4.
Je souhaiterais créer une sheet modèle "mise en forme" pour la 1ère ligne et créer une macro pour dupliquer cette sheet pour les 30 lignes.
J'ai déjà la formule pour dupliquer ma sheet mais je n'ai aucune idée de ce qu'il faut mettre pour changer la ligne (ligne 1, puis 2 puis 3 etc.)

Code:

---

1 2 3 4 5 6 7

Sub Copie() Dim i For i = 1 To 10 Sheets("Feuil1").Copy After:=Sheets(i) ActiveSheet.Name = "Position " & i Next i End Sub

---

Je pense qu'il faudrait que je rajoute un cells (C,6).formular1c1="//ici je change la valeur de la formule pour aller chercher la ligne suivante//"

Pourriez vous m'aider sur ce point s'il vous plaît?

Merci d'avance

Bonsoir,

Il y a plusieurs façon de faire suivant la façon dont le lien entre la feuille modèle et le tableau est établit.

On pourrait très bien recopier les valeurs de chaque lignes vers la feuille modèle.
(sans parler de formule :
<cellule>.Value au lieu d'utiliser <cellule>.formula.)

Bonjour,

Merci pour votre réponse rapide.
J'ai une idée pour réussir à faire cela. Il faut juste qu'à chaque fois que je duplique la feuille modèle, je change la valeur d'une cellule (B2).
J'ai essayé mais j'arrive à une erreur 400.

Code:

---

1 2 3 4 5 6 7 8

Sub Copie() Dim i For i = 1 To 10 Sheets("Feuil1").Copy After:=Sheets(i) ActiveSheet.Name = "Position " & i Cells(B, 2).Value = i Next i End Sub

---

Bonjour,

Voici un début.
A partir d’un classeur qui contient une feuille "Tableau" et une feuille "Modele", pour chacune des 30 lignes du tableau, le code suivant effectue une copie de la feuille "Modele", puis copie la ligne correspondant au numéro d’itération.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Sub Copie() Dim i As Byte For i = 1 To 30 'Copie de la feuille "Modele" Sheets("Modele").Copy After:=Sheets(i) ActiveSheet.Name = "Position " & i 'Copie de la ligne de la feuille "Tableau" Sheets("Tableau").Rows(i).Copy 'Collage dans la feuille "Position i" ActiveSheet.Rows(1).PasteSpecial xlPasteValues Application.CutCopyMode = False Range("A1").Select Next i End Sub

---

Cordialement.

Génial merci beaucoup ça marche!
C'est parfait!