aide numéro automatique

[aquitain]

boujour à tous les menbres XLD et aux invités
je peux 'enregistrer sous' un devis avec une numérotation automatique,mais si je l'ouvre à nouveau le numéro augmente de 1
j'aurai aimer qu'il reste inchanger une fois enregistrer
le numéro automatique ce trouve en 'F8' sur le devis exemple

 

[Marco60]

Bonsoir,
ton fichier n'est pas passé.
Zippé, moins de 50 Ko, nom sans espaces, ni accents et sans caractères spéciaux.

A+

Marc

 

[Marc_du_78]

Bonsoir aquitain, Marco,

Une petite suggestion

Private Sub NumAuto()
Dim Compteur As Integer
Compteur = Range('A1').Value
Range('A1').Value = Compteur + 1
End Sub

Place un bouton sur ta feuille de devis (propriétés, décocher imprimer) et associe la macro à ce bouton clic droit : affecter une macro

Bon courange et bonne soirée.

 

[Marc_du_78]

re

Excuse-moi, il faut supprimer Private
Je te joints un exemple [file name=Aquitain.zip size=5944]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Aquitain.zip[/file]

 

[aquitain]

merci marc c'est ce que je cherchais , juste une petite chose quand je fais 'enregistrer sous' à la reouverture de la feuille j'ai une erreur d'execution '13'
imconpatibilité de type
:sick: j'suis pas trés bon

 

[aquitain]

autant pour moi marco60
voila l'exemple [file name=exempledevis.zip size=19203]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/exempledevis.zip[/file]

 

[Marc_du_78]

Re,
Fichier corrigé,
Bonne continuation.

 

[aquitain]

salut à tous

oups !! ton fichier n'est pas passer