Insérer feuille X+1

pierrejean

XLDnaute Barbatruc

• 29 Octobre 2013

• #2

Re : Insérer feuille X+1

Bonjour fileofish

A tester:

Code:

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

 

Vote positif 0 Vote négatif

F

fileofish

XLDnaute Occasionnel

• 29 Octobre 2013

• #3

Re : Insérer feuille X+1

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

 

Vote positif 0 Vote négatif

F

fileofish

XLDnaute Occasionnel

• 29 Octobre 2013

• #4

Re : Insérer feuille X+1

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

Encore merci pour ton aide
Philippe

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 29 Octobre 2013

• #5

Re : Insérer feuille X+1

Re

Code:

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

 

Vote positif 0 Vote négatif

F

fileofish

XLDnaute Occasionnel

• 29 Octobre 2013

• #6

Re : Insérer feuille X+1

Top !
Merci Pierre Jean

 

Vote positif 0 Vote négatif

F

fileofish

XLDnaute Occasionnel

• 30 Octobre 2013

• #7

Re : Insérer feuille X+1

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

Philippe

 

Vote positif 0 Vote négatif

ninbihan

XLDnaute Impliqué

• 30 Octobre 2013

• #8

Re : Insérer feuille X+1

Bonsoir à tous,

En l'absence de PJ je me permets...

Code:

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

Ninbihan

 

Vote positif 0 Vote négatif

F

fileofish

XLDnaute Occasionnel

• 31 Octobre 2013

• #9

Re : Insérer feuille X+1

Génial ça fonctionne merci beaucoup Ninbihan

 

Vote positif 0 Vote négatif