numero fixe

[michel]

J'ai créé un devis avec une numerotation auto avec le code suivant :

Sub numdev()
Private Sub Workbook_Open()
Dim Compteur As String
Compteur = Range("N9").Value
Range("N9").Value = Compteur + 1
End Sub

Le numero de devis change bien à chaque ouverture dans le modèle, mais le problème est que lorsque j'enregistre le devis (enregistrer sous/.....)
et que je le réouvre le numero change.

Que manque-t-il dans la macro pour qu'il reste fixe une foi enregistré?

Merci de votre réponse.

 

[michel_M]

Bonsoir Michel, c’est Michel


Pour ton pb tu as plusieurs solutions :

1/ tu passes en déclenchement par un bouton (bof !)

2/ tu consacres une cellule dans un coin (ou tu veux) dans la quelle tu inscris une valeur (1 par exemple) en fin de macro (je suppose que tu fais ensuite un enregistrer sous au nom du devis (p+1)) et que cette macro est dans un classeur générique.
range(« IV65536 »)=1
tu inscrit en début de macro
une condition qui teste cette cellule
if range(« IV65536 »)=1 then : end


Bonne soirée
Michel