Bonsoir Bruno
je reviens à nouveau vers toi sur ce thème
tu m'as bcp aidé avec plusieurs scripts. Apres de nombreux tests il s'avère que l'un fonctionne mieux que les autres ; celui-ci donc :
**
Sub Newblmobile()
Dim n, k, tx, onglet, deb, init, nb
init = "FM" '
les 2 premières lettres du dernier onglet
nb = 6
'nombre d'onglet à copier
ActiveWorkbook.Unprotect "motdepasse"
For k = Sheets.Count To 1 Step -1
If Left(Sheets(k).Name, 2) = init Then
deb = k
n = Val(Replace(Sheets(k).Name, init, ""))
tx = Replace(Sheets(k).Name, n, n + 1)
Exit For
End If
Next
For k = deb - nb + 1 To deb
Sheets(k).Copy after:=Sheets(Sheets.Count)
tx = Replace(Sheets(k).Name, n, n + 1)
ActiveSheet.Name = tx
If Left(tx, 2) <> "BL" Then
ActiveSheet.Unprotect
For Each c In ActiveSheet.Cells.SpecialCells(xlCellTypeFormulas)
c.Formula = Replace(c.Formula, "BL impr." & n, "BL impr." & n + 1)
c.Formula = Replace(c.Formula, "Man" & n, "Man" & n + 1)
Next
End If
Next
ActiveWorkbook.Protect "motdepasse"
End Sub
**
ce script est adapté pour un jeu de 6 onglets appelés (dans l'ordre ci-dessous) :
- BL1 impr.1
- Pack. List1
- Man1
- MR1
- Letter1
- FM1
maintenant j'aimerai adapter ce code à un jeu de 4 onglets appelés (dans l'ordre ci-dessous) :
- SWB1
- PCK1
- CMA1
- REC1
j'ai fait plusieurs testS mais sans réussite. peux tu m'aider encore une fois stp ?
merci bcp par avance
Seb