Copier/Coller une feuille et renuméroter

[ManuF]

Bonjour,

Je chercher à Copier/Coller une feuille et renuméroter la nouvelle feuille dans la cellule Q2.
Apparemment ma manière de faire ne fonctionne pas.
De plus la feuille peut être Copier/Coller à plusieurs reprises et renuméroter à chaque fois par rapport à la dernière.
Pourriez vous me dire quelles sont mes erreurs?

Merci par avance,

 

[Caillou]

Re : Copier/Coller une feuille et renuméroter

Bonjour,

Essayes ce code :

Private Sub CommandButton1_Click()
  Dim num As Integer
  num = ActiveSheet.Range("Q2")
  ActiveSheet.Copy after:=ActiveSheet
  Range("Q2").Value = num + 1 
End Sub

Caillou

 

[ManuF]

Re : Copier/Coller une feuille et renuméroter

Bonjour Caillou,

Merci pour ta réponse,

Alors je viens de tester ce code, le résultat est le suivant :

- la copie se fait correctement
- le renumérotation se fait sur la première feuille
Je m'explique Feuil est bien copié en Feuil2, mais la renumérotation affichée dans la cellule ("Q2") est 2 pour Feuil et 1 pour Feuil 2.

Manu

 

[ManuF]

Re : Copier/Coller une feuille et renuméroter

En fait c'est le contraire que je souhaitais faire,

 

[Caillou]

Re : Copier/Coller une feuille et renuméroter

Re,

La macro copie la feuille active et c'est bien la copie qui est renumérotée comme tu le souhaitais.

Caillou

 

[ManuF]

Re : Copier/Coller une feuille et renuméroter

Salut Caillou,

Désolé de ne répondre que maintenant, j'ai été pas mal occupé par le boulot.
Effectivement la macro copie la feuille active, lorsque je le faisais le numéro de la feuille restait à 1 sur la copie aussi. C'est pourquoi je parlais de renumérotation.
Mon souhaits est que la copie porte le numéro correspondant à la copie, c'est à dire que Originale porte le numéro 1, la copie porte le numéro 2 etc...

En attendant je tiens tout de même à te remercier pour le temps que tu m'accordes.

ManuF

 

[ManuF]

Re : Copier/Coller une feuille et renuméroter

Bonjour,

C'est bon j'ai fini par trouver, tout en gardant la base que m'avais donné Caillou.

Private Sub CommandButton1_Click()

Dim WsName As String
Dim num As Integer
num = ActiveSheet.Range("W2")
ActiveSheet.Copy after:=ActiveSheet
WsName = ActiveSheet.Name
Sheets(WsName).Range("W2").Value = num + 1


End Sub


Merci à +