Discussion :

[plante.douce]

BONJOUR

J'ai créé un formulaire VBA avec ce formulaire j'alimente une base de données excel. Mais je voudrais pouvoir en sens inverse créer une commande qui me permettrait de taper le nom dans une textbox et en cliquant sur "entrer" m'affiche les différentes données relatives à cette personne dans les différents textbox les modifier et les enregistrer (au même endroit ).


Merci si c'est possible bien sur

[SfJ5Rpw8]

tu peu nous en dire plus sur le fonctionnement de ton formulaire ... code ?

[zazaraignée]

Salut

Enregistre une macro qui fait une recherche avec l'outil de recherche du menu Edition et modifie la pour tes besoins.

[plante.douce]

bonjour


Voilà mes lignes de code pour ranger mes données dans ma base de données excel.

Code :

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

1
2
3
4
5
Dim L As Integer
L = Sheets("Feuil1").Range("a65536").End(xlUp).Row + 1
Sheets("Feuil1").Range("a" & L) = TextBox1.Value
Sheets("Feuil1").Range("b" & L) = TextBox2.Value
Sheets("Feuil1").Range("c" & L) = TextBox3.Value

"Et je voudrais à l'inverse créer une commande qui me permettrait d'aller chercher ces données en tapant le "nom" dans la textbox1 et que le programme aille chercher les données de la ligne et me les afficher dans les différentes textbox "champs" pour pouvoir les modifier et enregistrer les modifications dans ma base de données excel."

(je n'arrive pas à faire fonctionner la fonction recherche excel en VBA (j'ai essayé de copier la macro et de la modifier) et mon deuxième problème serait l'enregistrement des modifications avec cette fonction).

Merci d'avance (désolé c'est dur de résumé en très peu de lignes)

[Balises "Code" ajoutées par AlainTech]
[Pensez-y vous-même à l'avenir. Merci. ]

[SfJ5Rpw8]

tiens voila un code à metttre derriére un bouton de recherche..

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub CommandButton1_Click()
  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)
  End If
End Sub

[plante.douce]

Merci beaucoup maintenant je vais chercher comment remplacer les cellules existantes