Discussion :

[chamus]

Bonjour a tous

petite question :
j ai un tableau avec disons 3 feuilles nommées "page1", "page2", "page3"
mon but est d inserer apres chacune des feuilles, une nouvelle feuille, et de lui donner le meme nom que la feuille precedente suivie du suffixe "bis"
pour obtenir in fine le classeur contenant les feuilles suivantes :
"page1", "page1bis", "page2", "page2bis", "page3", "page3bis"

voila mon code :

Code :

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

1
2
3
4
5
6
7
8
9
10
Dim n As Integer, i  As Integer
n = Sheets.Count
 
For i = 1 To n
Sheets.Add
With Sheets.Add
.Move After:=Sheets(i)
.Name = Sheets(i).Name & "bis"
End With
Next i

Evidemment rien ne marche il m insere 2 fois plus de feuilles et ne rprends pas les noms des anciennes.
Damned !

Comment sortir de l ornière ?

[Pierre Fauconnier]

Bonjour

Utilise une collection des feuilles existantes, puis tu itères sur ta collection. Le plus simple est d'utiliser des objets typés Worksheet

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
 
Sub AjoutFeuilles()
    Dim mCol As New Collection ' contiendra la collection de feuilles
    Dim Feuille As Worksheet ' Feuille source
    Dim FeuilleAjout As Worksheet ' Feuille Cible
 
    ' On crée la collection
    For Each Feuille In Worksheets 
        mCol.Add Feuille
    Next Feuille
 
    on itère sur les objets de la collection
    For Each Feuille In mCol
        Set FeuilleAjout = Worksheets.Add(after:=Feuille)
        FeuilleAjout.Name = Feuille.Name & "Bis" ' On renomme
    Next Feuille
End Sub

Cela te convient-il?

[chamus]

ca me convient tres bien !!

merci beaucoup

Juste une question par curiosité:
Pourquoi passer par une collection car en n ecrivant que la derniere partie de ton code ca marche aussi

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
Sub AjoutFeuilles()
    'Dim mCol As New Collection ' je retire la collection
    Dim Feuille As Worksheet ' Feuille source
    Dim FeuilleAjout As Worksheet ' Feuille Cible
 
    ' je supprime cette partie
    'For Each Feuille In Worksheets 
        'mCol.Add Feuille
    'Next Feuille
 
    'je laisse que cette partie la 
    'For Each Feuille In mCol  en supprimant la mention de maCol
    For Each Feuille In Worksheets
        Set FeuilleAjout = Worksheets.Add(after:=Feuille)
        FeuilleAjout.Name = Feuille.Name & "Bis" ' On renomme
    Next Feuille
End Sub

y a t il un avantage a passer par une collection

[Pierre Fauconnier]

Il semble que tu aies raison.

Je passais par une collection explicite pour éviter de tourner en rond, et d'obtenir des feuil1Bis puis Feuil1BisBis, puis Feuil1BisBisBis, etc...

Mais apparemment, la ligne

Code :

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

1
2
 
for each feuille in worksheets

semble créer une collection implicite et la "figer", de sorte que les nouvelles feuilles créées ne sont pas reprises dans la boucle... Si tel est le cas, alors l'utilisation de la collection ne se justifie pas...

Merci pour ce complément.

[chamus]

Une derniere question avant de te souhaiter la bonne année

j ai découvert les collection dans ton dernier code, alors je maitrise pas trop
juste un exemple:

Imaginons que je veuille maintenant effacer les feuilles que j ai inseré grace a ton code.
Dans ce cas je pourrais créer une collection de feuille contenant toute les feuilles nouvellement crées et ensuite effacer d un bloc la collection

J ai ecrit le code suivant en supposant que les nouvelles feuilles avaient toutes un index pair :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub efface()
 
Dim Feuille As Worksheet, maColl As New Collection
 
For Each Feuille In Worksheets
If (Feuille.Index Mod 2) = 0 Then maColl.Add Feuille
Next Feuille
 
maColl.Delete
 
End Sub

Ca ne fonctionne pas !
Qu est ce qui cloche à ton avis ?

[Pierre Fauconnier]

Ce qui cloche, c'est que tu supprimes les feuilles à l'intérieur de la collection. En fait, tu vides la collection de ses items, mais tu ne supprimes pas les feuilles.

Pour supprimer physiquement les feuilles, tu utiliseras

Code :

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

1
2
3
4
5
 
for each feuille in mcol
    feuille.Delete
next feuille
mcol.delete

Ok?

[chamus]

Ok.

Merci encore et bonnes fêtes.