Creer une nouvelle feuille et Attribuer un titre

cpeens · 23 Août 2010

Bonjour à tous je reviens vers vous pour un problème que je n'arrive pas pas à résoudre

Je recherche à créer une macro qui me permettrais de créer une Feuille supplémentaire en la renommant de façon logique.

à ce jour mes Feuilles sont tous renommer ainsi :

EX1
EX2
EX3

je souhaiterais que la prochaine feuille soit créer par macro et renommer EX4

puis EX5 la prochaine ect ....

je souhaiterais également dans la mesure du possible pouvoir choisir non pas le NOM mais le titre de la Feuille qui apparaitras en cellule F6

J'ai mis un exemple de présentation il y à également un module car j'ai essayer de créer ma macro en utilisant l'assistant macro mais sa n'a pas vraiment donné grand chose merci d'avance à tous ceux qui pourront m'aider

cpeens · 2 Septembre 2010

Re : Creer une nouvelle feuille et Attribuer un titre

Re conscient de la difficulté j'ai mis le fichier avec l'erreur

merci de votre aide

Fo_rum · 3 Septembre 2010

Re : Creer une nouvelle feuille et Attribuer un titre

Salut

autre façon,

Code:

Dim G As Byte, N As String 'ne pas changer de place
Private Sub UserForm_Initialize()
  Dim Sh As Worksheet, Nb As Byte
  For Each Sh In Worksheets
    N = Sh.Name
    If Left(N, 9) = "FORMATION" Then
      Nb = Right(N, Len(N) - 9)
      If Nb > G Then G = Nb  'G est le plus grand des numéros actuels
    End If
  Next
  N = "FORMATION" & G + 1
  Label1.Caption = "Son nom sera : " & N
End Sub
Private Sub CommandButton1_Click()
  Sheets("FORMATION" & G).Copy After:=Sheets(Worksheets.Count)
  With ActiveSheet
    .Name = N
    .Range("F1") = UCase(TextBox1)
  End With
  Unload Me
End Sub

en faisant attention aux noms des contrôles !

cpeens · 3 Septembre 2010

Re : Creer une nouvelle feuille et Attribuer un titre

Bonjour FO_RUM et merci pour ton aide malheureusement sa résous pas mon problème j'ai essayer avec ta proposition et j'ai le même type d'erreur j'ai isoler module par module ce qui à donné ceci:

je pense tant que j'aurais pas localisez ce qui va pas je ne pourrais continuer

pouvez vous m'aider et me dire ce qui est faut dans ce que j'ai fais merci

cpeens · 3 Septembre 2010

Re : Creer une nouvelle feuille et Attribuer un titre

R e bonjour l'erreur venais de mon oublie de

Dim G As Byte, N As String 'ne pas changer de place

j'avais oublier de le mettre merci de votre aide

Creer une nouvelle feuille et Attribuer un titre

cpeens

XLDnaute Occasionnel

Pièces jointes

cpeens

XLDnaute Occasionnel

Pièces jointes

Fo_rum

XLDnaute Accro

Pièces jointes

cpeens

XLDnaute Occasionnel

cpeens

XLDnaute Occasionnel

Discussions similaires

Creer une nouvelle feuille et Attribuer un titre

cpeens

XLDnaute Occasionnel

Pièces jointes

cpeens

XLDnaute Occasionnel

Pièces jointes

Fo_rum

XLDnaute Accro

Pièces jointes

cpeens

XLDnaute Occasionnel

cpeens

XLDnaute Occasionnel

Discussions similaires

Privacy & Transparency

Privacy & Transparency