Duplication de feuilles

Le
Philippe
Bonjour,
J' ai un classeur comportant plusieurs feuilles
je souhaite en VBA ou macro dupliquer à la demande dans sa totalité la
dernière feuille soit la feuille ADH0125 et obtenir une nouvelle feuille
ADH0126
si nécessaire
par la suite dupliquer la feuille ADH0126 qui est la dernière créee et
obtenir la feuille ADH0127

Merci de votre aide et vos idées
Phil
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Jacky
Le #4466231
Bonsoir,

Ceci peut-être
'----------
Sub jj()
Dim x As String
x = ActiveSheet.Name
ActiveSheet.Copy After:¬tiveSheet
ActiveSheet.Name = Left(x, 3) & Format(Right(x, 4) + 1, "0000")
End Sub
'---------

--
Salutations
JJ


"Philippe" 4628e432$0$7533$
Bonjour,
J' ai un classeur comportant plusieurs feuilles
je souhaite en VBA ou macro dupliquer à la demande dans sa totalité la
dernière feuille soit la feuille ADH0125 et obtenir une nouvelle feuille
ADH0126
si nécessaire
par la suite dupliquer la feuille ADH0126 qui est la dernière créee et
obtenir la feuille ADH0127

Merci de votre aide et vos idées
Phil



LSteph
Le #4466201
Bonjour,

Si cela reste dans l'ordre

Sub ajout()
With Sheets(Sheets.Count)
.Copy after:=Sheets(Sheets.Count)
ActiveSheet.Name = Left(.Name, 3) _
& Format(CStr(CInt(Right(.Name, 4)) + 1), "0000")
End With
End Sub

'Cordialement.

'lSteph

Bonjour,
J' ai un classeur comportant plusieurs feuilles
je souhaite en VBA ou macro dupliquer à la demande dans sa totalité la
dernière feuille soit la feuille ADH0125 et obtenir une nouvelle feuille
ADH0126
si nécessaire
par la suite dupliquer la feuille ADH0126 qui est la dernière créee et
obtenir la feuille ADH0127

Merci de votre aide et vos idées
Phil




Jacky
Le #4466191
Re...
Avec une protection au cas ou la feuille existe déjà
'--------------
Sub jj()
Dim x As String
x = ActiveSheet.Name
ActiveSheet.Copy After:¬tiveSheet
On Error GoTo Err
ActiveSheet.Name = Left(x, 3) & Format(Right(x, 4) + 1, "0000")
Exit Sub
Err:
MsgBox "La feuille '" & Left(x, 3) & Format(Right(x, 4) + 1, "0000") & "'
existe déjà"
Application.DisplayAlerts = False
ActiveSheet.Delete
End Sub
'----------

--
Salutations
JJ


"Jacky"
Bonsoir,

Ceci peut-être
'----------
Sub jj()
Dim x As String
x = ActiveSheet.Name
ActiveSheet.Copy After:¬tiveSheet
ActiveSheet.Name = Left(x, 3) & Format(Right(x, 4) + 1, "0000")
End Sub
'---------

--
Salutations
JJ


"Philippe" 4628e432$0$7533$
Bonjour,
J' ai un classeur comportant plusieurs feuilles
je souhaite en VBA ou macro dupliquer à la demande dans sa totalité la
dernière feuille soit la feuille ADH0125 et obtenir une nouvelle feuille
ADH0126
si nécessaire
par la suite dupliquer la feuille ADH0126 qui est la dernière créee et
obtenir la feuille ADH0127

Merci de votre aide et vos idées
Phil







Philippe
Le #4466171
Merci de vos réponses je vais tester dans la soirée
Bon we
Phil
"LSteph"
Bonjour,

Si cela reste dans l'ordre

Sub ajout()
With Sheets(Sheets.Count)
.Copy after:=Sheets(Sheets.Count)
ActiveSheet.Name = Left(.Name, 3) _
& Format(CStr(CInt(Right(.Name, 4)) + 1), "0000")
End With
End Sub

'Cordialement.

'lSteph

Bonjour,
J' ai un classeur comportant plusieurs feuilles
je souhaite en VBA ou macro dupliquer à la demande dans sa totalité la
dernière feuille soit la feuille ADH0125 et obtenir une nouvelle feuille
ADH0126
si nécessaire
par la suite dupliquer la feuille ADH0126 qui est la dernière créee et
obtenir la feuille ADH0127

Merci de votre aide et vos idées
Phil




Publicité
Poster une réponse
Anonyme