Discussion :

[lafafmentvotre]

Bonjour à tous

je cherche le moyen simple en VBA de copier une feuille cachée (matrice) en dernière position et de la renommer en incrémentant le nom en fonction des feuilles créées précédemment.

J'utilise ce bout de code mais pour incrémenter pas d'idée :

Code :

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

1
2
3
4
5
6
7
Sub matrice()
Sheets("Matrice").Visible = True
Sheets("Matrice").Select
Sheets("Matrice").Copy Before:=Sheets("Matrice")
Sheets("Matrice").Visible = False
ActiveSheet.Name = "Report01"
End Sub

Dans le cas ou la feuille "Report01" existe, excel affiche une erreur 400 et nomme ma feuille en "Matrice (2)".

Auriez-vous une idée pour au final créer des feuilles nommées Report02, Report03, etc...


Merci par avance pour l'aide

[EmmanuelleC]

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
Sub matrice()
Sheets("Matrice").Visible = True
Sheets("Matrice").Select
Sheets("Matrice").Copy Before:=Sheets("Matrice")
Sheets("Matrice").Visible = False

nbf = Sheets.Count
compteur = 0
For i = 1 To nbf
nom = Sheets(i).Name
If Left(nom, 6) = "Report" Then
    If Val(Right(nom, Len(nom) - 6)) > compteur Then
        compteur = Val(Right(nom, Len(nom) - 6))
    End If
End If
Next i
compteur = compteur + 1
If compteur < 10 Then
    compteur = "0" & compteur
End If

ActiveSheet.Name = "Report" & compteur

End Sub

Sans aucun garantie que ca soit le plus optimisé, mais ca marche chez moi
L'idée est de parcourir chaque feuille avec une boucle, on regarde si la feuille est un "Report" ou pas, si oui, on stock son n° et a la fin, on nomme la feuille repport + le dernier n° qu'on a trouvé +1

[pc75]

Bonjour,

En utilisant ça ?

Code :

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

1
2
 
activeworkbook.Sheets.Count

[lafafmentvotre]

La solution de EmmanuelleC fonctionne à merveille.

Merci beaucoup.

[Fvandermeulen]

Salut,
Tu peux utiliser le nombre de feuille comme référence pour le numéro, voici ton code avec l'exemple, je me suis permis de supprimer les lignes inutiles (pas besoin d'afficher et de sélectionner la feuille pour la copier)

Code :

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

1
2
3
4
5
6
Sub matrice()
 
Sheets("Matrice").Copy Before:=Sheets("Matrice")
ActiveSheet.Name = "Report" & ActiveWorkbook.Sheets.Count - 1
 
End Sub

A+

Edit: Houlaa, vachement en retard... et sur la même longueur d'onde que pc75