ajouter nouvelle feuille et renommer celleci

[jtitin]

bonjour à tous et meilleurs voeux pour cette nouvelle année.

voici mon problème:
-je souhaite ajouter une nouvelle feuille à mon classeur.
-la renommer avec le texte de la cellule A1 de la feuil1.
et la est le problème:
si la nouvelle feuille existe déja alors la nouvelle feuille prendra le nom de la cellule A1 de la feuil1 + le chiffre 1 et ainsi desuite
exemple la cellule A1= pierre
ma nouvelle feuille = pierre
si feuille "pierre" existe alors création "pierre1" et ainsi desuite "pierre2"....

merci pour votre aide

 

[skoobi]

Re : ajouter nouvelle feuille et renommer celleci

Bonjour jtitin,

si le fichier ne contient que feuil1 et les pierreX, tu peux compter le nombre de feuille

Nb = Sheets.Count

et renommer la feuille créée comme ceci:

Sheets(???).Name = range("A1").Value & Nb - 1

 

[jtitin]

Re : ajouter nouvelle feuille et renommer celleci

merci skoobi pour ta réponse

non mon classeur au départ comporte 3 feuilles
je travaille sur la feuil1
je veux repopier certainnes cellules de la feuil1 dans une nouvelle feuil et renommer cette feuil avec la valeur de la cellule A1
donc temps que cette valeur est diférente je peus créer de nouvelle feuille
mais si la feuille existe alors je souhaite ajouter un chiffre en + de la valeur de la cellule A1.
Donc si feuil "pierre" existe créer "pierre1" si feuil "alain" existe créer "alain1" si "alain1" existe créer "alain2" etc ...

merci

 

[pierrejean]

Re : ajouter nouvelle feuille et renommer celleci

bonjour jtitin

Vois si cela te convient

 

[jtitin]

Re : ajouter nouvelle feuille et renommer celleci

merci PierreJean

c'est tous à fait ce que je recherche.
j'ai juste un petit problème avec minuscule et majuscule dans la cellule A1 qui créer un bloquage.
il faut juste que je force l'inscription dans cette cellule une fois pour toute en majuscule ou minuscule

merci bien