Discussion :

[pilou2607]

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 :

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

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

[RLX]

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

[pilou2607]

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 :

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

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

[SfJ5Rpw8]

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...

[pilou2607]

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

Code :

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

ActiveCell.selection

[AlainTech]

Code :

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

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.

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

[pilou2607]

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+

[AlainTech]

Selection

[ouskel'n'or]

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