modification de donnée Fermé

Question

Bonjour le forum

je suis débutant en VBA

en faite j'ais fais 2 userform dont  userform1 pour les nouvel enregistrement et l'userform2 pour la consultation et modification.
mon soucis est que j’arrive à consulter sans problème mais lorsque je temps de modifier seule quelque cellules qui valide la modification les restes enregistre pas les nouvelles information saisis. 
vraiment ça me fatigue; je serais ravis de voir quelqu'un m'aidé  

Private Sub CommandButton10_Click()
 
'......Var = Sheets("IDENTIFICATION").Range("C:C").End(xlDown).Row + 1
'....ligne = Cells(Rows.Count, 1).End(xlUp).Row + 1
Insuv = Sheets("IDENTIFICATION").Range("A70").End(xlUp).Row + 1
r = MsgBox("Voulez vous confirmer la modification ?", vbYesNo, "Copiryght Inocent Koffi.2017-IC MEMBERS V-1.0")
If r <> 6 Then Exit Sub

For I = 1 To Insuv
While ComboBox1.Text = Cells(I, 3)
Rows(I).Select
Cells(I, 1) = TextBox26.Text
Cells(I, 2) = ComboBox2.Text
Cells(I, 3) = TextBox2.Text
Cells(I, 4) = TextBox3.Text
Cells(I, 5) = TextBox4.Text
Cells(I, 6) = TextBox5.Text
Cells(I, 7) = TextBox6.Text
Cells(I, 8) = TextBox7.Text
If OptionButton1.Value = True Then Cells(I, 9) = "Marié(e)" Else Cells(I, 9) = "Célibataire"
Cells(I, 10) = TextBox8.Text
Cells(I, 11) = TextBox9.Text
Cells(I, 12) = TextBox10.Text
Cells(I, 13) = TextBox11.Text
Cells(I, 14) = TextBox13.Text
Cells(I, 15) = TextBox14.Text
Cells(I, 16) = TextBox15.Text
If OptionButton3.Value = True Then Cells(I, 17) = "Oui" Else Cells(I, 17) = "Non"
Cells(I, 18) = TextBox16.Text
Cells(I, 19) = TextBox17.Text
Cells(I, 20) = TextBox18.Text
Cells(I, 21) = TextBox19.Text
Cells(I, 22) = TextBox20.Text
Cells(I, 23) = TextBox21.Text
Cells(I, 24) = TextBox22.Text
Cells(I, 25) = TextBox23.Text

I = I + 1
Wend
Next I

End Sub

voir si dessous en piece jointe


 https://www.cjoint.com/c/GDerNQcqGLe

gbinforme · Answer

Bonjour, 

Tu devrais faire du pas à pas sur ta modification et tu t'apercevrais qu'elle déclenche tes autres procédures (combo par exemple).
Il te faut éviter qu'elles viennent perturber ta mise à jour. 
Tu déclares une variable en tête de ton formulaire, 
par exemple Private maj As Boolean 
Dans ta mise à jour tu mets en débutmaj = True et en fin maj = False.
Dans ta procedure Private Sub ComboBox1_Change() tu mets en début
If maj Then Exit Sub
et cela devrait fonctionner.

Rows(I).Select  est inutile
à la place de I = I + 1  qui est inutile tu peux mettre Exit Sub car ta modif est finie.

gbinforme · Answer

Bonjour, 

 j'ais éssayer ce que tu m'a montré mais ça ne passe pas
Là, tu te fout de moi car il n'y a rien de mis dans ton classeur.
Je te l'ai mis et cela fonctionne mais ton classeur est bugué dans pas mal de fonctions qui utilisent des objets absents.

https://www.cjoint.com/c/GDfqLTs6P5l 

Si tu ne veux pas de mes corrections, tu es libre de les refuser, mais ne dis pas qu'elles ne fonctionnent pas sans les essayer.

Modification de donnée

2 réponses

Discussions similaires