Incrémentation n° automatique

[shrek59]

Bonjour,

je suis novice en la matière,

je souhaiterai savoir si il est possible d'incrémenter une cellule à chaque nouvelle feuille créée ? Et ceci sur chacune des nouvelle feuille ?

si oui merci de me donner le truc.

 

[Dan]

Re : Incrémentation n° automatique

Bonsoir,

Voici un code à utiliser :

Private Sub Workbook_NewSheet(ByVal Sh As Object)
'Macro par DAN le 28/07/06
'Fil http://www.excel-downloads.com/forum/65178-incrementation-n-automatique.html
Dim compteur As Byte
compteur = Worksheets.Count
Sheets("feuil1").Range("A1") = compteur
End Sub

Le code est à placer en VBA (ALT + F11 puis CTRL + G) dans THISWORKBOOK. Enregistre ton fichier avant de le fermer.

Cette macro incrémente la cellule A1 de la feuille 1 à chaque fois que tu ajoutes une feuille dans le classeur.

Crdlt

 

[shrek59]

Re : Incrémentation n° automatique

Merci pour le truc,
je l'ai manipulé à ma sauce pour faire exactement ce que je souhaité.

Encore merci.😉