Numérotation automatique de devis

bonjour,

je souhaiterais mettre en place un fichier de numérotation automatique des devis.

l'idée est de mettre en place un mini formulaire de saisie dans lequel on renseignerait le nom du commercial, la date (automatique à la date du jour si possible) le nom de la société et la désignation et en validant le formulaire le numéro de devis s'ajouterais automatiquement.

est-ce possible?

d'avance merci pour votre aide

ps: ci-joint le fichier actuellement exploité

Bonjour Leeloo86

déjà pour une incrémentation de numéro, voici une procédure de base

with sheets ("Feuil1")
.Range("B1") = .Range("B1") + 1
end with
end sub

Pascal

bonjour Pascal,

tout d'abord merci pour la réponse mais pour le moment la macro bug : j'ai fait un imprim écran du bug.

comme je suis novice en macro, je ne sais pas ce que je dois modifier pour que cema fonctionne. peux-tu m'aider?

d'avance merci

Amélie

bonjour leeloo86

en fait le code que je t'ai mis en vrac de mémoire est un code isu de mon fichier de facturation dont voici le code

With Sheets("facturation")
Select Case UCase(Range("D1"))
        Case Is = "FACTURE"
        Range("S7") = Range("S7") + 1
       Case Is = "DEVIS"
        Range("S8") = Range("S8") + 1
        End Select

End Sub

en fait le nom de ma feuille est en cell "D1" et a chaque nouvelle feuille ce code est appeler lors de l'appui sur le bouton nouvelle feuille

Pascal