Problème avec Userform et code vba

Version imprimable

30/05/2018, 14h01
Mymyetnono

1 pièce(s) jointe(s)

Problème avec Userform et code vba

Bonjour,

J'ai créer un tableau pour la réservation d'un voyage en car (qui pourras évoluer dans toutes manifestations avec places limité ou non) avec un Userform (réaliser à l'aide de tuto) mais je dois avoir un problème avec le code.

Je m'explique :

===>Il me valide les valeurs dans la feuille ouverte et non dans la feuille "Registre" systématiquement.

===>Dans la feuille "Registre", le calcul du nombre de personne sur la première ligne ne prend pas en compte les valeur inscrit via l'Userform.

===>Dans l'Userform je souhaiterais qu'à côté des mentions "Adulte", "Enfant" et "Entrée seul, etc." (voir indication dans l'Userform (Crtl + L) soit inscrit le montant correspondant inscrit dans la feuille "Base" selon la ville.

===>Avoir les coordonnées ainsi que les autres information une fois le nom et prénom rentrée (si déjà inscrit) et bloquer la validation d'un nouveau contact mais juste pouvoir la modifier.

J'espère que vous me compreniez et que je vous en demande pas trop mais je débute seulement avec la VBA et l'Userform.

Merci pour votre aide.

Voici le fichier : Pièce jointe 384589
30/05/2018, 15h19
parmi

Bonjour,

Comme la plupart des gens sensés ;), je n'ouvre pas les fichiers avec macro...
Peux-tu exposer un problème en mettant ici le bout de code relatif à ce problème, et en utilisant le bouton # pour le formater ?

Sans avoir vu ton code, je pense que c'est peut-être parce que tu ne nommes pas tes feuilles explicitement...

NB: pour des problèmes de macros, il y a un autre forum spécifique.
Edit: le message a voyagé en même temps que ma réponse... :)

Voici mon code

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
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
'Pour le formulaire
Private Sub UserForm_Initialize()
Dim J As Long
        Dim I As Integer
 
        ComboBox2.ColumnCount = 1 'Pour la liste déroulante Civilité
        ComboBox2.List() = Array("", "M.", "Mme", "Mlle")
        Set Ws = Sheets("Registre") 'Correspond au nom de votre onglet dans le fichier Excel
        With Me.ComboBox1
                For J = 2 To Ws.Range("A" & Rows.Count).End(xlUp).Row
                       .AddItem Ws.Range("A" & J)
                Next J
        End With
        For I = 1 To 10
                    Me.Controls("TextBox" & I).Visible = True
        Next I
End Sub
 
'Pour la liste déroulante Code client
Private Sub ComboBox1_Change()
         Dim Ligne As Long
         Dim I As Integer
 
         If Me.ComboBox1.ListIndex = -1 Then Exit Sub
         Ligne = Me.ComboBox1.ListIndex + 2
        ComboBox2 = Ws.Cells(Ligne, "B")
         For I = 1 To 10
                 Me.Controls("TextBox" & I) = Ws.Cells(Ligne, I + 2)
 
         Next I
End Sub
 
'Pour le bouton Nouveau contact
Private Sub CommandButton1_Click()
        Dim L As Integer
          If MsgBox("Confirmez-vous l’insertion de ce nouveau contact ?", vbYesNo, "Demande de confirmation d’ajout") = vbYes Then
                L = Sheets("Registre").Range("a65536").End(xlUp).Row + 1
                Range("A" & L).Value = ComboBox1
                Range("B" & L).Value = ComboBox2
                Range("C" & L).Value = ComboBox3
                Range("D" & L).Value = ComboBox4
                Range("E" & L).Value = TextBox1
                Range("F" & L).Value = TextBox2
                Range("G" & L).Value = TextBox3
                Range("H" & L).Value = TextBox4
                Range("I" & L).Value = TextBox11
                Range("J" & L).Value = TextBox5
                Range("K" & L).Value = TextBox6
                Range("L" & L).Value = TextBox7
                Range("O" & L).Value = TextBox8
                Range("Q" & L).Value = TextBox9
                Range("R" & L).Value = TextBox10
        End If
End Sub
 
'Pour le bouton Modifier
Private Sub CommandButton2_Click()
        Dim Ligne As Long
        Dim I As Integer
 
        If MsgBox("Confirmez-vous la modification de ce contact ?", vbYesNo, "Demande de confirmation de modification") = vbYes Then
                If Me.ComboBox1.ListIndex = -1 Then Exit Sub
                Ligne = Me.ComboBox1.ListIndex + 2
                Ws.Cells(Ligne, "B") = ComboBox2
                For I = 1 To 10
                        If Me.Controls("TextBox" & I).Visible = True Then
                                Ws.Cells(Ligne, I + 2) = Me.Controls("TextBox" & I)
                 End If
        Next I
 End If
End Sub
 
'Pour le bouton Quitter
Private Sub CommandButton3_Click()
 Unload Me
End Sub