R
rem$
Guest
bonjour à tous,
je souhaite à tous une bonne année 2005 santé, bonheur....
j'ai une macro qui me permet d'ajouter une feuille à mon dossier dans mon userform mais plutot que d'ajouter simplement une feuille je voudrais qu'elle insere une feuille model(mise en page des colonnes, lignes...)
est-ce possible ?
de plus le commandbutton2 se trouve sur la feuil1 vierge puique c'est un peu la feuil d'accueil est-ce possible que cette feuille n'apparaisse pas dans le listebox1
merci d'avance pour votre aide
Rem$
Private Sub CommandButton2_Click()
Dim nouvellefeuille As Object
Dim nom As String
retour:
nom = InputBox("quel nom pour la nouvelle feuille ? :")
If nom = "" Then Exit Sub
For Each ws In Worksheets
If ws.Name = nom Then
MsgBox ("Nom déjà choisi"): GoTo retour
End If
Next ws
Set nouvellefeuille = Worksheets.Add
nouvellefeuille.Name = nom
ListBox1.Clear
For Each ws In Worksheets
Me.ListBox1.AddItem ws.Name
Next ws
End Sub
je souhaite à tous une bonne année 2005 santé, bonheur....
j'ai une macro qui me permet d'ajouter une feuille à mon dossier dans mon userform mais plutot que d'ajouter simplement une feuille je voudrais qu'elle insere une feuille model(mise en page des colonnes, lignes...)
est-ce possible ?
de plus le commandbutton2 se trouve sur la feuil1 vierge puique c'est un peu la feuil d'accueil est-ce possible que cette feuille n'apparaisse pas dans le listebox1
merci d'avance pour votre aide
Rem$
Private Sub CommandButton2_Click()
Dim nouvellefeuille As Object
Dim nom As String
retour:
nom = InputBox("quel nom pour la nouvelle feuille ? :")
If nom = "" Then Exit Sub
For Each ws In Worksheets
If ws.Name = nom Then
MsgBox ("Nom déjà choisi"): GoTo retour
End If
Next ws
Set nouvellefeuille = Worksheets.Add
nouvellefeuille.Name = nom
ListBox1.Clear
For Each ws In Worksheets
Me.ListBox1.AddItem ws.Name
Next ws
End Sub