Discussion :

[plante.douce]

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 :

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

[SfJ5Rpw8]

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

Code :

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

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

[plante.douce]

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

Code :

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

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 :

[SfJ5Rpw8]

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 :

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

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

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

[plante.douce]

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 :

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

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

Encore merci

[SfJ5Rpw8]

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

Code :

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

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

[plante.douce]

Merci tout marche