Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

numero fixe

M

michel

Guest
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.
 
M

michel_M

Guest
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
 

Discussions similaires

Réponses
3
Affichages
647
Réponses
4
Affichages
353
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…