N° FACTURE

[jeny]

bonjour a tous
encore moi j'ai essayé ça

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim numero As Integer
numero = Val(Feuil3.TextBox1.Text)
numero = numero + 1
Feuil3.TextBox1.Text = numero

mais a chaque fois que je clique dans une cellule ça me rajoute 1
merci de bien vouloir m'aider
ça a marché jusqu'a 3 et ensuite probleme!!!
merci et @ +

 

[Valérie]

Salut Jeny et le forum,

a chaque fois que je clique dans une cellule ça me rajoute 1, c'est bien ce que tu lui as demandé en plaçant ton code dans la procédure événementielle Worksheet_SelectionChange, en fait chaque changement de sélection provoque la mise en route de ton code!!!

Dis-nous quand souhaites-tu que cela se passe et on pourra te guider pour éviter que ce soit tout le temps ou presque....

@+
Valérie

 

[jeny]

bojour valerie ,bonjour le forum,merci de m'avoir repondu


en fait je voulais que ça se passe apres l'enregistrement de mon devis
@+
jeny

 

[@+Thierry]

Bonjour Jeny, Valérie, le Forum

Et bien alors si c'est à l'enregistrement que tu veux l'incrémentation de ton numéro, il y a une Procédure Evènementielle qui devrait t'aller comme un gant !

Dans le Private Module du Classeur "ThisWorkBook" : (Ni un

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim numero As Integer
numero = Val(Feuil3.TextBox1.Text)
numero = numero + 1
Feuil3.TextBox1.Text = numero
End Sub


Bon Appétit
@+Thierry

 

[jeny]

re bonjour,
j'ai vu a peu pres l'erreur que j'avais fait,j'ai donc mis ça a la place

Private Sub Workbook_Open()
Dim numero As Integer
numero = Val(Feuil3.TextBox1.Text)
numero = numero + 1
Feuil3.TextBox1.Text = numero


End Sub

mais la ça marche a chaque fois que je ferme le classeur
j'aimerais mieux que ça fonctionne quand j'enregistre mon devis
bon je vais essayer encore
peut etre que je vais y arriver
merci
@+

 

[jeny]

re bonjour a tous
et bien merci valerie et thierry
ça marche
bon vous en doutiez pas mais moi oui
la je planche pour afficher un logo ou non au choix(image)
mais bon comme dab je galere
mais avec votre aide et beaucoup de patience j'y arriverai
enfin j'espere
encore merci
@+
bonne soiree
jeny