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

Tao.tix · 13 Janvier 2004

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 · 13 Janvier 2004

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 · 14 Janvier 2004

Merci cela fonctionne très bien ;-)

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

Tao.tix

Guest

@+Thierry

Guest

Tao.tix

Guest

Discussions similaires