Numéro de facture auto

[JuJu77]

Bonjour,

J'ai essayé de trouvé des sujets sur le forum, mais je n'arrive pas à adapter la macro à mon fichier....
J'ai la macro suivante pour incrémenter directement mon numéro auto...

Private Sub CommandButton1_Click()
num = Val(Mid(Range("I7"), 4, 3))
num = Format(num + 1, "000")
Range("I7") = Left(Range("A1"), 3) & num & Mid(Range("I7"), 7, 5)
End Sub

Mais ça ne fonctionne pas à mon grand regret...

Pourriez-vous m'aider svp??

Merci!

 

[Minick]

Re : Numéro de facture auto

Salut,

Le probleme ne viendrait il pas simplement de ca:

Range("I7") = Left(Range("[SIZE=4][U][B][COLOR=Red]A1[/COLOR][/B][/U][/SIZE]"), 3) & num & Mid(Range("I7"), 7, 5)

Remplace par I7

 

[JuJu77]

Re : Numéro de facture auto

J'ai fait la correction mais cela ne résout pas le problème... merci quand même

 

[Minick]

Re : Numéro de facture auto



Enleve le Private pour voir.

 

[othman75]

Re : Numéro de facture auto

bonsoir s il vous plait je galere moi aussi avec ma structure pourriez vous m aider??