Modifier et remplacer des données excel depuis un formulaire

Bonjour à tous, je viens vous voir car je bute sur un pb de modifier/remplacer.
J'ai créer un userform avec un combobox qui, quand je choisi un article dans celui-ci me donne toutes les infos en rapport avec lui (inscrite sur la même ligen excel).
Tous les champs visibles sur le userform à l'exception de "code article" sont modifiables.

Donc je voudrais créer un code qui, quand je modifie un ou plusieurs des champs remplace automoatiquement ce dernier dans la feuille excel après clique sur le bouton modifier créer sur le userform.

En gros :

Un userform lié à une feuille excel --> modification d'un ou plusieur champs --> clique sur bouton "modifier" efface les anciennes données et remplace par celle modifiées.

Merci de votre aide.

bonjour SenseniX le forum un exemple trés basique a adapter

Je n'arrive pas à adapter le code pour moi.
De l'aide Laetitia ?

re ,si je transpose dans ton cas. cela donnerait cela .le peu que j'ai vu avec tes images
je pense que ta plage par de c6 : j & x
donc 8 textbox a adapter

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Dim t As Variant, Y As Byte Private Sub UserForm_initialize() t = Range("c6:j" & Range("c65536").End(xlUp).Row): c1.List = t End Sub Private Sub cmd2_Click() For Y = 1 To 8: Cells(c1.ListIndex + 6, Y + 2) = Controls("T" & Y).Value: Next Y: Beep Unload Me: UserForm1.Show End Sub Private Sub c1_Click() For Y = 1 To 8: Controls("T" & Y) = c1.List(c1.ListIndex, Y - 1): Next Y End Sub Private Sub cmd1_Click() Unload Me End Sub Private Sub c1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) c1.SetFocus: c1.DropDown End Sub

---

ma combobox se nomme c1
les textboxs renommées T1 A T8
la textbox T1 dans proprietées pour pas pouvoir la modifier Locked a true

j' ai laisse tomber le code les labels pour faire simple
si tes données ne suivent pas la chronologie des textboxs dans ton userform change les de place pour qu'il correspondent

bien sur si ta plage va pas jusqu'a la colonne j il faut adapter supposons quel va jusqu'a la colonne h
donc dans initialize h a la place de j

Code:

---

1 2 3

Private Sub UserForm_initialize() t = Range("c6:h" & Range("c65536").End(xlUp).Row): c1.List = t End Sub

---

puis les boucles dans les autres codes 1 to 6 au lieu de 1 to 8

Je regarde ce soir, mais si ça peut t'aide voici mon fichier .
à la place de "T", je dois mettre tous mes noms de champs car ils ont tous un nom différent.

bonjour SenseniX le forum j'ai regardais ton code 4 userforms je verrais bien avec seulement 1 ou eventuellement passer par un multipage pour simplifier le code a l'extreme j'ai fais un autre exemple en partant sur ton fichier les textbox il vaut mieux les nommées de T1 a T7 cela permet de faire des boucles plus simple on evite les boucles avec "TypeName" ou "TypeOf" & economiser des dizaines de lignes de code en plus. il faut seulement bien positionner les textboxs dans ton user. a mediter!!!

Merci à toi, mais en fait je débute dans VBA et donc je peux pas encore alléger les codes, surtout que notre prof verrait que c'est trop perfectionné pour nous.


Pourrais tu voir avec mon code actuel ce que cela pourrait donner?

encore merci de ton aide mais on est à la fin et ça m'énerve de pas y arriver.

re, un peu de temps!!
pour modifier j'ai repris tes codes tu remarques que je mets .value si expression numerique pas d'erreurs dans les cellules si texte pas d'erreurs non plus .dans l'autre sens cellule vers textboxs pas la peine les texboxs dans un user sont considerees comme du texte 'd'ailleurs c'est pour cela qu'on les convertis pour faire des calculs par val cbdl ect...
oubli pas les conditions avec keypress majuscules ect..

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

Private Sub CommandButton1_Click() Dim i As Integer Dim article As String Dim recupval As String recupval = ComboBox1.Value With Worksheets("Données_articles") i = 6 Do While .Cells(i, 3) <> "" If recupval = .Cells(i, 3) Then .Cells(i, 7).Value = TextBox_gen .Cells(i, 8).Value = TextBox_qté .Cells(i, 4).Value = TextBox_famille .Cells(i, 5).Value = TextBox_designinterne .Cells(i, 6).Value = TextBox_designexterne .Cells(i, 9).Value = TextBox_prix End If i = i + 1 Loop End With End Sub

---

j'ai regarde l'userform supprimer vu que tu pars dans l'optique de supprimer autant selectionner la ligne quand tu change dans ta combo plus simple ton prof peu le comprendre!!! j'ai seulement rajoute une ligne a la fin de ton code de base

Code:

---

Cells(ComboBox1.ListIndex + 6, 1).EntireRow.Select

---

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

Private Sub ComboBox1_Change() Dim i As Integer Dim recupval As String recupval = ComboBox1.Value With Worksheets("Données_articles") i = 6 Do While .Cells(i, 3) <> "" If recupval = .Cells(i, 3) Then TextBox_gen.Text = .Cells(i, 7) TextBox_qté = .Cells(i, 8) TextBox_famille = .Cells(i, 4) TextBox_designinterne = .Cells(i, 5) TextBox_designexterne = .Cells(i, 6) TextBox_prix = .Cells(i, 9) End If i = i + 1 Loop End With Cells(ComboBox1.ListIndex + 6, 1).EntireRow.Select 'ligne rajoute End Sub

---

pour le message de confirmation j' ai modifie autrement tu risque de tourner en boucle ne plus pouvoir sortir!!!
de plus vu que la ligne est selectionne par defaut pas la peine de faire une recherche

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Private Sub CommandButton1_Click() Dim i As Integer Dim recupval As String Dim reponse As String reponse = MsgBox("Voulez vous bien supprimer cet article?", vbQuestion + vbYesNo) 'boite de dialogue 'pour demander la suppression If reponse = vbYes Then Selection.Delete Shift:=xlUp MsgBox "L'article selectionné est bien supprimé", vbExclamation Unload Me 'rajoute supprimer_fiche_article.Show 'rajoute Else Exit Sub End If End Sub

---