Modifier une ligne avec des textbox et combobox

**clinicaltrials63** · 03/05/2018, 09h24

Bonjour à tous,

Tout d'abord enchanté de vous rencontrer, il s'agit de mon premier message sur ce forum

.

Je suis désolé de vous déranger, j'aurai aimé résoudre le problème par moi même mais étant très débutant en VBA je suis complètement perdu.
Actuellement en stage dans un hôpital (oui, je ne suis pas informaticien^^) , on m'as demander de faire un fichier globale pour le service qui prendrait toute les études dont nous somme le promoteur.
On a réaliser une première base de donnée, mais on aurait aimer facilité l'ajout d’études (la macro est déjà fonctionnelle) mais aussi un bouton modifier (Rien n'est fonctionnelle) comme ça on peut verrouiller la base de donnée et ils ne peuvent rien supprimé (uniquement le pharmacien aura les codes).

Nous avons trouvé un code pour le bouton modifier mais il n'utilisait que des textbox, mais à certain emplacement nous aimerions ajouter des combobox.

Seul problème, text box et combobox ne se suivent pas dans l'ordre, du coup je ne sais comment faire pour modifier la ligne via textbox et combobox.

Voici le bout de code et je vous laisse le fichier excel en pièce jointe pour voir a quoi ça ressemblerai :

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
Option Explicit
 
Dim Ws As Worksheet
 
 
Private Sub ComboBox1_Change()
' Nom fournisseur
Dim Ligne As Long
Dim I As Integer
 
  If Me.ComboBox1.ListIndex = -1 Then Exit Sub
  Ligne = Me.ComboBox1.ListIndex + 2
  For I = 1 To 17
    Me.Controls("TextBox" & I) = Ws.Cells(Ligne, I + 1)
  Next I
 
End Sub
 
Private Sub ComboBox8_Change()
 
End Sub
 
Private Sub CommandButton1_Click()
' Valider
Dim Ligne As Long
Dim I As Integer
 
Dim myPassword As String
myPassword = "Lise1234"
ThisWorkbook.Sheets("études").Unprotect Password:=myPassword
 
If MsgBox("Etes-vous certain de vouloir MODIFIER cette étude ?", vbYesNo, "Demande de confirmation") = vbYes Then 'condition : si oui au message
  If Me.ComboBox1.ListIndex = -1 Then Exit Sub
  Ligne = Me.ComboBox1.ListIndex + 2
  For I = 1 To 17
    If Me.Controls("TextBox" & I).Visible = True Then
      Ws.Cells(Ligne, I + 1) = Me.Controls("TextBox" & I)
    End If
  Next I
  MsgBox ("Etude modifiée") 'Vous informant que le présent contact est insérer dans votre tableau Excel.
Unload Me ' Vide et ferme l'Userform ( formulaire)
ThisWorkbook.Sheets("études").Protect Password:=myPassword
End If
End Sub
 
 
Private Sub CommandButton2_Click()
  Unload Mod_Fournisseur
End Sub
 
Private Sub Label1_Click()
 
End Sub
 
Private Sub TextBox1_Change()
 
End Sub
 
Private Sub TextBox7_Change()
 
End Sub
 
Private Sub UserForm_Initialize()
Dim J As Long
Dim I As Integer
 
  Set Ws = Sheets("études")
 
  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 17
    Me.Controls("TextBox" & I).Visible = False
    ReDim Preserve kase(I)
    Set kase(I).Bouton = Me.Controls("CheckBox" & I)
  Next I
 
End Sub

Je sais qu'actuellement le code ne prend pas en compte les combobox, j'aurai penser a rajouter genre

Code :

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

1
2
 Dim Y As Integer
et utiliser le meme code que I pour les combobox mais vu que c'est sencer suivre A, B, C ,D , E , F ,.... Je ne pense pas que ça marchera

Je vous remercie par avance pour l'aide que vous pourriez m'apporter.

**BENNASR** · 03/05/2018, 10h54

Bonjour
Tout d'abord il faut récupérer les informations déjà saisie au changement du combobox
Une piste

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 ComboBox1_Change()
  Dim plage As Range
  Dim cell As Range
  Dim codrecherché
   Set plage = Sheets("études").Range("A2:A" & [A65536].End(xlUp).Row)
   codrecherché = ComboBox1.Value
  If Me.ComboBox1.ListIndex = -1 Then Exit Sub
For Each cell In plage
 If cell.Value = codrecherché Then
    TextBox1.Value = Cells(cell.Row, 2)
  'continuer à remplir les autres textbox
 End If
    Next cell
End Sub

**clinicaltrials63** · 03/05/2018, 11h23

Bonjour BENNASR,

Tout d'abord je vous remercie pour votre réponse,
J'ai essayer du coup de remplir code comme ceux ci ,

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
Option Explicit
 
Dim Ws As Worksheet
 
 
Private Sub ComboBox1_Change()
'Private Sub ComboBox1_Change()
  Dim plage As Range
  Dim cell As Range
  Dim codrecherché
   Set plage = Sheets("études").Range("A2:A" & [A65536].End(xlUp).Row)
   codrecherché = ComboBox1.Value
  If Me.ComboBox1.ListIndex = -1 Then Exit Sub
For Each cell In plage
 If cell.Value = codrecherché Then
    TextBox1.Value = Cells(cell.Row, 2)
    TextBox2.Value = Cells(cell.Row, 3)
    ComboBox2.Value = Cells(cell.Row, 4)
    TextBox3.Value = Cells(cell.Row, 5)
    TextBox4.Value = Cells(cell.Row, 6)
    Texbox5.Value = Cells(cell.Row, 7)
    ComboBox3.Value = Cells(cell.Row, 8)
    ComboBox4.Value = Cells(cell.Row, 9)
    TextBox6.Value = Cells(cell.Row, 10)
    ComboBox5.Value = Cells(cell.Row, 11)
    TextBox7.Value = Cells(cell.Row, 12)
    ComboBox6.Value = Cells(cell.Row, 13)
    ComboBox7.Value = Cells(cell.Row, 14)
    ComboBox8.Value = Cells(cell.Row, 15)
    ComboBox9.Value = Cells(cell.Row, 16)
    TextBox8.Value = Cells(cell.Row, 17)
    ComboBox10.Value = Cells(cell.Row, 18)
  'continuer à remplir les autres textbox
 End If
    Next cell
End Sub
 
 
Private Sub ComboBox8_Change()
 
End Sub
 
Private Sub CommandButton1_Click()
' Valider
Dim Ligne As Long
Dim I As Integer
 
Dim myPassword As String
myPassword = "Lise1234"
ThisWorkbook.Sheets("études").Unprotect Password:=myPassword
 
If MsgBox("Etes-vous certain de vouloir MODIFIER cette étude ?", vbYesNo, "Demande de confirmation") = vbYes Then 'condition : si oui au message
  If Me.ComboBox1.ListIndex = -1 Then Exit Sub
  Ligne = Me.ComboBox1.ListIndex + 2
  For I = 1 To 17
    If Me.Controls("TextBox" & "combobox" & I).Visible = True Then
      Ws.Cells(Ligne, I + 1) = Me.Controls("TextBox" & "Combobox" & I)
    End If
  Next I
  MsgBox ("Etude modifiée") 'Vous informant que le présent contact est insérer dans votre tableau Excel.
Unload Me ' Vide et ferme l'Userform ( formulaire)
ThisWorkbook.Sheets("études").Protect Password:=myPassword
End If
End Sub
 
 
Private Sub CommandButton2_Click()
  Unload Mod_Fournisseur
End Sub
 
Private Sub Label1_Click()
 
End Sub
 
Private Sub TextBox1_Change()
 
End Sub
 
Private Sub TextBox7_Change()
 
End Sub
 
Private Sub UserForm_Initialize()
Dim J As Long
Dim I As Integer
 
  Set Ws = Sheets("études")
 
  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 17
    Me.Controls("TextBox" & I).Visible = False
    ReDim Preserve kase(I)
    Set kase(I).Bouton = Me.Controls("CheckBox" & I)
  Next I
 
End Sub

Mais lorsque j'execute la macro il me dit qu'il y a une erreur : erreur d'execution objet spécifié introuvable.
Nom : screenerreurmacro.png
Affichages : 1902
Taille : 22,5 Ko

Nom : screenerreurmacro.png
Affichages : 1902
Taille : 22,5 Ko

Je suis sincerement desolé je comprend pas trop actuellement.
Est ce que les "textbox" & "combobox" & I vont marcher ?

en vous remerciant pour votre reponse =)

**BENNASR** · 03/05/2018, 11h39

rebonjour
lors de l'initialisation de ton usf je sais pas à quoi sert ce bout de code
à supprimer ou à désactiver pour l'instant

Code :

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

1
2
3
4
5
 For I = 1 To 17
    Me.Controls("TextBox" & I).Visible = False
    ReDim Preserve kase(I)
    Set kase(I).Bouton = Me.Controls("CheckBox" & I)
  Next I

Essayer de désactiver le bouton valider
et ne laisser que l'initialisation et le combo change

**clinicaltrials63** · 03/05/2018, 12h08

Rebonjour,

Merci encore pour ta reponse rapide =).

Alors le code que j'ai supprimé empecher l'execution du code, mais il permettait de faire afficher la textbox ou la combobox en cochant la case.

Du coup maintenant la récupération des données fonctionne, mais il y a une erreur d'execution lors que j'execute la maccro j'ai l'impression qu'il ne prend pas en compte la commande que j'ai entrer.

voici le code

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
Private Sub CommandButton1_Click()
' Valider
Dim Ligne As Long
Dim I As Integer
 
Dim myPassword As String
myPassword = "Lise1234"
ThisWorkbook.Sheets("études").Unprotect Password:=myPassword
 
If MsgBox("Etes-vous certain de vouloir MODIFIER cette étude ?", vbYesNo, "Demande de confirmation") = vbYes Then 'condition : si oui au message
  If Me.ComboBox1.ListIndex = -1 Then Exit Sub
  Ligne = Me.ComboBox1.ListIndex + 2
  For I = 1 To 17
    If Me.Controls("TextBox" & "combobox" & I).Visible = True Then
      Ws.cells(Ligne, I + 1) = Me.Controls("TextBox" & "Combobox" & I)
    End If
  Next I
  MsgBox ("Etude modifiée") 'Vous informant que le présent contact est insérer dans votre tableau Excel.
Unload Me ' Vide et ferme l'Userform ( formulaire)
ThisWorkbook.Sheets("études").Protect Password:=myPassword
End If
End Sub

et c'est cette ligne qui pose probleme :

Code :

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

1
2
 If Me.Controls("TextBox" & "combobox" & I).Visible = True Then
      Ws.cells(Ligne, I + 1) = Me.Controls("TextBox" & "Combobox" & I)

Du coup j'ai essayer un truc comme ça :
alors la modification fonctionne, mais ça me modifie la ligne juste en dessous, tu aurai une idee de code pour que ca me remplace la ligne deja existante ?

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
114
115
116
117
Option Explicit
 
Dim Ws As Worksheet
 
 
Private Sub ComboBox1_Change()
'Private Sub ComboBox1_Change()
  Dim plage As Range
  Dim cell As Range
  Dim codrecherché
   Set plage = Sheets("études").Range("A2:A" & [A65536].End(xlUp).Row)
   codrecherché = ComboBox1.Value
  If Me.ComboBox1.ListIndex = -1 Then Exit Sub
For Each cell In plage
 If cell.Value = codrecherché Then
    TextBox1.Value = cells(cell.Row, 2)
    TextBox2.Value = cells(cell.Row, 3)
    ComboBox2.Value = cells(cell.Row, 4)
    TextBox3.Value = cells(cell.Row, 5)
    TextBox4.Value = cells(cell.Row, 6)
    TextBox5.Value = cells(cell.Row, 7)
    ComboBox3.Value = cells(cell.Row, 8)
    ComboBox4.Value = cells(cell.Row, 9)
    TextBox6.Value = cells(cell.Row, 10)
    ComboBox5.Value = cells(cell.Row, 11)
    TextBox7.Value = cells(cell.Row, 12)
    ComboBox6.Value = cells(cell.Row, 13)
    ComboBox7.Value = cells(cell.Row, 14)
    ComboBox8.Value = cells(cell.Row, 15)
    ComboBox9.Value = cells(cell.Row, 16)
    TextBox8.Value = cells(cell.Row, 17)
    ComboBox10.Value = cells(cell.Row, 18)
  'continuer à remplir les autres textbox
 End If
    Next cell
End Sub
 
 
Private Sub ComboBox3_Change()
 
End Sub
 
Private Sub ComboBox8_Change()
 
End Sub
 
Private Sub CommandButton1_Click()
' Valider
Dim L As Integer
Dim myPassword As String
myPassword = "Lise1234"
ThisWorkbook.Sheets("études").Unprotect Password:=myPassword
 
 
If MsgBox("Etes-vous certain de vouloir INSERER ce nouveau contact ?", vbYesNo, "Demande de confirmation") = vbYes Then 'condition : si oui au message
L = Sheets("études").Range("a65536").End(xlUp).Row
 
Range("A" & L).Value = ComboBox1 'Insère la donnée de la textbox1 dans la colonne B
'et à suivre....
Range("B" & L).Value = TextBox1
Range("C" & L).Value = TextBox2
Range("D" & L).Value = ComboBox2
Range("E" & L).Value = TextBox3
Range("F" & L).Value = TextBox4
Range("G" & L).Value = TextBox5
Range("H" & L).Value = ComboBox3
Range("I" & L).Value = ComboBox4
Range("J" & L).Value = TextBox6
Range("K" & L).Value = ComboBox5
Range("L" & L).Value = TextBox7
Range("M" & L).Value = ComboBox6
Range("N" & L).Value = ComboBox7
Range("O" & L).Value = ComboBox8
Range("P" & L).Value = ComboBox9
Range("Q" & L).Value = TextBox8
Range("Q" & L).Value = ComboBox10
End If
 
ThisWorkbook.Sheets("études").Protect Password:=myPassword
 
' Affiche une boîte de message
MsgBox ("étude insérée dans la liste étude") 'Vous informant que le présent contact est insérer dans votre tableau Excel.
Unload Me ' Vide et ferme l'Userform ( formulaire)
End Sub
 
 
Private Sub CommandButton2_Click()
  Unload Mod_Fournisseur
End Sub
 
Private Sub Label1_Click()
 
End Sub
 
Private Sub TextBox1_Change()
 
End Sub
 
Private Sub TextBox7_Change()
 
End Sub
 
Private Sub UserForm_Initialize()
Dim J As Long
Dim I As Integer
 
  Set Ws = Sheets("études")
 
  With Me.ComboBox1
    For J = 2 To Ws.Range("A" & Rows.Count).End(xlUp).Row
      .AddItem Ws.Range("A" & J)
    Next J
  End With
 
 
 
End Sub

Mais du coup il me modifie la derniere ligne mais la ligne correspondante tu aurais une idée ?

Merci beaucoup de ton aide

**BENNASR** · 03/05/2018, 12h36

Re bonjour
c'est sur il va remplacer la dernière ligne puisque tu écris ça :

Code :

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

L = Sheets("études").Range("a65536").End(xlUp).Row

Mais tu peux faire avec la même principe de combobox_change mais à l'inverse

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
Private Sub CommandButton1_Click()
 Dim plage As Range
  Dim cell As Range
  Dim codrecherché
   Set plage = Sheets("études").Range("A2:A" & [A65536].End(xlUp).Row)
   codrecherché = ComboBox1.Value
  If Me.ComboBox1.ListIndex = -1 Then Exit Sub
For Each cell In plage
 If cell.Value = codrecherché Then
    Cells(cell.Row, 2) = TextBox1.Value
  'continuer à remplir les autres textbox
 End If
    Next cell
 
End Sub

Modifier une ligne avec des textbox et combobox [XL-2013]

Macros et VBA Excel

Vue hybride

Discussions similaires

Partager

Partager