Aide VBA sur Exel

Version imprimable

Aide VBA sur Exel

Boujour tout le monde,

J'ai un problème, je ne trouve pas pourquoi sa ne marche pas.
Je veux que UserForm2 soit détaillé sur UserForm3
Par exemple :
Code : 29
Prix Unitaire : 5€
Intétulé : Test
Quantité : 1
http://prntscr.com/dn9ptd
http://prntscr.com/dn9pxc

UserForm2

Code:

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
30
31
32
33
34
35
36
37
Private Sub CommandButton1_Enter()
 
Sheets("Facture").Activate
Range("A1").Select
Selection.End(xlDown).Select
Selection.Offset(1, 0).Select
ActiveCell = TextBox1.Value
UserForm2.Hide
UserForm3.Show
 
End Sub
 
Private Sub CommandButton2_Click()
UserForm1.Show
UserForm2.Hide
End Sub
 
Private Sub TextBox1_change()
If TextBox1 <> "" Then
 
        CommandButton1.Enabled = True
    Else
        CommandButton1.Enabled = False
 
    End If
 
If WorksheetFunction.CountIf(Sheets("BaseCode").Range("A:A"), Me.TextBox1.Value) = 0 Then
 
    MsgBox "Ce Code n'existe pas. Resaisir un nouveau Code", vbInformation + vbOKOnly, "Code non trouvé"
 
    End If
 
End Sub
 
Private Sub UserForm_Click()
 
End Sub

UserForm3

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Private Sub CommandButton2_Click()
Unload Me
End Sub
 
Private Sub Label6_Click()
 
End Sub
 
Private Sub Label8_Click()
 
    With UserForm2
 
    Label8 = Application.WorksheetFunction.VLookup(CLng(UserForm2.TextBox1), Sheets("BaseCode").Range("BaseCodes"), 1, 0)
 
    End With
 
End Sub

24/12/2016, 04h38
Invité

Citation:

Envoyé par sas_fr

J'ai un problème, je ne trouve pas pourquoi sa ne marche pas.

Bonjour,

Il faut placer votre code entre balises #

Code:

Et indiquer à quoi se rapporte votre code. :koi:

Vous devriez passer vos valeurs dans vos Userforms via des variables déclarées public dans un module standard.

Cordialement.
24/12/2016, 13h30
sas_fr

Voilà c'est fait pour le code
Comment on fait sa ? :

Citation:

Vous devriez passer vos valeurs dans vos Userforms via des variables déclarées public dans un module standard.

Citation:

Envoyé par sas_fr

Il vous faut regarder la façon dont on déclare les variables et la signification de leur portée dans l'aide Excel, notamment si vous devez utiliser les données dans différents modules (Userforms, modules standards).

Un exemple dans le code ci-dessous pour votre matériel. Il peut être intéressant de définir une variable type et de s'en référer ensuite pour créer d'autres variables selon ce modèle. Dans cet exemple, on définit la variable Matos et on se sert de ce modèle pour créer la variable MaterielEnCours.

Autrement, vous pouvez également déclarer vos variables comme pour MaterielCode, etc...
Code:

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 30 31 32 33 34 35 36 37 Option Explicit Public Type Matos Code As Variant ' Ou String Libelle As String Cout As Currency Quantite As Integer ' ou Single si le matériel admet des décimales End Type Public MaterielEncours As Matos Public MaterielCode As Variant Public MaterielLibelle As String Public MaterielCout As Single Public MaterielQuantite As Single Sub Essai() With MaterielEncours .Code = "29" .Libelle = "Test" .Cout = 5# .Quantite = 1 End With MaterielCode = "29" With MaterielEncours MsgBox .Code & Chr(10) & .Libelle & Chr(10) & .Cout & Chr(10) & .Quantite End With MsgBox MaterielCode 'Etc.... End Sub
Nb : Un module standard, c'est ni un Userform ni un module de classe.

Cordialement.

25/12/2016, 14h34
sas_fr

Je met dans sa : http://prntscr.com/dnouny
le code
Car ma base de donnée est sur la feuille 3 (basededonnée)
Moi je veux que UserForm2 du TexTBox1 tape le Code (par exemple : 29)
puis sa va vers UserForm3 qui affiche des détaille du code (qui va chercher les détaile du code dans la base de donnée(feuil3) ) qu'on a taper sur le UserForm2 (29)
25/12/2016, 18h34
Invité
Quand je vois cette ligne :
Code:

1 2 Label8 = Application.WorksheetFunction.VLookup(CLng(UserForm2.TextBox1), Sheets("BaseCode").Range("BaseCodes"), 1, 0)
Je voulais simplement vous dire qu'il vaudrait mieux travailler avec une variable plutôt que directement avec le TextBox1 du Userform2.

Maintenant, ne voyant pas vos données, je ne peux rien vous dire de plus.

Cordialement.
25/12/2016, 19h10
unparia

Bonjour
Pourquoi ai-je la vague impression de ce que :
- le 1er userform est inutile (dès lors que le second part du même code)
- il serait plus astucieux d'utiliser des textboxes liées aux cellules de la feuille des données.
(je me demande même s'il ne serait pas encore plus confortable, clair et léger d'utiliser une listbox multi-colonnes, directement liées à la plage sélectionnée du fait de la saisie du champ "code"
25/12/2016, 19h29
sas_fr

1 pièce(s) jointe(s)

Voilà les truc ce que je veux faire :
Pièce jointe 230573
25/12/2016, 19h31
sas_fr

Citation:

Envoyé par unparia

Bonjour
Pourquoi ai-je la vague impression de ce que :
- le 1er userform est inutile (dès lors que le second part du même code)
- il serait plus astucieux d'utiliser des textboxes liées aux cellules de la feuille des données.
(je me demande même s'il ne serait pas encore plus confortable, clair et léger d'utiliser une listbox multi-colonnes, directement liées à la plage sélectionnée du fait de la saisie du champ "code"

la première UserForm c'est pour mettre le numéro de table (Numéro de la Facture)
je suis encore débutant
Si tu peux m'aider ?
25/12/2016, 20h23
unparia

Citation:

la première UserForm c'est pour mettre le numéro de table (Numéro de la Facture)

et le champ "code" du second ? il est fait, lui, pour saisir quoi de différent du champ "code" du premier ?
25/12/2016, 20h32
sas_fr

Bah le code correspond la base de donnée de la Facture
Exemple : 1 correspond à Test
2 correspond à Test2

Oui ? Et alors ? cela ne répond pas à la question claire que je t'ai posée.

Enfin quoi ...
Fais cette petite expérience sur un classeur tout neuf
en ligne 1 : "code" en colonne A, "cela" en colonne B et "ceci" en colonne C
et tu remplis ces colonnes de la ligne 2 à la ligne 10
Maintenant :
Un userform avec une combobox combobox1 et ce code :
Code:

1 2 3 4 5 6 7 8 9 10 11 Private Sub UserForm_Activate() With ComboBox1 .ColumnHeads = True .RowSource = "Feuil15!A2:C10" .ColumnCount = 3 End With End Sub Private Sub ComboBox1_Change() If ComboBox1.ListIndex >= 0 Then ComboBox1.DropDown End Sub
ouvre userform1 et dans la zone d'édition de la combobox, saisit un "code" et regarde ce qui se passe :
--- quand aucune correspondance
--- quand une correspondance existe.
C'est tout. A toi, maintenant, d'adapter ...

Citation:

Envoyé par sas_fr

Bonjour,

Unparia a raison, un seul Userform fait l'affaire.

Une autre façon de faire avec une ListBox :

En fait deux ListBox : La première pour le titre de la liste des matériels, la deuxième pour la liste elle-même.

Pièce jointe 230624

Dans un module standard :

Code:

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
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
 
Option Explicit
 
Public ShFacture As Worksheet
Public DerniereLigneFacture
Public AireMercurialeListe As Range
 
 
Sub CreerUneFacture()
 
Dim AireMercurialeTitre As Range
Dim PositionGauche As Single
Dim PositionHaut As Single
 
    With Sheets("BaseCode")
         Set AireMercurialeTitre = .Range("MercurialeTitre")
         Set AireMercurialeListe = .Range("MercurialeListe")
    End With
 
    Set ShFacture = Sheets("Facture")
    With ShFacture
 
         .Activate
         DerniereLigneFacture = .Cells(.Rows.Count, 1).End(xlUp).Row
         .Cells(DerniereLigneFacture + 1, 1).Activate
 
 
         With UserFormCreerFacture
              With .ListBoxTitre
                    .ColumnCount = 4
                    .List = AireMercurialeTitre.Value
                    .Font.Bold = True
                End With
                With .ListBoxBaseMateriel
                     .ColumnCount = 4
                     .List = AireMercurialeListe.Value
                End With
                .Show
            End With
    End With
 
      Set AireMercurialeTitre = Nothing
      Set AireMercurialeListe = Nothing
 
End Sub

Le code dans le Userform UserformCreerFacture :

Code:

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
30
31
32
 
Option Explicit
 
Private Sub BoutonSelectionner_Click()
 
    With ShFacture
         If TextBoxQuantite <> "" Then
            DerniereLigneFacture = .Cells(.Rows.Count, 1).End(xlUp).Row
            .Cells(DerniereLigneFacture + 1, 1) = ListBoxBaseMateriel.Column(0) ' Code
            .Cells(DerniereLigneFacture + 1, 2) = ListBoxBaseMateriel.Column(1) ' Libellé
            .Cells(DerniereLigneFacture + 1, 3) = ListBoxBaseMateriel.Column(2) ' Unité
            .Cells(DerniereLigneFacture + 1, 4) = CCur(ListBoxBaseMateriel.Column(3)) ' Prix unitaire
            .Cells(DerniereLigneFacture + 1, 5) = CDec(TextBoxQuantite)
            With .Cells(DerniereLigneFacture + 1, 6)
                 .FormulaR1C1 = "=Round(RC[-1]*RC[-2],2)"
                 .NumberFormat = "#,##0.00 €"
            End With
            TextBoxQuantite = ""
         Else
            MsgBox "Saisissez une quantité !", vbCritical
         End If
    End With
End Sub
 
Private Sub TextBoxQuantite_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
        If InStr("1234567890,", Chr(KeyAscii)) = 0 Then KeyAscii = 0
End Sub
 
 
Private Sub BoutonFermer_Click()
        Unload Me
End Sub

Les zones nommées dans l'onglet BaseCode correspondent aux aires suivantes :

- MaterielListe : "A2:D200"
- MaterielTitre : "A1:D1"

Cordialement.

27/12/2016, 21h17
sas_fr

Sa je sais faire mais je cherche comment faire avec ma méthode
27/12/2016, 21h26
unparia

Citation:

mais je cherche comment faire avec ma méthode

ne pas confondre "méthode" et "promenade", s'il te plait.
Si tu te rends chez un maçon pour demander un conseil sur la manière de planter une broche de maçonnerie avec un marteau servant à amollir les ormeaux, il te répondra tout simplement que cette fantaisie n'est pas suivie dans le métier.
On ne peut être (et le rester) chef d'orchestre et demandeur.
28/12/2016, 04h35
Invité

Citation:

Envoyé par sas_fr

Sa je sais faire mais je cherche comment faire avec ma méthode

Pièce jointe 230906

OK, et après ?

Cordialement.
28/12/2016, 13h36
sas_fr

Je fait comment pour Ajouter les détails sur la Facture avec le bouton ajouter du UserForm3 ?
(code, Description, Quantité , P.U, S_Tot)