Discussion :

[bosk1000]

bonjour a tous

voila j'ai un formulaire "prise_de_commande" pour alimenter une feuille "commandeelectro".

ce formulaire fonctionne très bien, mais je voudrais lui ajouter une fonction plus complexe

actuellement je remplis les combobox :
"nom", "boxtype", "boxmarque", "boxproduit"
elles sont alimenter dans "UserForm_Initialize" par une fonction de type

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
boxtype.RowSource = "source!e2:e" & Range("source!e65536").End(xlUp).Row

ensuite je saisie dans les textbox :
"boxref", "pvht" (référence et prix de vente hors taxe)

je cherche a créer deux nouvelles fonctions

1) la première serait d'alimenter une liste dans la feuille "source" à chaque fois qu'une nouvelle référence(qui n'a jamais été sur cette liste) est saisie sur le bon de commande, cette référence vient s'ajouter à la liste, ainsi que le prix de vente HT qui va avec cette référence de la box PVHT

2)la deuxième qui dépend de la première serait d'avoir une zone de liste reprenant la liste de référence avec le pvht, mais qui se filtre au fur et a mesure des choix sur les combobox, ainsi si sur cette zone de liste apparait une référence que je doit taper, je voudrais double cliquer sur la ref et ainsi elle viendrait alimenter les deux textbox


voila c'est assez lourd et je ne sais même pas si c'est possible

merci pour votre aide

[jp014]

Bonsoir

Un code pour rajouter les données à la suite

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
 
Dim dl1 As Long ' en tête de module
Private Sub boxtype_Exit(ByVal Cancel As MSForms.ReturnBoolean)
dl1= 0 
If boxtype.ListIndex = -1 Then
With Sheets("source")
dl1 = .Cells(.Rows.Count, 5).End(xlUp).Row + 1
.Range("e" & dl1) = ComboBox1.Value
boxtype.RowSource = "source!e2:e" & Range("source!e65536").End(xlUp).Row
End With
End If
End Sub

La variable "dl1" contient le numéro de ligne, elle peut être utilisé pour mettre les éléments qui se trouvent dans les textbox.

A tester

JP014

[bosk1000]

merci de venir m'aider

je n'arrive pas a faire fonctionner cette macro dans le formulaire
j'ai mis boxtype_Exit vers la fin de l'action du formulaire et placer le code dans un module

mais je n'obtiens que le message

erreur de compilation
sub ou fonction mal définie

[jp014]

Bonjour

merci de venir m'aider

je n'arrive pas a faire fonctionner cette macro dans le formulaire
j'ai mis boxtype_Exit vers la fin de l'action du formulaire et placer le code dans un module

Le code doit être dans l'userform et non dans un module.

JP014

[bosk1000]

pour faire le test sans souci, j'ai créer un bouton pour ajouter la ref (txt_nexref), ainsi qu'une feuille (aaa) juste pour remplir cette fonction

j'ai donc mis comme code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
 
Private Sub txt_nexref_Click(ByVal Cancel As MSForms.ReturnBoolean)
Dim dl1 As Long ' en tête de module
dl1 = 0
If boxtype.ListIndex = -1 Then
With Sheets("source")
dl1 = .Cells(.Rows.Count, 5).End(xlUp).Row + 1
.Range("e" & dl1) = ComboBox1.Value
boxtype.RowSource = "aaa!e2:e" & Range("aaa!e65536").End(xlUp).Row
End With
End If
End Sub

au démarrage du formulaire, un message apparait :

erreur de compilation
la déclaration de la procédure ne correspond pas à la description de l'événement ou de la procédure de même nom

avec un focus sur la première ligne
j'ai donc tester en retirant ce qui est entre les parenthèse
(ByVal Cancel As MSForms.ReturnBoolean)
et il ne se passe rien quand je clique sur le bouton.

[mercatog]

Bonjour,
un exemple:
dans l'userform j'ai une combo boxtype alimentée par E2:Exx de la feuille source.
un textbox boxref qui:
Reprend le choix dans boxtype
Ou Ajoute un nouveau item à boxtype
Ou éventuellement on peux écrire un item déjà existant (ne sera pas ajouté)
ci-joint les codes nécessaires: (à mettre dans le module de l'userform)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
Option Explicit
 
Private Sub UserForm_Initialize()
boxtype.RowSource = "source!E2:E" & Sheets("source").Cells(Rows.Count, 5).End(xlUp).Row
End Sub
 
Private Sub boxref_AfterUpdate()
Dim c As Range
Dim LastLig As Long
 
With Sheets("source")
    LastLig = .Cells(Rows.Count, 5).End(xlUp).Row
    Set c = .Range("E2:E" & LastLig).Find(boxref, LookIn:=xlValues, lookat:=xlWhole)
    If c Is Nothing Then
        .Range("E" & LastLig + 1) = boxref
        boxtype.ListIndex = -1
        boxtype.RowSource = "source!E2:E" & LastLig + 1
        boxtype.Value = boxtype.List(boxtype.ListCount - 1)
    Else
        boxtype.Value = boxref.Value
    End If
    Set c = Nothing
End With
 
End Sub
 
Private Sub boxtype_Change()
boxref = boxtype
End Sub