Problème de modification d'un enregistrement à partir d'un UserForm

Version imprimable

Salut !
J'ai crée un formulaire d'ajout d'enregistrement pour la gestion du personnel et comme de coutume il a fallut que je cree également une pour la modification
Mais celui-ci ne fonctionne pas lorsque j'effectue une modification et que je clique pour valider. Par contre les changements ne s'opèrent que sur une seule ligne
peu importe le code que j'ai sélectionné dans la combobox.J'ai trouvé plusieurs codes similaire sur le forum que j'ai adapté mais rien. je laisse ces ligne de code
si quelqu'un peut me débloquer. Merci d'avance
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 Private Sub CommandButton11_Click() Dim linsuiv As Integer, i as integer linsuiv = ComboBox4.ListIndex + 4 linsuiv = ComboBox4.ListCount i = Sheets("G° HORAIRE").Cells(Rows.Count, 1).End(xlUp).Row + 1 If ComboBox4.Value = "" Then MsgBox ("veuillez sélectionner un Matricule!") Else Cells(linsuiv, 4) = TextBox2.Value Cells(linsuiv, 5) = TextBox3.Value Cells(linsuiv, 6) = ComboBox1.Value Cells(linsuiv, 7) = TextBox5.Value Cells(linsuiv, 8) = ComboBox2.Value Cells(linsuiv, 9) = ComboBox3.Value Cells(linsuiv, 10) = TextBox8.Value Cells(linsuiv, 11) = TextBox9.Value Cells(linsuiv, 12) = TextBox10.Value Cells(linsuiv, 13) = TextBox12.Value Cells(linsuiv, 14) = TextBox11.Value End If 'Next i 'Me.ComboBox4 = "" 'Me.TextBox2 = "" 'Me.TextBox3 = "" 'Me.ComboBox1 = "" 'Me.TextBox5 = "" 'Me.ComboBox2 = "" 'Me.ComboBox3 = "" 'Me.TextBox8 = "" 'Me.TextBox9 = "" 'Me.TextBox10 = "" 'Me.TextBox11 = "" 'Me.TextBox12 = "" End Sub
Cordialement

Bonjour,

Essayes déjà choisir entre tes variables et quelle valeur lui attribuer

Code:

1
2
3
linsuiv = ComboBox4.ListIndex + 4
linsuiv = ComboBox4.ListCount
i= Sheets("G° HORAIRE").Cells(Rows.Count, 1).End(xlUp).Row + 1

S'agit-il de travailler sur la liste qui alimente ton ComboBox? ou sur le nombre de ligne de ta feuille "G° HORAIRE"?

Ensuite il faudrait une boucle pour travailler sur toutes tes lignes comme par exemple

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Dim NbLigne as Integer
NbLigne= Sheets("G° HORAIRE").Cells(Rows.Count, 1).End(xlUp).Row + 1
 
For i=0 NbLigne
If ComboBox4.Value = "" Then
    MsgBox ("veuillez sélectionner un Matricule!")
Else
    Cells(i, 4) = TextBox2.Value
    Cells(i, 5) = TextBox3.Value
    Cells(i, 6) = ComboBox1.Value
    Cells(i, 7) = TextBox5.Value
    Cells(i, 8) = ComboBox2.Value
    Cells(i, 9) = ComboBox3.Value
    Cells(i, 10) = TextBox8.Value
    Cells(i, 11) = TextBox9.Value
    Cells(i, 12) = TextBox10.Value
    Cells(i, 13) = TextBox12.Value
    Cells(i, 14) = TextBox11.Value
End If
Next i

Eric

10/08/2016, 21h50
unparia
Bonjour
Quand je lis :
Code:

1 2 linsuiv = ComboBox4.ListIndex + 4 linsuiv = ComboBox4.ListCount
je me pose déjà beaucoup de questions.

Allons bon. J'espère que tu as compris le sens de mon message précédent (la propriété Listcount est fixe. Or c'est elle que tu choisis finalement !)
- supprime cette seconde ligne
Et agilise ton code ainsi :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Dim linsuiv As Integer, y as integer
If ComboBox4.listindex = -1 Then
    MsgBox ("veuillez sélectionner un Matricule!")
Else
    linsuiv = ComboBox4.ListIndex + 4
    for y = 4 to 14
  select case y
      case 4,5,7,10,11,
        Cells(linsuiv, y) = me.controls("TextBox" & y-2).Value
      case 13
         Cells(linsuiv, y) = TextBox12.Value
      case 14
         Cells(linsuiv, y) = TextBox11.Value
      case 8,9
        Cells(linsuiv, y) = me.controls("ComboBox" & y-6).Value 
      end select
 End If

Ce qui pourrait d'ailleurs s'écrire également ainsi : ( à main levée. Non testé)

Code:

1
2
3
4
5
6
7
8
9
10
Dim linsuiv As Integer, y as integer
If ComboBox4.listindex = -1 Then
    MsgBox ("veuillez sélectionner un Matricule!")
Else
    linsuiv = ComboBox4.ListIndex + 4
    mescontrols = array(,,,,Textbox2,TextBox3,Combobox1,TextBox5,ComboBox2,ComboBox3, TextBox8,TextBox9,TextBox10,TextBox12,TextBox11)
    for y = 4 to 14
      Cells(linsuiv, y) $ mescontrols(y).value
    next
end if

Problème de modification d'un enregistrement à partir d'un UserForm

Merci bien pour ton aide mais à force de creser j'ai finalement trouvé le problème.
J'ai modifié le code et ça donne ceci. ça peut etre utile

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
linsuiv = Sheets("G° HORAIRE").Range("C1048576").End(xlUp).Row + 1
r = MsgBox("Confirmez-vous cette modification ?", vbYesNo, "Validation")
If r <> 11 Then Exit Sub
For i = 1 To linsuiv 'i allant de 1 a la derniere ligne du tableau, tous les champs se charge en f° du contenu
'de la cb
 
While ComboBox4.Text = Cells(i, 3)
    Rows(i).Select
    Cells(i, 4) = TextBox2.Text
        Cells(i, 5) = TextBox3.Text
            Cells(i, 6) = ComboBox1.Text
                Cells(i, 7) = TextBox5.Text
                    Cells(i, 8) = ComboBox2.Text
                    Cells(i, 9) = ComboBox3.Text
                    Cells(i, 10) = TextBox8.Text
                Cells(i, 11) = TextBox9.Text
            Cells(i, 12) = TextBox10.Text
        Cells(i, 13) = TextBox12.Text
    Cells(i, 14) = TextBox11.Text
i = i + 1
Wend
Next i
'Mise à jour automatique des champs apres confirmation des modifications
    Me.ComboBox4.Text = ""
        TextBox2.Text = ""
            TextBox3.Text = ""
                ComboBox1.Text = ""
                    TextBox5.Text = ""
                        ComboBox2.Text = ""
                        ComboBox3.Text = ""
                    TextBox8.Text = ""
                TextBox9.Text = ""
            TextBox10.Text = ""
        TextBox12.Text = ""
    TextBox11.Text = ""
End Sub

Cordialement

11/08/2016, 14h01
TSAFACK-M

Problème de modification d'un enregistrement à partir d'un UserForm

Salut !
Merci déjà pour cette proposition, avec l'utilisation de la propriété Array, mes lignes de codes sont simplifiés,
avec les mêmes mais mon appli est plus agile.
Merci encore de ton temps:salut: