VBA:Excel2007: Renommer une feuille si déjà existante Résolu

Question

Bonjour, 

J'ai une macro qui permet de générer des feuilles à partir des labels de colonnes. 
Je voudrai qu'avant la création de la feuille et l'attribution de son nom que je fasse une vérification si le nom de la feuille existe déjà qu'on y ajoute un chiffre devant, 
Par exemple: les colonnes ABC | BCD | ZEE 
si j'exécute la première fois j'aurai les feuilles  ABC1 | BCD1 | ZEE1
si j'exécute la deuxième fois j'aurai les feuilles ABC2 | BCD2 | ZEE2

Car pour l'instant ça marche pour la 1ère exécution, mais à la 2ème exécution ça m'affiche Sheet (1) | Sheet (2) | Sheet (3)

Voici une partie du code qui fait l'affaire:
'-----------------------------------------------------------------
Option Explicit
Option Base 1

Const TEMPLATE As String = "TempM" 
Const Cpt As Integer = 1

Sub GenererFeuil()

Dim LinFin As Byte, T_base As Byte, Cptr_test As Byte
Dim Entete As Range, Nbre_chx As Byte, Chx As Byte, Tot As String, TotIdx As Byte
Dim MyRange As Range
Dim Col_num As Integer    
Dim ws As Worksheet
Dim nwSh As Worksheet
Dim Nbcolm As Long
Set ws = Sheets(4)
Nbcolm = colm - 5
                
Application.ScreenUpdating = False

With Sheets(4)

LinFin = Sheets(4).Columns("A").Find("*", , , , , xlPrevious).Row

T_base = Sheets(4).Range(.Cells(2, 1), Sheets(4).Cells(LinFin , 5 + Nbcolm))
                     For Chx = 1 To Nbcolm
                         
                            'Copie du contenu de tempM ds nelles feuilles
                            Sheets(TEMPLATE).Copy After:=Sheets(Sheets.Count)
                            Set nwSh = ActiveSheet
                            
                            On Error Resume Next
                               'Ici les noms des feuilles sont attribués depuis la col 5 de la feuille4
                                nwSh.Name = (ws.Cells(1, 5 + Chx).Value)
 
 '================> ici je souhaite créer la condition pour 
'vérifier si le nom de la feuille existe déjà dans le classeur et si 
'ça existe qu'il ajoute un nombre apres le nom.


Est ce que quelqu'un peut m'aider SVP?
Merci d'avance :)

pijaku · Answer

Bonjour,

C'est un peu plus complexe que cela.
Tu dois :
Vérifier si le nom existe déjà. - si oui, vérifier que ce nom se termine par une partie numérique,     => si oui,         * extraire cette partie numérique (qui pourrait avoir plusieurs chiffres ex : ZEE13)        * ajouter 1 à ce nombre        * renommer la feuille     => si non : ajouter 1 après le nom de la feuille - si non, renommer simplement la feuille
 
Pour cela, tu peux te faire une petite fonction personnalisée avec deux paramètres : le classeur et le nom de la feuille.
Comme point de départ, je te propose la fonction FeuilleExiste de Bbil :

Function FeuilleExiste(wk As Workbook, stFeuille) As Boolean
 On Error Resume Next
 FeuilleExiste = Not (wk.Sheets(stFeuille) Is Nothing)
End Function

Que l'on peut transformer afin qu'elle retourne un String plutôt qu'un Boolean :

Function RenommeFeuille(wk As Workbook, stFeuille As String) As String
 On Error Resume Next
 If Not (wk.Sheets(stFeuille) Is Nothing) Then
   RenommeFeuille = "Ta feuille existe déjà"
 Else
   RenommeFeuille = "Ta feuille n'existe pas encore"
 End If
End Function

Reste à y ajouter les différentes conditions que je t'ai détaillé plus haut.


L'appel de cette fonction personnalisée se ferait depuis ta procédure principale comme ceci :

'
Dim AncienNom As String
'[
'...
']
Sheets(TEMPLATE).Copy After:=Sheets(Sheets.Count)
Set nwSh = ActiveSheet
'Ici les noms des feuilles sont attribués depuis la col 5 de la feuille4
AncienNom = ws.Cells(1, 5 + Chx).Value
On Error Resume Next
nwSh.Name = RenommeFeuille(ThisWorkbook, AncienNom)
End Sub

VBA:Excel2007: Renommer une feuille si déjà existante

1 réponse

Votre réponse

Discussions similaires