Bug VBA premier programme

**rasnear** · 04/12/2014, 16h39

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

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
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

**parmi** · 04/12/2014, 16h47

Bonjour,

Dans ta macro CommandButton1_Click(), tu ne spécifies pas le nom de l'onglet Ws

**rasnear** · 04/12/2014, 17h28

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 :

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
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

**Thautheme** · 04/12/2014, 16h58

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...

**casefayere** · 04/12/2014, 17h33

sans regarder plus loin

Code :

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

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 :

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

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

**rasnear** · 04/12/2014, 17h39

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

Edit: je mets en Pièce Jointe le fichierProgMaintenance.xlsm en question

**casefayere** · 04/12/2014, 17h42

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 :

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

Set Ws = Sheets("Historique pannes")

**rasnear** · 04/12/2014, 17h46

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...

**casefayere** · 04/12/2014, 17h49

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

Code :

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

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
..

en

Code :

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

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 :

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
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

**rasnear** · 04/12/2014, 18h05

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?

**casefayere** · 04/12/2014, 18h37

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

tu as oublié un point

Code :

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

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

**rasnear** · 04/12/2014, 18h51

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 :

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

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

**casefayere** · 04/12/2014, 18h54

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 :

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

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é

**casefayere** · 04/12/2014, 19h41

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

Bug VBA premier programme

Macros et VBA Excel

Vue hybride

Discussions similaires

Partager

Partager