dupliquer une feuille

JC de Lorient · 20 Février 2005

Bonjour le forum,

je me lance dans un nouveau projet et j'ai tjrs de grosses lacunes en VBA donc je fais appel aux spécialistes que vs êtes !

J'ai une feuille que j'ai nommée "Matrice" je souhaiterais par commandbutton pouvoir en faire une copie qui lancerait un textbox du genre "entrez le nom de la nouvelle feuille" ex 2005 et que la nouvelle feuille se nomme 2005

autre question : est il possible par un commandbutton d'atteindre une certaine feuille avec condition
Nous sommes en 2005 => le commandbutton ouvre la feuille 2005
quand nous serons en 2006 => ce même bouton ouvre la feuille 2006

merci à vous et très bon dimanche

JC

@+Thierry · 20 Février 2005

Bonjour JC, le Forum

Rapidos depuis mon LapTop en vadrouille (!) et sans gestion d'erreurs (nom d'onglets existant etc)

Pour Dupliquer ta feuille "Matrix" :
Private Sub CommandButton1_Click()
Dim TheSheetName As String

TheSheetName = InputBox("NOM DE FEUILLE ? ", "Nouvelle Feuille")
If TheSheetName = "" Then Exit Sub

Worksheets("Matrix").Copy After:=Worksheets(Worksheets.Count)
Worksheets(Worksheets.Count).Name = TheSheetName
End Sub

Pour Activer la feuille de l'année en cours :
Private Sub CommandButton2_Click()
Dim TheYear As String
TheYear = Format(Date, "YYYY")

Worksheets(TheYear).Activate
End Sub

Bon Dimanche à Tous et Toutes
@+Thierry

JC de Lorient · 20 Février 2005

Bonjour Thierry, re le forum

merci pour ces infos
je n'ai pas le temps de mettre en application mais aucun doute que ça marchera

mille merci

JC

dupliquer une feuille

JC de Lorient

Guest

@+Thierry

Guest

JC de Lorient

Guest

Discussions similaires