Vous utilisez un navigateur obsolète. Il se peut que ce site ou d'autres sites Web ne s'affichent pas correctement. Vous devez le mettre à jour ou utiliser un navigateur alternatif.
Boostez vos compétences Excel avec notre communauté !
Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force.
Apprenez, échangez, progressez – et tout ça gratuitement !
👉 Inscrivez-vous maintenant !
Pouvez vous svp me donner un petit coup de main
J'ai une feuille nommée P0
J'aurais souhaité faire une macro qui me crée : une nouvelle feuille P1, si je relance la macro P2, et ainsi de suite.
Sub newfeuil()
Max = 0
For Each sh In Sheets
If Left(sh.Name, 1) = "P" Then
num = CInt(Replace(sh.Name, "P", ""))
If num > Max Then Max = num
End If
Next
Sheets.Add.Name = "P" & Max + 1
End Sub
Bonjour Pierre Jean
Je n'ai pas encore testé le code que tu m'as communiqué mais je te remercie déjà par avance
En tout cas un grand merci pour cette réponse plus que rapide 😉
Bonne journée
Philippe
Pierre-Jean,
Le code tu m'as communiqué fonctionne très bien et me créé bien une feuille PX+1.
Serait-il possible que cette nouvelle feuille créée soit une copie de P0
Sub newfeuil()
Max = 0
For Each sh In Sheets
If Left(sh.Name, 1) = "P" Then
num = CInt(Replace(sh.Name, "P", ""))
If num > Max Then Max = num
End If
Next
Sheets.Add.Name = "P" & Max + 1
Sheets("P0").Cells.Copy Destination:=ActiveSheet.Range("A1")
End Sub
Bonsoir le Forum, Pierre Jean,
Désolé de te solliciter de nouveau mais je souhaitais savoir si il était possible de placer cette nouvelle feuille créée (P3 par exemple) juste après la feuille P2. Car pour le moment la nouvelle feuille créee se met en 1ère position
Encore merci à tous pour le temps que vous nous consacrez à nous novices
Sub newfeuil()
Max = 0
For Each sh In Sheets
If Left(sh.Name, 1) = "P" Then
num = CInt(Replace(sh.Name, "P", ""))
If num > Max Then Max = num
End If
Next
Sheets.Add after:=Sheets("P" & Max)
ActiveSheet.Name = "P" & Max + 1
Sheets("P0").Cells.Copy Destination:=ActiveSheet.Range("A1")
End Sub
- Navigue sans publicité - Accède à Cléa, notre assistante IA experte Excel... et pas que... - Profite de fonctionnalités exclusives Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel. Je deviens Supporter XLD