Discussion :

[maitrebanjo]

Bonjour à tous,

J'ai un petit soucis. J'ai réalisé une macro qui me permet de créer automatiquement des feuilles selon le nombre de ligne d'une liste et les renomment.

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
21
22
23
24
25
26
27
28
29
30
Sub ajout_feuilles()
Application.ScreenUpdating = False
 
'Création de l'onglet
 
Dim nom, c
 
For Each c In Range("liste")
nom = c.Offset(, -1).Value & " - " & c.Value & " " & Left(c.Offset(, 1), 1) & "."
 
Sheets.Add Count:=1, after:=Worksheets(Worksheets.Count)
 
ActiveSheet.Name = nom
 
'Mise en forme et Remplissage
 
Sheets("Modèle").Visible = True
    Cells.Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Help ME!").Select    <- le problème
    Cells.Select
    Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
Sheets("Modèle").Visible = False
 
Next c
 
End Sub

Cependant, j'aimerais remplir chaque nouvelle feuille avec un copier coller du contenu d'une feuille cacher.
Le problème: Apres effectué la copie des ma zone je n'arrive pas à re-sélectionner l'onglet pour effectuer le coller.

En vous remerciant par avance pour votre aide!

[Godzestla]

Salut,
tu peux simplifier ton code

en remplaçant ceci

Code :

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

1
2
3
4
5
6
7
8
9
10
Sheets("Modèle").Visible = True
    Cells.Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Help ME!").Select    <- le problème
    Cells.Select
    Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
Sheets("Modèle").Visible = False

par

Code :

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

1
2
3
4
5
 
Sheets("Modèle").Visible = True
Worksheets("Modèle").Cells.Copy _
    Destination:=Worksheets(nom).Cells
Sheets("Modèle").Visible = False

perso, j'essaierais de sortir la modif de .visible hors de la boucle pour ne le faire qu'1 fois.

[riaolle]

Bonjour,
Tu connais le nom de la feuille puisque tu lui en donnes un juste après sa crétion, tu peux donc avoir la feuille par le code suivant :

Code :

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

Sheets(nom)

Sinon, dans un cas où tu n'aurais pas connu le nom de la feuille : tu peux utiliser une variable nvlFeuille que tu définis juste après la création de ton nouvel onglet. Puis tu travailles avec cette variable.

Code :

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

1
2
3
4
5
Dim nvlFeuille As Worksheet
Sheets.Add Count:=1, after:=Worksheets(Worksheets.Count)
Set nvlFeuille = ActiveSheet
  '....
nvlFeuille.Range("A1").PasteSpecial

Quelque commentaires a propos de ton code :
- N'utilise pas Select et Activate, mais précise sur quelles feuilles/plage de cellules tu travailles. N'écris pas :

Code :

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

1
2
3
Sheets("Help ME!").Select    <- le problème
Cells.Select
Selection.PasteSpecial

Mais

Code :

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

Sheets("Help ME!").Cells.PasteSpecial

- A quoi te sert les lignes suivantes?

Code :

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

1
2
3
Sheets("Modèle").Visible = True
'...
Sheets("Modèle").Visible = False

Tu peux garder ta feuille "invisible" pendant toute la procédure. Et même si tu veux utiliser ceci, je pense qu'il serait plus judicieux de placer les lignes avant et après la boucle for, car tu refais exactement la même opération à chaque iteration de la boucle.

- Je pense que tu n'as pas besoin d'écrire :

Code :

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

Application.CutCopyMode = False

Ou mets le juste à la fin du code, juste avant le End Sub.

- Déclare tes variables jusqu'au bout :

Code :

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

Dim nom As String, c As Range

[maitrebanjo]

Merci beaucoup pour vos réponse!

Je vois qu'il me reste encore beaucoup à apprendre ^^'

[Invité]

Bonjour riaolle,

Code :

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

1
2
3
4
Dim nvlFeuille As Workshee
Set nvlFeuille = Sheets.Add( Count:=1, after:=Worksheets(Worksheets.Count))
Set nvlFeuille = ActiveSheet
  '.... nvlFeuille.Range("A1").PasteSpecial

[Marc-L]

Bonjour !

j'aimerais remplir chaque nouvelle feuille avec un copier coller du contenu d'une feuille cachée.
Le problème: Après effectué la copie des ma zone je n'arrive pas à re-sélectionner l'onglet pour effectuer le coller

Un bon code ne sélectionne jamais pour effectuer une simple copie !  Consulter déjà l'aide VBA de Range.Copy …

Et pour copier directement dans plusieurs feuilles en une unique instruction, voir la méthode FillAcrossSheets !

___________________________________________________________________________________________________________
Je suis Paris, Egypte, Stockholm, London, Istanbul, Berlin, Nice, Bruxelles, Charlie, …

[patricktoulon]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub ajout_feuilles()
    Application.ScreenUpdating = False
    Dim nom, c
    Sheets("Modèle").Visible = True
    For Each c In Sheets("nom du sheet").Range("liste")' renseigner le nom du sheet i!!!!!! je suppose que c'est le sheets modele
       nom = c.Offset(, -1).Value & " - " & c.Value & " " & Left(c.Offset(, 1), 1) & "."
        Set NewSheet = Sheets.Add(Count:=1, after:=Worksheets(Worksheets.Count))
        NewSheet.Name = nom
        Sheets("Modèle").Cells.Copy Destination:=NewSheet.Cells(1, 1)
        'normalement copy destination respecte le format et la mise en forme
    Next c
    Sheets("Modèle").Visible = False
End Sub