Discussion :

[TSAFACK-M]

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 :

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

[eric4459]

Bonjour,

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

Code :

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

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 :

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

[unparia]

Bonjour
Quand je lis :

Code :

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

1
2
linsuiv = ComboBox4.ListIndex + 4
linsuiv = ComboBox4.ListCount

je me pose déjà beaucoup de questions.

[unparia]

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 :

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

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

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

[TSAFACK-M]

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 :

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

[TSAFACK-M]

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