N° devis automatique - variante

Bonjour à tous,

Je rencontre un problème sur le code de mon bouton.

J'ai généré un code vba que j'ai associé à un bouton pour générer automatiquement un n° de devis, code où je ne rencontre aucun problème. Le voici :

Sub numerotationdevis()

part1 = Year(Date)
part2 = Format(Month(Date), "00")
part3 = Right(Range("F2"), 3)

Range("F2") = "D" & "-" & part1 & "-" & part2 & "-" & Format(Int(part3) + 1, "0000")

End Sub

Je souhaite faire une variante pour avoir plusieurs propositions de devis pour un seul client, réalisé le même jour. J'ai donc crée un nouveau bouton auquel j'ai associé ce code-ci:

Sub ajoutvariantedevis()

part1 = Year(Date)
part2 = Format(Month(Date), "00")
part3 = Right(Range("F2"), 3)
part4 = Right(Range("F2"), 2)
Range("F2") = "D" & "-" & part1 & "-" & part2 & "-" & Format(Int(part3), "0000") & "-" & Format(Int(part4) + 1, "00")

End Sub

le soucis c'est que mon nouveau numéro ne commence pas à "-00" +1, mais au numéro de devis en cours +1

Exemple : D-2025-01-0120 --> D-2025-01-0120-121

Et si je clique une nouvelle fois : D-2025-01--0121-122

Pouvez-vous m'aider à corriger cela s'il vous plaît?

Merci !

Salut GMSCC,

Suggestion sans prétention à adapter, bien sûr!
Pour cette "démo", simplement cliquer à la volée sur la feuille pour démarrer la macro.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'
part1 = Year(Date)
part2 = Format(Month(Date), "00")
part3 = Mid(Range("F2"), 11, 4)
On Error Resume Next
part4 = Split(Range("F2"), "/")(1)
On Error GoTo 0
Range("F2") = "D" & "-" & part1 & "-" & part2 & "-" & Format(Int(part3), "0000") & "/" & Format(Int(part4) + 1, "0000")
'
End Sub

A+

GMSCC,

pour compléter le fichier, un double-clic simule le fonctionnement de ton premier bouton : incrémentation du n° général du devis

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'
Cancel = True
part1 = Year(Date)
part2 = Format(Month(Date), "00")
part3 = Mid(Range("F2"), 11, 4)
Range("F2") = "D" & "-" & part1 & "-" & part2 & "-" & Format(Int(part3) + 1, "0000")
'
End Sub

A+

Merci beaucoup Curulis !

Je vais essayer de l'adapter sur mes boutons

Et si je n'y arrive aps je vais reprendre ce système de clic et double clic

Encore merci et un bon dimanche à toi

Salut GMSCC,

cela devrait aller sans souci en collant les codes tels quels dans tes boutons.
Pour le bouton "double-clic", juste enlever 'Cancel = True'

A+

Hey, désolé de t'embeter à nouveau mais cela ne fonctionne pas

J'ai crée 2 bouton ActivateX puisque les autres ne fonctionne pas puis copier coller les codes comme tu me la conseillé

Private Sub CommandButton1_Click()

part1 = Year(Date)
part2 = Format(Month(Date), "00")
part3 = Mid(Range("F2"), 11, 4)
Range("F2") = "D" & "-" & part1 & "-" & part2 & "-" & Format(Int(part3) + 1, "0000")

End Sub

Private Sub CommandButton2_Click()
'
Cancel = False
part1 = Year(Date)
part2 = Format(Month(Date), "00")
part3 = Mid(Range("F2"), 11, 4)
On Error Resume Next
part4 = Split(Range("F2"), "/")(1)
On Error GoTo 0
Range("F2") = "D" & "-" & part1 & "-" & part2 & "-" & Format(Int(part3), "0000") & "/" & Format(Int(part4) + 1, "0000")
'
End Sub

Le soucis est que, sur les 2 boutons, quand je les actionne, j'ai un message d'erreur avec à chaque fois la ligne Rang("F2") en jaune

Je ne comprends pas pourquoi

Pourrais-tu m'éclairer s'il te plait ?

Merci infiniment !!