Numérotation en VBA

Bonjour à tous,

Je cherche depuis plusieurs jours à générer un code VBA au moyen d'un bouton des numéros de devis aléatoires (tout au moins pour les numéros ex : SARL_000235_F).

J'ai bien regardé des vidéos mais impossible de faire fonctionner en VBA au moyen d'un bouton.

Je souhaite que le nouveau numéro s'incrément quand je clique sur un bouton et pas à l'ouverture d'XL (office 365).

Un petit coup de pouce serait apprécié.

Merci à tous.

Bonjour Danymaccoy et

danymaccoy a écrit :

Bonjour à tous,

Je cherche depuis plusieurs jours à générer un code VBA au moyen d'un bouton des numéros de devis aléatoires (tout au moins pour les numéros ex : SARL_000235_F).

Des numéros de devis "aléatoires" !!!???

Bonjour,

Désolé pour ma demande un peu évasive....je vais préciser.

Le but est d'arriver à générer un numéro ex :SARL _ 000000_D unique à un devis mais avec un bouton et en code VBA.

Je ne veux pas que mon numéro s'incrémente automatiquement à l'ouverture ou à la fermeture du dossier mais uniquement si j'appuie sur le bouton.

Merci à tous.

Cordialement.

Re,

Voici le code détaillé pour incrémenter le numéro de devis

Sub IncrementDevis()
  Dim sNum As String, OldNum As Integer, NewNum As Integer
  ' Pour l'exemple, le numéro est en A1
  sNum = Sheets("Feuil1").Range("A1")
  ' Récupérer le numéro de devis à partir de la 6ème position, 6 caractères
  OldNum = Mid(sNum, 6, 6)
  ' Incrémneter le numéro
  NewNum = OldNum + 1
  ' Reformer le numéro entier
  sNum = "SARL_" & Format(NewNum, "000000") & "_D"
  ' Inscrire le numéro
  Sheets("Feuil1").Range("A1").Value = sNum
End Sub

@+

Merci beaucoup mais apparament, il y a une petite erreur dans le code et je vous joins en pièce la capture d'écran..

Merci.

Bonjour,

Un oubli du terme = dans la procédure de notre modérateur !...

Bon, sinon pour faire court...

Public Sub IncrementDevis()
Dim iNum As Integer
    With Worksheets("Numérotation")
        iNum = CInt(Mid(.Cells(1).Value, 6, 6)) + 1
        .Cells(1).Value = "SARL_" & Format(iNum, "000000") & "_D"
    End With
End Sub

Edit : Effectivement

Bonsoir danymaccoy, BrunoM45, le forum,

Il manque un = sur cette ligne: (et il faut que ta cellule A1 soit remplie)

sNum = "SARL_" & Format(NewNum, "000000") & "_D"

EDIT : Bonsoir Jean-Eric

Cordialement,

Nikel,

Merci beaucoup .

Bonne soirée.

Cordialement.