macro excel gestion onglets

Bonjour

Je debute avec les macros.
J'ai un tableau excel avec 3 onglet Liste A et Liste B et Test
Dans la cellule A1 et B1 C1 (onglet liste A ) j'ecris du texte.
La celulle A1 doit generer un nouvelle onglet avec comme nom la cellule A1.
Ensuite j'ecris du texte dans A2 B2 C2 et je genere un nouvel onglet avec comme nom de cellule A2.

Petite complication :Les nouveaux onglet creer doivent avoir une meme trame ( presentation onglet test ) et a chaque fois recuperer les donnees A1 B1 C1.

Cette macro je souahiterai qu'elle puise marcher avec liste a et ListeB
Voila ce que cela donne mais ca marche pas

Code:

---

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

Sub BOB() ' ' BOB Macro ' Macro enregistrée le 02/11/2006 par SEAUVE '   ' I = 6 Numcellule = "A" & I Range(Numcellule).Select Sheets("Test").Select Sheets("Test").Copy After:=Sheets(3) Sheets("Liste A").Select Range(Numcellule).Select Selection.Copy Sheets("Test (2)").Select Application.CutCopyMode = False Sheets("Liste A").Select I = I + 1   End Sub

---

Salut pilou2607,

il faudrait que tu soit un peu plus clair sur ce que tu veux faire, je n'ai pas tout compris. Tu dis la cellule A1 doit générer un nouvelle onglet mais quand est-ce qu'elle doit le faire, en cliquant dessus, dès qu'on écris dedans ...?

Tu utilise I=I+1 donc ça suppose que tu veux boucler sur toutes les cellules?

...

oublie pas les balises CODE c'est plus clair pour tout le monde aussi

Bonsoir

J'ai un petit souci sur une macro
Je cree des onglets suivant un modele type (test)et à partir d'une liste
Lorsque j'ai fini ma liste Je la selectionne ( A1à A6 par exemple ) pour creer mes onglets mais si par hasard d'autres cellules sont remplies (B1,C2etc..) sur la feuil1 cela va generer aussi des onglets avec le nom de ces cellules alors que je ne veux des onglets qu'avec les noms des cellules A1àA6.
Je joins la macro

Code:

---

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

ActiveCell.CurrentRegion.Select Dim Tableau() As String ReDim Tableau(1 To ActiveCell.CurrentRegion.Count)   For Ctr = 1 To ActiveCell.CurrentRegion.Count Tableau(Ctr) = ActiveCell.CurrentRegion(Ctr) Next   For Ctr = 1 To ActiveCell.CurrentRegion.Count Sheets("Test" ).Copy , Sheets(Sheets.Count) Sheets(Sheets.Count).Name = Tableau(Ctr) Next End Sub

---

Merci pour l'aide

j'ai pas tous compris ... à priori tu confond CurrentRegion qui est la région courante, pour avoir une idée des cellules qu'elle comprends sélectionne ta zone A1..A6 puis actionne les touches CTRL*
à priori pour ton probléme il te suffirai d'utiliser Selection ( la zone selectionné dans la feuille active...) en lieu et place de tes CurrentRegion...

j'ai changé mais cela ne marche pas
Ca plante à la premiere ligne

Code:

---

ActiveCell.selection

---

Code:

---

ActiveCell.selection

---

Ne veut rien dire.

Chacun s'utilise seul.
ActiveCell est la cellule active alors que Selection est l'ensemble des cellules sélectionnées.

Citation:

---

Envoyé par bbil

à priori pour ton probléme il te suffirai d'utiliser Selection ( la zone selectionné dans la feuille active...)

---

Je suis bien d'accord que c'est uniquement la zonne selectionnée dans la premiere feuille qui genere les onglets mais comment le traduire dans ma macro que c'est uniquement cette zone.
A+

Selection

On le dit mais on s'fâche pas !:cry: