créer une nouvelle feuille à partir d'une existante

[Tao.tix]

Bonjour,

Je voudrais savoir comment créer en VBA une nouvelle feuille excel à partir d'un modèle présent dans le classeur sachant que le nom sera déterminé par une valeur d'une listbox d'un userform.
En fait cela revient à faire une copie de feuille que l'on renomme quand on est dans excel et qu'on le fait à la souris

Merci

Sébastien

 

[@+Thierry]

Bonsoir Sébastien, le Forum

En supposant que tu aies un classeur avec la feuille modèle nommée "Matrix", voici un code que tu pourrais par exemple placer dans l'évènement ListBox1_Click dans le Private Module du Userform en question.

En prime j'y ai ajouté un test qui te sortira de la procédure si le nom a déjà été utlisé.

Private Sub ListBox1_Click()
Dim WS As Worksheet

For Each WS In Sheets
If WS.Name = Me.ListBox1 Then
MsgBox "Procédure annulée Feuille " & WS.Name & " Existante !", vbCritical, "Alert !!!"
Exit Sub
End If
Next

Sheets("Matrix").Copy After:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Name = Me.ListBox1
End Sub

Bonne Soirée
@+Thierry

 

[Tao.tix]

Merci cela fonctionne très bien ;-)