Bug VBA premier programme

Version imprimable

Bonjour à tous, j'ai tenté de faire une petite application VBA orientée maintenance.
L'application comporte deux formulaires personnalisés, lors de l'enregistrement d'un formulaire, tous les champs sont gardés en mémoire sur une page.
Le fichier comporte trois pages:
-la page accueil comprenant deux boutons pour lancer un formulaire ou l'autre,
-la page historique pannes pour enregistrer les données du premier formulaire
-la page historique des interventions afin d’enregistrer les donnée du second formulaire

Cependant, il y a quelques bugs,
-les données du formulaire s'enregistrent dans la page active et non dans la page indiquée dans le code VBA
-la combobox permettant d'accéder au numero de la panne (colonne A) est vide

Etant débutant, je ne sais pas trop d'ou vient le problème merci de me venir en aide :P

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
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
 
Option Explicit   'on oblige le prg à utiliser des variables déclarées
Dim Ws As Worksheet   'déclare Ws comme étant une variable feuille
 
 
'Pour le formulaire
Private Sub UserForm1_Initialize()
Dim J As Long    'J variable de comptage
Dim I As Integer  'I variable
Set Ws = Sheets("Historique pannes") 'On déclare Ws comme étant la feuille Historique pannes
With Me.ComboBox13             'XXX
    For J = 2 To Ws.Range("A" & Rows.Count).End(xlUp).Row0
    .AddItem Ws.Range("A" & J)
    Next J
End With
For I = 1 To 12
Me.Controls("TextBox" & I).Visible = True
Next I
End Sub
'Numéro de la panne Bug venant surement d'ici
Private Sub ComboBox1_Change()
Dim Ligne As Long
Dim Tablo As Integer
Ligne = Me.ComboBox1.ListIndex + 2
 
ComboBox1 = Ws.Cells(Ligne, "B")
For I = 1 To 12
Me.Controls("TextBox" & I) = Ws.Cells(Ligne, I + 2)
Next I
 
End Sub
 
 
 
'Pour le bouton Nouvelle panne
Private Sub CommandButton1_Click()
Dim L As Integer
If MsgBox("Confirmez-vous la demande d'intervention ?", vbYesNo, "Demande deconfirmation d’intervention") = vbYes Then
L = Sheets("Historique pannes").Range("a65536").End(xlUp).Row + 1 'Pour placer le nouvel enregistrement à la première ligne de tableau non vide
Range("A" & L).Value = ComboBox1
Range("B" & L).Value = TextBox9
Range("C" & L).Value = TextBox10
Range("D" & L).Value = TextBox1
Range("E" & L).Value = TextBox6
Range("F" & L).Value = TextBox2
Range("G" & L).Value = TextBox3
Range("H" & L).Value = TextBox4
Range("I" & L).Value = TextBox7
Range("J" & L).Value = "Fonctionnalité à venir"
Range("K" & L).Value = TextBox8
Range("L" & L).Value = TextBox12
Range("M" & L).Value = TextBox11
End If
If 1 = 1 Then Envoimail
retour:
End Sub
 
 
'Envoi d'un mail service maintenance FONCTIONNE
Sub Envoimail()
'Dim Mail As New Message
 
'Dim Config As Configuration: Set Config = Mail.Configuration
 
'Config(cdoSendUsingMethod) = cdoSendUsingPort
'Config(cdoSMTPServer) = "smtp.gmail.com"
'Config(cdoSMTPServerPort) = 25
'Config(cdoSMTPAuthenticate) = cdoBasic
'Config(cdoSMTPUseSSL) = True
'Config(cdoSendUserName) = "alerte.intervention1@gmail.com "
'Config(cdoSendPassword) = "MONMOTDEPASSE"  'le mdp a ete modifié pour le forum
'Config.Fields.Update
 
'Mail.To = "XXX@XXXXXXX"
'Mail.from = Config(cdoSendUserName)
'Mail.Subject = "Subject from VBA"
'Mail.HTMLBody = "Nouvelle panne enregistrée par un technicien, au boulot!"
 
'Mail.Send
 
'MsgBox "Envoye"
 
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 cette intervention ?", vbYesNo, "Demande deconfirmation de modification") = vbYes Then
If Me.ComboBox1.ListIndex = -1 Then Exit Sub
Ligne = Me.ComboBox1.ListIndex + 2
 
For I = 1 To 12
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
 
'Pr bouton quitter
Private Sub CommandButton3_Click()
Unload Me
End Sub
 
Private Sub UserForm_Click()
 
End Sub

04/12/2014, 16h47
parmi

Bonjour,

Dans ta macro CommandButton1_Click(), tu ne spécifies pas le nom de l'onglet Ws
04/12/2014, 16h58
Thautheme

Bonsoir Rasnear, Parmi, bonsoir le forum,

Aussi, à l'initialisation tu fais référence à une ComboBox13. Ensuite, dans le reste du code, elle est devenue ComboBox1...

Merci de ta réactivité, j'ai modifié mon code afin de bien spécifier que l'on travaille dans la feuille Ws et je l'ai définie quelques lignes plus haut, cependant, mon programme ne fonctionne pas et le débugueur me surligne la ligne 42 ?

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
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
 
Option Explicit   'on oblige le prg à utiliser des variables déclarées
Dim Ws As Worksheet   'déclare Ws comme étant une variable feuille
 
 
'Pour le formulaire
Private Sub UserForm1_Initialize()
Dim J As Long    'J variable de comptage
Dim I As Integer  'I variable
Set Ws = Sheets("Historique pannes") 'On déclare Ws comme étant la feuille Historique pannes
With Me.ComboBox13             'XXX
    For J = 2 To Ws.Range("A" & Rows.Count).End(xlUp).Row0
    .AddItem Ws.Range("A" & J)
    Next J
End With
For I = 1 To 12
Me.Controls("TextBox" & I).Visible = True
Next I
End Sub
'Numéro de la panne Bug venant surement d'ici
Private Sub ComboBox1_Change()
Dim Ligne As Long
Dim Tablo As Integer
Ligne = Me.ComboBox1.ListIndex + 2
 
ComboBox1 = Ws.Cells(Ligne, "B")
For I = 1 To 12
Me.Controls("TextBox" & I) = Ws.Cells(Ligne, I + 2)
Next I
 
End Sub
 
 
 
'Pour le bouton Nouvelle panne
Private Sub CommandButton1_Click()
Dim Ws As Worksheet
Set Ws = Sheets("Historique pannes")
 
Dim L As Integer
If MsgBox("Confirmez-vous la demande d'intervention ?", vbYesNo, "Demande deconfirmation d’intervention") = vbYes Then
L = Sheets("Ws").Range("a65536").End(xlUp).Row + 1 'Pour placer le nouvel enregistrement à la première ligne de tableau non vide
Range("A" & L).Value = ComboBox1
Range("B" & L).Value = TextBox9
Range("C" & L).Value = TextBox10
Range("D" & L).Value = TextBox1
Range("E" & L).Value = TextBox6
Range("F" & L).Value = TextBox2
Range("G" & L).Value = TextBox3
Range("H" & L).Value = TextBox4
Range("I" & L).Value = TextBox7
Range("J" & L).Value = "Fonctionnalité à venir"
Range("K" & L).Value = TextBox8
Range("L" & L).Value = TextBox12
Range("M" & L).Value = TextBox11
End If
If 1 = 1 Then Envoimail
retour:
End Sub
 
 
'Envoi d'un mail service maintenance FONCTIONNE
Sub Envoimail()
'Dim Mail As New Message
 
'Dim Config As Configuration: Set Config = Mail.Configuration
 
'Config(cdoSendUsingMethod) = cdoSendUsingPort
'Config(cdoSMTPServer) = "smtp.gmail.com"
'Config(cdoSMTPServerPort) = 25
'Config(cdoSMTPAuthenticate) = cdoBasic
'Config(cdoSMTPUseSSL) = True
'Config(cdoSendUserName) = "alerte.intervention1@gmail.com "
'Config(cdoSendPassword) = "MONMOTDEPASSE"  'le mdp a ete modifié pour le forum
'Config.Fields.Update
 
'Mail.To = "XXX@XXXXXXX"
'Mail.from = Config(cdoSendUserName)
'Mail.Subject = "Subject from VBA"
'Mail.HTMLBody = "Nouvelle panne enregistrée par un technicien, au boulot!"
 
'Mail.Send
 
'MsgBox "Envoye"
 
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 cette intervention ?", vbYesNo, "Demande deconfirmation de modification") = vbYes Then
If Me.ComboBox1.ListIndex = -1 Then Exit Sub
Ligne = Me.ComboBox1.ListIndex + 2
 
For I = 1 To 12
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
 
'Pr bouton quitter
Private Sub CommandButton3_Click()
Unload Me
End Sub
 
Private Sub UserForm_Click()
 
End Sub

04/12/2014, 17h33
casefayere

sans regarder plus loin

Code:

L = Ws.Range("a65536").End(xlUp).Row + 1 'Pour placer le nouvel enregistrement à la première ligne de tableau non vide

je préfère

Code:

L = Ws.Range("A" & Rows.count).End(xlUp).Row + 1 'Pour placer le nouvel enregistrement à la première ligne de tableau non vide
04/12/2014, 17h39
rasnear

1 pièce(s) jointe(s)

Merci Thautheme d'avoir remarqué cette étourderie, c'est bien de la combobox1 qu'il s'agit, j'ai modifié cette étourderie :)
Casefayere, j'ai essayé avec les deux lignes de code, mais le programme continue d'écrire dans la page accueil :weird:

Edit: je mets en Pièce Jointe le fichierPièce jointe 163054 en question
04/12/2014, 17h42
casefayere

J'ai précisé que je n'ai pas regardé le reste du code mais il faut écrire comme ça, à toi de vérifier à quoi correspond ws car tu as écrit

Code:

Set Ws = Sheets("Historique pannes")
04/12/2014, 17h46
rasnear

C'est bien dans la feuille "historique pannes" que les données doivent êtres enregistrées (donc dans la feuille Ws) pourtant, le programme continue d'enregistrer les donnée saisies dans la page "Accueil", étrange...

Normal, si tu te situes sur la feuille "accueil" les données s'écrivent sur la feuille active, donc il faut changer ça

Code:

1
2
3
4
5
6
7
8
...
Range("A" & L).Value = ComboBox1
Range("B" & L).Value = TextBox9
Range("C" & L).Value = TextBox10
Range("D" & L).Value = TextBox1
Range("E" & L).Value = TextBox6
Range("F" & L).Value = TextBox2
..

Code:

1
2
3
4
5
6
7
8
9
With Ws
   .Range("A" & L).Value = ComboBox1
   .Range("B" & L).Value = TextBox9
   .Range("C" & L).Value = TextBox10
   .Range("D" & L).Value = TextBox1
   .Range("E" & L).Value = TextBox6
   .Range("F" & L).Value = TextBox2
....
End With

Pour être précis

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Dim Ws As Worksheet
Dim L As Integer
Set Ws = Sheets("Historique pannes")
 
If MsgBox("Confirmez-vous la demande d'intervention ?", vbYesNo, "Demande deconfirmation d’intervention") = vbYes Then
With Ws
  L = .Range("A" & .Rows.Count).End(xlUp).Row + 1 'Pour placer le nouvel enregistrement à la première ligne de tableau non vide
  .Range("A" & L).Value = ComboBox1
  .Range("B" & L).Value = TextBox9
  .Range("C" & L).Value = TextBox10
  .Range("D" & L).Value = TextBox1
  .Range("E" & L).Value = TextBox6
  .Range("F" & L).Value = TextBox2
  .Range("G" & L).Value = TextBox3
  .Range("H" & L).Value = TextBox4
  .Range("I" & L).Value = TextBox7
  .Range("J" & L).Value = "Fonctionnalité à venir"
  .Range("K" & L).Value = TextBox8
  .Range("L" & L).Value = TextBox12
  .Range("M" & L).Value = TextBox11
End With
End If

attention, tu as déclaré ws en haut de module et tu le re-déclares dans cette procédure, c'est inutile, sinon regardes mes dernières réponses

04/12/2014, 18h05
rasnear

Génial Casefayere, le programme écrit dans les bonnes feuilles merci beaucoup!! Il me reste toujours à faire fonctionner la Combobox1 qui doit contenir autant de chiffres que de pannes enregistrées afin de pouvoir venir les modifier, quand j'exécute mon programme, cette combo box est vide... Vous avez des idées?

Citation:

quand j'exécute mon programme, cette combo box est vide... Vous avez des idées?

tu as oublié un point

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub UserForm_Initialize()
Dim J As Long    'J variable de comptage
Dim I As Integer  'I variable
Set Ws = Sheets("Historique pannes") 'On déclare Ws comme étant la feuille Historique pannes
With ComboBox1             'XXX
  For J = 2 To Ws.Range("A" & Ws.Rows.Count).End(xlUp).Row
    .AddItem Ws.Range("A" & J)
  Next J
End With
For I = 1 To 12
Me.Controls("TextBox" & I).Visible = True
Next I
 
End Sub

Quel œil! La combobox se remplit bien avec les numéros de pannes! Cependant lors d'une sélection d'un numéro de panne, le débogueur me renvoie une erreur:membre de méthode ou de données introuvable, je ne comprend pas...
Code:

1 2 3 4 5 6 7 8 9 10 11 Private Sub ComboBox1_Change() Dim Ligne As Long Dim I As Integer 'I variable Dim Tablo As Integer Ligne = Me.ComboBox1.ListIndex + 2 ComboBox1 = Ws.Cells(Ligne, "B") For I = 1 To 12 Ws.Controls("TextBox" & I) = Ws.Cells(Ligne, I + 2) Next I End Sub

04/12/2014, 18h54
casefayere

Je vais vérifier et je te proposerai tous les codes de l'Usf un peu nettoyés, ça sera à toi d'en faire de même pour l'autre

Déjà, cette ligne ne sert à rien

Code:

ComboBox1 = Ws.Cells(Ligne, "B") 'ici pourquoi

ensuite, d'après ta boucle tes textbox sont mal organisés, tu dois les nommer en suivant l'ordre de ta feuille, attribuer "TextBox1" à "date consignation", "TextBox2" à "Heure consignation", "TextBox3" à "nom" et ainsi de suite, sinon ton résultat est faussé
04/12/2014, 19h41
casefayere

1 pièce(s) jointe(s)

Tu feras comme tu voudras suivant tes impératifs mais je te propose un fichier modifié dans l'ordre des colonnes pour "l'historique panne" et l'userform1 retravaillé, à toi d'adapter