numérotation automatique d'une feuille excel

Bonsoir,

Pour la numérotation automatique, pas de problème.
Dans le module Workbook Open tu inscrit :

Private Sub Workbook_Open()

Sheets("feuil1").Range("a1") = Sheets("feuil1").Range("a1") + 1

End Sub


Si par exemple ta feuille se nomme "feuil1" & si ton compteur se trouve dans la cellule "A1".

Pour ce qui est d'effacer tes données lors d'une nouvelle ouverture, voici une macro qui efface toutes les donnees contenues dans des textbox de la feuille "feuil1" :

Sub Efface()

With Sheets("feuil1")
.TextBox1 = ""
.TextBox2 = ""
.TextBox3 = ""
.TextBox4 = ""
.TextBox5 = ""
End With

End Sub

Pour que cela se fasse dès l'ouverture, tu appelles la macro dans le module workbook open :

Private Sub Workbook_Open()

Sheets("feuil1").Range("a1") = Sheets("feuil1").Range("a1") + 1

Efface

End Sub

@+

Ronan

P.S. : pour ce qui est du reste, ??????

Merci Ronan tu viens de m'enlever une grosse épine du pied.
Je vais tester ca aujourd'hui et je te tiens au courant.

Merci et bonne journée.
A +

Vivien.

Bonjour Vivien, Ronan, le Forum

Pour ce qui est du reste, regarde ce fil Vivien, je pense que la seconde démo représente ce que tu veux faire :

Lien supprimé

La feuille n'est pas zippée (compressée), mais pour ceci c'est une autre histoire, ou alors il te faut "Magic Ti" !!!

Bonne Journée
@+Thierry

Ok et encore merci je verrai tout ca demain car j ai pas le logiciel qu il faut chez moi.
Salut a la prochaine.
Vivien.

Bonjour, J'ai de la misère à faire une numérotation automatique. J'ai lu un peu sur le forum et je n'arrive pas à faire ce que je veux. Je voudrais que mon numéro de facture change à chaque fois que j'ouvre ce fichier.

Mille Mercis à l'avance