XL 2016 Compteur pour N° de devis

[Raffa]

Bonjour à toutes et tous,

Sur mes devis, je souhaiterai avoir un N° automatique dès lors que je crée un nouveau, est-ce possible?

Merci d'avance

H.

 

[Raffa]

Bonjour Bruno et tous,

Je n'y arrive pas!

Peux-tu m'aider?

Je t'envoie les captures de ce que j'ai fait et le fichier code

Je n'ai pas besoin de n° qui suivent une date, mon autre souci, je travaille avec deux sociétés et des n° différents, si on peut juste les passer au numero suivant ça me suffit.

Si tu peux, si c'est possible...

Merci ;+)

 

[youky(BJ)]

Bonjour,
Remplacer la macro par celle-ci sur votre fichier de la photo.
Peu d'ordi pendant cette semaine.
Bruno

Sub valider()
Dim n, tx
With Feuil2 'à adapter c'est l'onglet qui contiens la liste(voir en propriété)
n = Cells(.ListBox1.ListIndex + 11, 3) '+11 car commence ligne 11, le 3 c'est colonne C
If IsNumeric(n) Then
n = n + 1
Else
tx = Split(n, " ")(0)
n = Split(n, " ")(1)
n = tx & " " & n + 1
End If
If MsgBox("VALIDER " & .ListBox1.List(.ListBox1.ListIndex, 1) & " N° " & n, vbExclamation + vbYesNo, "CONFIRMATION") = vbNo Then Exit Sub
'Cells(.ListBox1.ListIndex + 11, 3) = n   'on mets le nouveau N°
Cells(.ListBox1.ListIndex + 11, 3) = n
'on mets les données en BD(àfaire)
'on fait le PDF (à faire)
'enregistre ci-dessous
'ActiveWorkbook.Save
End With
End Sub

 

[ChTi160]

Bonjour Raffa
Bonjour le Fil , le Forum
une question
dans le code ci dessous
à quoi correspond le f
dans :

Cells(.ListBox1.ListIndex + 11, 18) = f   'on mets le nouveau N°

Sub valider()
With Feuil5
e = Cells(.ListBox1.ListIndex + 11, 18)
If Left(e, 13) = Right(Year(Date), 2) Then
e = e + 1
Else
e = Val(Right(Year(Date), 2) & "049")
End If
If MsgBox("VALIDER " & .ListBox1.List(.ListBox1.ListIndex, 1) & " N° " & e, vbExclamation + vbYesNo, "CONFIRMATION") = vbNo Then Exit Sub
Cells(.ListBox1.ListIndex + 11, 18) = f 'on mets le nouveau N°
'on mets les données en BD(àfaire)
'on fait le PDF (à faire)
'enregistre ci-dessous
'ActiveWorkbook.Save
End With
End Sub

jean marie

 

[Raffa]

Euh, c'est moi qui avait penser que c'était la colonne à rentrer... Oui, je sais mais je n'y pige pas grand chose en code (et en bien d'autres choses aussi mdr... Sur excel hein!)

Bruno, j'y suis presque, j'ai mes n° qui changent en fonction de ce que je demande, il ne me manque plus que le résultat qui s'affiche en E13...
Peux-tu encore m'aider stp?

Sub valider()
Dim n, tx
With Feuil5 'à adapter c'est l'onglet qui contiens la liste(voir en propriété)
n = Cells(.ListBox1.ListIndex + 11, 3) '+11 car commence ligne 11, le 3 c'est colonne C
If IsNumeric(n) Then
n = n + 1
Else
tx = Split(n, " ")(0)
n = Split(n, " ")(1)
n = tx & " " & n + 1
End If
If MsgBox("VALIDER " & .ListBox1.List(.ListBox1.ListIndex, 1) & " N° " & n, vbExclamation + vbYesNo, "CONFIRMATION") = vbNo Then Exit Sub
'Cells(.ListBox1.ListIndex + 11, 3) = n 'on mets le nouveau N°
Cells(.ListBox1.ListIndex + 11, 3) = n
'on mets les données en BD(àfaire)
'on fait le PDF (à faire)
'enregistre ci-dessous
'ActiveWorkbook.Save
End With
End Sub

Henri

 

[youky(BJ)]

Ajouter ligne en rouge

If MsgBox("VALIDER " & .ListBox1.List(.ListBox1.ListIndex, 1) & " N° " & n, vbExclamation + vbYesNo, "CONFIRMATION") = vbNo Then Exit Sub
'Cells(.ListBox1.ListIndex + 11, 3) = n 'on mets le nouveau N°
Cells(.ListBox1.ListIndex + 11, 3) = n
[E13]=.ListBox1.List(.ListBox1.ListIndex,1)'les col de la listBox commencent à 0
'on mets les données en BD(àfaire)
'on fait le PDF (à faire)
'enregistre ci-dessous
'ActiveWorkbook.Save
End With
End Sub

Bruno

 

[Raffa]

Presque... en E13 j'ai PRESUPUESTO qui correspond à la colonne B, un tit coup à droite et j'y suis lol

Sub valider()
Dim n, tx
With Feuil5 'à adapter c'est l'onglet qui contiens la liste(voir en propriété)
n = Cells(.ListBox1.ListIndex + 11, 3) '+11 car commence ligne 11, le 3 c'est colonne C
If IsNumeric(n) Then
n = n + 1
Else
tx = Split(n, " ")(0)
n = Split(n, " ")(1)
n = tx & " " & n + 1
End If
If MsgBox("VALIDER " & .ListBox1.List(.ListBox1.ListIndex, 1) & " N° " & n, vbExclamation + vbYesNo, "CONFIRMATION") = vbNo Then Exit Sub
'Cells(.ListBox1.ListIndex + 11, 3) = n 'on mets le nouveau N°
Cells(.ListBox1.ListIndex + 11, 3) = n
[E13] = .ListBox1.List(.ListBox1.ListIndex, 1)
'on mets les données en BD(àfaire)
'on fait le PDF (à faire)
'enregistre ci-dessous
'ActiveWorkbook.Save
End With
End Sub

 

[youky(BJ)]

Ce serait bien de mentionner le résultat souhaité . . .
En partant du Jpg
[E13] = .ListBox1.List(.ListBox1.ListIndex, 1) 'renvoie PRESUPUESTO
[E13] = n ' renvoie Le nouveau N°
[E13] = .ListBox1.List(.ListBox1.ListIndex, 0) 'renvoie 1

Bruno

 

[Raffa]

Bruno, tout fonctionne, un grand merci pour ton travail et surtout ta patience.

Je te souhaite une excellente soirée

Henri