[VBA-E]replacement données excel par données VBA

On m'a aidé à créer un formulaire vba qui me permet soit de créer de nouvelles entrées soit de les faire afficher dans mon formulaire mais je ne sais pas comment faire après modifications des données les renvoyer dans ma base excel et écraser les anciennes données ( en textbox1 un numéro d'identification unique)

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

Dim L As Integer Dim r As Range L = Sheets("Feuil1").Range("a65536").End(xlUp).Row + 1 Set r = Sheets("Feuil1").Range("a2:a" & L).Find(TextBox1) If r Is Nothing Then MsgBox ("Introuvable") Else TextBox1.Value = r TextBox2.Value = r.Offset(0, 1) TextBox3.Value = r.Offset(0, 2) TextBox4.Value = r.Offset(0, 3) TextBox5.Value = r.Offset(0, 4) TextBox6.Value = r.Offset(0, 8) TextBox7.Value = r.Offset(0, 9) TextBox8.Value = r.Offset(0, 10) CheckBox1.Value = r.Offset(0, 11) CheckBox2.Value = r.Offset(0, 15) CheckBox3.Value = r.Offset(0, 17) TextBox9.Value = r.Offset(0, 19) TextBox10.Value = r.Offset(0, 23) TextBox11.Value = r.Offset(0, 24) TextBox12.Value = r.Offset(0, 25) TextBox15.Value = r.Offset(0, 28) TextBox13.Value = r.Offset(0, 29) TextBox14.Value = r.Offset(0, 30) TextBox16.Value = r.Offset(0, 33) :?: :?:

---

Existe t'il une commande pour ça Merci d'avance

tu fais la même chose dans l'autre sens...

Code:

---

1 2 3 4

... r = TextBox1.Value r.Offset(0, 1) = TextBox2.Value ...

---

Je séche encore désolé une dernière fois promis cette fois c'est la commande pour ranger les données.

Code:

---

1 2 3 4 5 6 7 8

Dim L As Integer Dim r As Range L = Sheets("Feuil1").Range("a65536").End(xlUp).Row+1 Set r = TextBox1.Value.????? Else r = TextBox1.Value r.Offset(0, 1) = TextBox2.Value r.Offset(0, 2) = TextBox3.Value

---

Merci pour les réponses déjà apportées : :oops:

non r , est un Range, une plage de cellule,enfin dans ton cas un cellule n que tu dois définir.. avec un code du style

Code:

---

1 2	Set r = Sheets("Feuil1").Range("a1")

---

... reste çà voir ensuite dans quelle ligne tu ve écrire ...? la ligne en cours dans fichier excel ???

oui je viens de rentrer cette fomule et il m'a remplacé tous les noms de ma base de données excel ? oui Je voudrais qu'il remplace la cellule ou se trouve déjà cette donnée. (qu'il cherche par rapport à l'identifiant qui se trouve dans la colonne A qui lui ne bougera jamais)

Code:

---

1 2 3 4 5

L = Sheets("Feuil1").Range("a65536").End(xlUp).Row + 1 Set r = Sheets("Feuil1").Range("a2:a" & L) r = TextBox1.Value r.Offset(0, 1) = TextBox2.Value r.Offset(0, 2) = TextBox3.Value

---

:roll:

Encore merci

ben alors tu garde la même affectation pour range :

Code:

---

1 2 3 4 5 6 7

Set r = Sheets("Feuil1").Range("a2:a" & L).Find(TextBox1) If r Is Nothing Then MsgBox ("Introuvable") Else r = TextBox1.Value r.Offset(0, 1) = TextBox2.Value r.Offset(0, 2) = TextBox3.Value

---

PS : Essai de penser au balise [ code] ... pour rendre ton message plus clair... pour cela lors de l'esdition du message sélectionne ton code et .. clique sur le bouton code, en haut...

Merci tout :D marche