insertion de numero

[skull]

Bonjour,
je suis en train de creer un fichier avec du VBA, et je voudrais creer un bouton qui me creer une nouvelle fiche et qui insere un nouveau numero automatqiuement,
je cherche depuis un moment mais je n'y arrive pas,
alors si quelqu'un connait
merci

 

[Ludwig]

Bonjour Skull,

J'espère que ce bout de code te permettra d'avancer :

Private Sub CmdAjout_Click()
Dim I As Variant

'Compte le nombre de feuille et insére le chiffre en A1 de la Feuil1
For I = 1 To Sheets.Count
With Sheets("Feuil1")
.Range("A1").Value = I + 1
End With
Next I

'Créer une nouvelle feuille avec comme nom la valeur de A1
Sheets.Add.Name = I

Sheets("Feuil1").Select

End Sub

A bientôt

Ludwig

 

[@+Thierry]

Bonsoir Rapidos

Dans le style code ultra short :

Sub AddNumSheets()
ActiveWorkbook.Sheets.Add.Name = Worksheets.Count + 1
End Sub

Bonne Soirée
@+Thierry