création d'onglet suivant une liste

[Flop]

bonsoir à tous en ce jour férié.. normalement 🙂


je voudrais créer des onglet en fonction d'une plage de cellule et que c'est onglets se placent à la fin des onglets déja existant..

j'ai trouvé ceci sur le forum, mais je n'ariive pas à modifier pour que les onglets ce place apres mes onglets qui existe :

Sub creation_onglets()
Dim F As Worksheet
Dim Cell As Range
Application.DisplayAlerts = False
Application.ScreenUpdating = False
For Each Cell In Range("B3:B5")
Set F = Sheets.Add
On Error Resume Next
F.Name = Cell.Text
If Err <> 0 Then F.Delete
On Error GoTo 0
Next Cell
End Sub

et le code qui met en dernier suite à une création

Sheets.Add , Worksheets(WorkSheets.Count)

mais j'arrive pas à fusionner les 2 codes. merci d'avance.

 

[wilfried_42]

Re : crétion onglet suivant une liste

bonjour

Sheets.add after:=sheets(sheets.count)

 

[Flop]

Re : création d'onglet suivant une liste

ca ne marche pas ca me fais une erreur dans le code quand je modifie la ligne en :

Set F = Sheets.Add after:=sheets(sheets.count)

 

[wilfried_42]

Re : création d'onglet suivant une liste

re:

dim F as worksheet
Sheets.add after:=sheets(sheets.count)
set F = sheets(sheets.count)

 

[Flop]

Re : création d'onglet suivant une liste

merci.. je suis un peu noeud parfois ! 🙁

 

[Flop]

Re : création d'onglet suivant une liste

et pour les rendres invisibles faut rajouter quelle syntaxe ?

thanks 😀

 

[wilfried_42]

Re : création d'onglet suivant une liste

re:

2 methodes

Sheets("Nomfiche").visible = false ' Rendra invisible mais pour etre vu par format / feuille / afficher

Sheets("Nomfiche").visible = xlveryhidden ' ne pourra etre rendue visible que par macro ou par le VBA (propriete des feuilles)

 

[Flop]

Re : création d'onglet suivant une liste

et dans le code plus haut de création automatique selon une liste possible de les rendres invisibles dés la crétion, car le code que tu me donne oblige à connaitre le nom de l'onget

j'aimerais que des qu'il crée une feuille selon la premiere cellule de la liste celui ci deviennent invisible puis il continue sur toute la plage.

 

[Pierrot93]

Re : création d'onglet suivant une liste

Bonsoir Flop, Wilfried

si j'ai bien compris :

Dim f As Worksheet
Set f = Sheets.Add(after:=Sheets(Sheets.Count))
f.Visible = xlSheetVeryHidden

bonne soirée
@+

 

[myDearFriend!]

Re : création d'onglet suivant une liste

Bonsoir Flop, wilfried_42,

Si j'ai bien compris l'ensemble du problème :

[SIZE=2][COLOR=NAVY]Sub[/COLOR] creation_onglets()
[COLOR=NAVY]Dim[/COLOR] F [COLOR=NAVY]As[/COLOR] Worksheet
[COLOR=NAVY]Dim[/COLOR] Cell [COLOR=NAVY]As[/COLOR] Range
    [COLOR=NAVY]With[/COLOR] Application
        .DisplayAlerts = [COLOR=NAVY]False[/COLOR]
        .ScreenUpdating = [COLOR=NAVY]False
        For Each[/COLOR] Cell [COLOR=NAVY]In[/COLOR] Range("B3:B5")
        [COLOR=NAVY]Set[/COLOR] F = Sheets.Add[COLOR=Blue][B]([/B][/COLOR]after:=Sheets(Sheets.Count)[COLOR=Blue][B])[/B][/COLOR]
        [COLOR=NAVY]On Error Resume Next[/COLOR]
        F.Name = Cell.Text
        [COLOR=NAVY]If[/COLOR] Err <> 0 [COLOR=NAVY]Then[/COLOR]
            F.Delete
        [COLOR=NAVY]Else[/COLOR]
            F.Visible = xlSheetHidden
        [COLOR=NAVY]End If
        On Error GoTo[/COLOR] 0
        [COLOR=NAVY]Next[/COLOR] Cell
        .DisplayAlerts = [COLOR=NAVY]True[/COLOR]
        .ScreenUpdating = [COLOR=NAVY]True
    End With
End Sub[/COLOR][/SIZE]

Pour info, dans :
Set F = Sheets.Add(after:=Sheets(Sheets.Count))
l'ajout des parenthèses fait toute la différence...

Cordialement,

EDITION : bonsoir Pierrot93, pas vu venir... 😉

 

[Flop]

Re : création d'onglet suivant une liste

merci à tous, ca marche très bien !

 

[tdaoui]

Re : création d'onglet suivant une liste

Bonjour à tous,

Et pour créer des fiches :
1 - En suivant une liste
2 - En se basant sur une feuille exemple

Voici le code que j'utilise pour dupliquer 10 feuilles en me basant sur une feuille exemple :

Sub Dupliquer()
Dim i As Byte
For i = 1 To 10
Sheets("Feuil1").Copy After:=Sheets(Sheets.Count)
Sheets(Sheets("Feuil1").index + i).Name = "Duplicata-" & Format(i, "000")
Next
End Sub

MAIS je suis bloqué pour adapter le code à mo besoin qui est de créer des feuilles suivant une liste existante et en utilisant une feuille exemple existante

Merci pour votre aide

 

[tdaoui]

Re : création d'onglet suivant une liste

C'est bon j'ai trouvé ! 🙂

Sub test()
Dim c As Range
With Sheets("Feuil")
For Each c In .Range("B1:B7")
If c.Value <> "" Then
Sheets("Template").Copy Before:=Sheets(1)
ActiveSheet.Name = c.Value
End If
Next c
End With
End Sub

Merci à vous !