Rapport de message :*
 

Re: Renommer une feuille

Titre du sujet : Re: Renommer une feuille
par Skoobi le 28/12/2008 18:05:11

Bonjour claude,

en bleu ce qu'il faut ajouter dans le code:

Private Sub CommandButton1_Click()
Sheets("Feuil2").Select
Sheets("Feuil2").Name = LOT.Value
Cells(2, 6) = Refproduit.Value
Cells(2, 10) = LOT.Value
Cells(2, 14) = Calendar1.Value
Cells(1, 1).Select
Unload Me
End Sub