J'aimerai créer un bouton sur excel qui me permet de copier une feuille excel en incrémentant un numéro dans l'onglet de la nouvelle feuille, en copiant la mise en forme, et en incrémentant un numéro dans une cellule de la feuille. Ce numéro sera le meme que celui de l'onglet.
J'ai regardé les macro qui sont en VB. Je suis sur qu'il ne faut modifier que quelques petites choses dans la programation mais étant nul en VB je ne sais pas quoi.
J'ai 3 feuilles dans mon classeur, et le bouton pour reproduire les feuilles se trouve sur la feuille que je souhaite reproduire. Les deux autres feuilles ne doivent jamais être reproduits...
OUf fin de l'explication :d
j'ai bien regardé et j'ai besoin que de la macro test2.
Après l'avoir plus ou moins modifier, je peux l'utiliser une fois
Une nouvelle feuille est créer. Lorsque je retente le coup, un message d'erreur apparait sous VBA "erreur d'éxecution 1004 => impossible de renommer une feuille comme une autre"...
Sub Test()
Application.ScreenUpdating = True
Retour = ActiveSheet.Name
Maval = 0
For Each X In ActiveWorkbook.Sheets
If Left(X.Name, 6) = "Livre de mission_" Then
If Val(Right(X.Name, Len(X.Name) - 6)) > Maval Then Maval = Val(Right(X.Name, Len(X.Name) - 6))
End If
Next
Sheets("Livre de mission").Copy After:=Sheets(Sheets.Count)
With ActiveSheet
.Name = "Livre de mission_" & Maval + 1
.Visible = True 'Affiche la feuille Livre de mission basée sur un modele masqué
End With
Sheets(Retour).Activate
Application.ScreenUpdating = True
End Sub
Salut guido , peut-être à cause de çà.
Je crois que c'est normal.
Il te manque un _ dans ce code.
Sheets("Livre de mission_").Copy After:=Sheets(Sheets.Count)
Moi j'ai pris ton code en mettant Feuil1 partout, c'est OK.
A voir
Excuses Gilou31, (pourquoi j'ai mis guido )
J' ai appliqué ton code à partir de Feuil1,
Ca me donne successivement, Feuil11, Feuil12, etc
mais ensuite au lieu de Feuil20, Feuil110, Feuil111 etc..
Y a surement quelquechose à revoir.
Je sais pas quoi encore
Salut guido , peut-être à cause de çà.
Je crois que c'est normal.
Il te manque un _ dans ce code.
Sheets("Livre de mission_").Copy After:=Sheets(Sheets.Count)
Moi j'ai pris ton code en mettant Feuil1 partout, c'est OK.
A voir
je ne pense pas qu'il faille rajouter un "_", car c'est la feuille qu'il copie.
Ma feuille principale est livre de mission, qui se transforme après en livre de mission_1
J'ai essayer en mettant "_", toujours le meme probleme.
pourquoi les modèles marche-t-il pour le premier essai mais bug poru les autres grrr