pilou2607
Nouveau membre
Bonsoir
J'ai un petit souci sur une macro
Je cree des onglets suivant un modele type (test)et à partir d'une liste située sur une feuille 1 p exemple
Le probleme est le suivant:
Je selectionne bien ma liste sur la feuil1 ( 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
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 un petit souci sur une macro
Je cree des onglets suivant un modele type (test)et à partir d'une liste située sur une feuille 1 p exemple
Le probleme est le suivant:
Je selectionne bien ma liste sur la feuil1 ( 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
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