Macro création nouvelle feuille dans un classeur

[vince05]

Bonjour à tous et encors merci pour vos réponses toujours aussi rapides et efficaces.
Aprés avoir fait une recherche sur le forum je ne retrouve pas la macro exacte que je souhaiterais créer, je vous explique.
Je vous voudrais créer une macro qui copie des cellules d'une premiere feuille de mon classeur m'ouvre une inputbox de maniere à inscrire le nom de la nouvelle feuille dans l'inputbox et copie les cellules données dans ma nouvelle feuille.
Merci pour votre aide

 

[Robert]

Re : Macro création nouvelle feuille dans un classeur

Bonsoir Vince, bonsoir le forum,

Peut-être comme ça :

Sub Macro1()
Dim n As String 'déclare la variable n (Nom)
'définit le nom n

n = InputBox("Comment voulez-vous nommer le nouvel onglet ?", "NOM")
Sheets(1).Copy after:=Sheets(Sheets.Count) 'copy le premier onglet, et le colle en dernier
On Error Resume Next 'gestion des erreurs, si une erreur est provoquée, passe à la ligne suivante
ActiveSheet.Name = n 'nomme l'onglet (si le nom n'est pas valide, cela provoque une erreur
If Err <> 0 Then 'condition : si une erreur a été générée
    Err = 0 'supprime l'erreur
    Application.DisplayAlerts = False 'masque les messages d'Excel
    ActiveSheet.Delete 'supprime l'onglet ajouté
    Application.DisplayAlerts = True 'affiche les message d'Excel
End If 'fin de la condition
End Sub

 

[vince05]

Re : Macro création nouvelle feuille dans un classeur

Ca fonctionne impécable encors un grand merci😉

 

[vince05]

Re : Macro création nouvelle feuille dans un classeur

RE Robert cela fonctionne trés bien seulement cette macro me copie tout le temps la premiere page et il faudrais que cela me copie le feuille precedente à chaque fois est ce possible par avance merci

 

[vince05]

Re : Macro création nouvelle feuille dans un classeur

Peronne pour m'aider Robert ou es tu? lol