creation de feuilles

[RABIS]

bonjour, j'ai un bouton1 qui fait appel à un UserForm1 contenant un textbox1 ,un combobx et un bouton2(); en plus j'ai une premiere feuille (feuil1) dans la quelle il ya des formules pour besoin ,concernant n'importe quel nom entree .je voudrai ecrire un nom quelconque dans le textbox et que le bouton2_clic cree automatiquement cette feuille correspondante en mettant le nom de la feuille dans la cellule "d5"; apres que je puisse acceder au contenu de cette meme feuille en le selectionnant dans la combobox .mais ma formule ne marche ,je vous supplie de me guider.merci
voici la formule que j'ai utilisé,

sub CreerFeuilNommer()
Dim Idque As String
Application.ScreenUpdating = False
Idque = UserForm1.TextBox1.Text
Sheets("Feuil1").Copy after:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Name = Idque


Application.ScreenUpdating = True
End Sub
Sub bouton2_QuandClic()
UserForm1.Show (0)
End Sub
Sub Action4()
Dim VotreNom As String
Range("d5").Select
'Selection.End(xlUp).Offset(1, 0).Select
VotreNom = TextBox1.Text
ActiveCell.Value = VotreNom
End Sub

 

[fanfan38]

Re : creation de feuilles

Bonjour
Une piece jointe nous aiderai plus

A+ François