Salut à tous,
Dans le code suivant :
Sub CopiePB()
Dim strNewName As String
Dim i As Integer
strNewName = "Pense bete"
For i = 2 To 15
If Feuil_Exist(ThisWorkbook.Name, strNewName) = True Then
strNewName = "Pense bete N°" & i
End If
Next
ActiveSheet.Copy Before:=Worksheets("Pense bete") ' copie feuille en cours avant la feuille en cours
ActiveSheet.Name = strNewName
ActiveSheet.Shapes("CommandButton1").Select
Selection.Cut
Sheets("Pense bete").Select
Range("C3").Select
End Sub
J'ai une feuille nommée "Pense bete", j'ai créer un bouton copie.
Celui copie la feuille "Pense bete" et la colle avant cette feuille en la renommant puis en supprimant le bouton.
L'idée c'est que c'est la feuille "Pense bete" qui soit utilisée, la copie, c'est qu'une trace.
J'ai utilisé "For et Next" pour ce qui se passera entre une 2ième copie jusqu'à une 15ième copie (jamais + de 15 copie) pour renommer les copies suivantes en récupérant ma variable.
Tout marche, le seul soucis c'est que l'ordre me plaît pas.
On colle toujours la nouvelle feuille derrière le "Pense bete", du coup je me retrouve avec :
Pense bête N°2, Pense bête N°3, Pense bête N°4, Pense bête.
Hors, j'aimerais l'odre inverse, 4, 3, 2 et Pense bête.
Je n'arrive pas à jouer sur le
ActiveSheet.Copy Before:=Worksheets("Pense bete")
Cordialement