creer des feuilles avec nom specifique et incrementation

[bricio33]

bonjour je souhaite a l'aide d'une macro copié une feuille qui s'appelle "fiche d'intervention 1"
et qu'elle s'incremente de 1 a chaque fois ("fiche d'intervention 2";"fiche d'intervention 3" etc...) nombre maximale de feuilles inconnu mais relativement important

Mais je ne connais rien au langage vba.
Pourriez vous m'aidez?? S.V.P
Merci d'avance.

 

[ledzepfred]

Re : creer des feuilles avec nom specifique et incrementation

Bonsoir,

vois si cela te convient, la macro crée autant de feuille que tu en demandes à partir de "fiche d'intervention".

Sub copieFI()
'macro enregistrée par ledzepfred
On Error Resume Next
reponse = InputBox("Nombre de copies?")
If IsNumeric(reponse) Then
    For i = 1 To reponse
    Sheets("fiche d'intervention").Copy Before:=Sheets(i)
    ActiveSheet.Name = Left(ActiveSheet.Name, 21) & i
    Next i
End If
End Sub

Si la valeur entrée dans la boite de dialogue n'est pas numérique il ne se passe rien. Si numérique, Pour i= 1 à la valeur saisie le feuillet est copié et le nom du feuillet s'incrémente de la valeur de i :la macro garde les 21 premiers caractères du nom du feuillet ("fiche d'intervention ") et l'incremente grâce à la valeur de i

c'est un premier jet, code à améliorer (peut-être serait-il interessant de gerer la suppression en masse des feuillets créés)

a+


A+

 

[job75]

Re : creer des feuilles avec nom specifique et incrementation

Bonjour bricio33, bienvenue sur le forum,

A tester :

Sub Fiche()
Dim i As Long
Sheets("fiche d'intervention 1").Copy After:=Sheets(Sheets.Count)
With Sheets(Sheets.Count)
  .Visible = True 'au cas où la feuille copiée est masquée
  On Error Resume Next '2 feuilles ne peuvent avoir le même nom...
  i = 1
1 Err = 0
  i = i + 1
  .Name = "fiche d'intervention " & i
  If Err Then GoTo 1
End With
End Sub

Edit : bonsoir ledzepfred, pas rafraichi...

A+

 

[ledzepfred]

Re : creer des feuilles avec nom specifique et incrementation

Bonsoir job75,

excellent code, moi j'en suis encore à utiliser ce bon vieux enregistreur de macros et un peu de bidouille...

a bientôt sur le forum