creation de feuille

Re : creation de feuille

Bonjour,

Sheets("Base").Copy before:=Worksheets(1)
ActiveSheet.Name = InputBox("Saisissez le nom de la feuille :", "Nom de la feuille copiée...")


ce code te permet de copier une feuille nommée "Base" et de lui donner le nom que tu saisiras dans la boite de dialogue
Tu le mets dans la procedure du bouton ( commandX_click)

Re : creation de feuille

un grand merci mon application avance super bien grace a l'aide enorme qu'on peut trouver ici grace au genie

Re : creation de feuille

j'ai une petite question concernant l'ajout bon voila je essayer d'etre clair
admetton que je clik sur copier fuille il me demande de la nomer jusquela s'est parfait mais admettont que je ne veut pas la copier au moment de la renomer
y a t'il moyen de anuler operation en cliquant sur annuler au moment de la renomer car la quand je clik sur annuler il me la copie quand meme base 2 et base ect moi je voudrai si s'est possible que quand je click sur annuler il me supprime la feuil qu'il vient de me copier merci de votre aide

Re : creation de feuille

Re

Avec cela, ca devrait mieux te convenir :

Sub aa()
Dim Nomfeuille As String

Nomfeuille = InputBox("Saisissez le nom de la feuille :", "Nom de la feuille copiée...")
If Nomfeuille <> "" Then
Sheets("Base").Copy before:=Worksheets(1)
ActiveSheet.Name = Nomfeuille
End If
End Sub


On demande d'abord le nom et si on clique annuler ou que le nom saisi est vide on ne copie rien