Visual Basic : créateur de devis

[invited9437926]

Créateur de devis :

Bonjour, actuellement je me gère manuellement la prise de numéro de devis sur tableau Excel et a vrai dire c’est assez fastidieux a la longue et c’est pas très sur.
Je pense qu’il est possible avec du vb de pouvoir réaliser cela, j’ai bien essayé et je bloque un pti peu

Voici mon processus :

J’ai 5 types de devis :

DP…
DM…
DL…
DC…
DA…

… étant un chiffre qui s’incrémente de 1 à chaque fois que je créé un nouveau devis. Par exemple :

DP1
DA2
DL3
DM4
DM5
DP6
Etc.
DM1678
DP1679
Etc.

Je voudrai me faire une fenêtre userform dans laquelle je retrouve :

1 menu déroulant qui me permette de selectionner mon DP,DM,DL,DC ou DA, un bouton « créer un nouveau devis » . Je clic dessus et dans une case apparaît nouveau devis créé : DC567 par exemple. Et cela me génère automatiquement un fichier type Excel que je n’ai plus qu’a remplir et a faxer ou mailer a mon client.
On pourait imaginer par la suite dans ma userform différentes relations comme date, nom du destinataire, fax, tel etc… qui viennent automatiquement remplir mes cases excel.

Si qq peut m’aiguiller, c’est surtout au niveau du langage je l’en remercie d’avance.
++
A bientôt

chocobo
-----

[noeudpap]

En adaptant la solution ci-dessous vous devezpouvoir vous en sortir

Il faut créer une feuille compteur dans un classeur compteur et mettre en colonne A les type de compteur et en colonne B les valeurs correspondantes de ces compteurs.

Dans le classeur facture il faut :

créer une macro avec un userform (userform1) contenant une combobox (combobox1) et un bouton

Le code du userform est :
Private Sub ComboBox1_Change()

Select Case ComboBox1.Value
Case 0
Typecompteur$ = "DP" 'Listindex = 0
Case 1
Typecompteur$ = "DM" 'Listindex = 1
Case 2
Typecompteur$ = "DL" 'Listindex = 2
Case 3
Typecompteur$ = "DC" 'Listindex = 2
Case 4
Typecompteur$ = "DA" 'Listindex = 2

End Select

End Sub



Private Sub CommandButton1_Click()

Workbooks.Open Filename:="G:\Documents\compte ur.xls"
With Sheets("compteur").Range("a:a" )
'on commence par rechercher dans la table de de données le N° de ligne correspondant
'au titre sélectionné
Set c = .Find(Typecompteur$, LookIn:=xlValues, LookAt:=xlWhole)
'la variable Lig, correspondant au numéro de la ligne trouvée, est définie comme une variable
'publique dans le module général déclarations. Ceci permet de passer sa valeur d'un userform à un autre.

If Not c Is Nothing Then lig = c.Row

compteur = Range("B" & lig).Value
compteur = compteur + 1
Range("B" & lig).Value = compteur

End With

ActiveWorkbook.Close

Unload UserForm1

MsgBox compteur
End Sub

Private Sub UserForm_Initialize()
'Ajoutez des entrées dans la zone de liste
'modifiable. La valeur de chaque entrée est égale
'àla valeur correspondante de la propriété
'ListIndex dans la zone de liste modifiable.

ComboBox1.AddItem "DP" 'ListIndex = 0
ComboBox1.AddItem "DM" 'ListIndex =1
ComboBox1.AddItem "DL" 'ListIndex = 2
ComboBox1.AddItem "DC" 'ListIndex =3
ComboBox1.AddItem "DA" 'ListIndex =4

'Les valeurs de la zone de liste
'modifiable sont celles de la
'propriété ListIndex

ComboBox1.BoundColumn = 0
'Positionnez la zone de liste
'modifiable sur la première entrée
ComboBox1.ListIndex = 0
ComboBox1.Style = fmStyleDropDownList

End Sub

Créer un module

Créer la section déclaration :
Global compteur
Global Typecompteur$


Créer la partie macro :

Sub majcompteur()
UserForm1.Show
End Sub

[invited9437926]

Merci bcp nouedpap pour cette réponse, je teste ça et je te tiens au courant...

++
chocobo