Modification de donnée
amram.a
Messages postés
56
Date d'inscription
Statut
Membre
Dernière intervention
-
amram.a Messages postés 56 Date d'inscription Statut Membre Dernière intervention -
amram.a Messages postés 56 Date d'inscription Statut Membre Dernière intervention -
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
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
A voir également:
- Modification de donnée
- Suivi de modification word - Guide
- Logiciel gratuit modification pdf - Guide
- Modification dns - Guide
- Supprimer les données de navigation - Guide
- Modification liste déroulante excel - Guide
2 réponses
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
Dans ta mise à jour tu mets en début
Dans ta procedure Private Sub ComboBox1_Change() tu mets en début
et cela devrait fonctionner.
à la place de
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ébut
maj = Trueet 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).Selectest inutile
à la place de
I = I + 1qui est inutile tu peux mettre
Exit Subcar ta modif est finie.
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.
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.
bonsoir le forum
salut gbinforme
d'abord toutes mes excuse et toute mes remerciements pour l'aide que tu m'a apporté en faite, je voulais pas dire que t'a mal corrigé seulement que comme j'ai si bien dire je suis débutant donc il arrive parfois que j'arrive pas à inscris les codes que vous me donné à l'endroit propice
je dirais même que étant débutant, s'arrive souvent ce que je comprend pas ce que vous m'expliquer
donc vraiment toutes m'excuse certainement j’ai pas voulu mal parlé
je n'ose pas; surtout étant débutant
merci une fois de plus gbinforme j'ai compris le cour et ça fonction correctement
salut gbinforme
d'abord toutes mes excuse et toute mes remerciements pour l'aide que tu m'a apporté en faite, je voulais pas dire que t'a mal corrigé seulement que comme j'ai si bien dire je suis débutant donc il arrive parfois que j'arrive pas à inscris les codes que vous me donné à l'endroit propice
je dirais même que étant débutant, s'arrive souvent ce que je comprend pas ce que vous m'expliquer
donc vraiment toutes m'excuse certainement j’ai pas voulu mal parlé
je n'ose pas; surtout étant débutant
merci une fois de plus gbinforme j'ai compris le cour et ça fonction correctement
je vais essayer
certenement gbinforme j'ais éssayer ce que tu m'a montré mais ça ne passe pas
merci gbinforme
j'ai un petit soucis avec mon bouton modifier
en faite quand je tente de modifier certaines modifications sont validé par contre, d"autres ne valides pas (les anciennes données y reste toujours)
je serais très ravis de votre aide
voir pièce jointe
https://www.cjoint.com/c/GDfmuM2syZt