[VBA-E]formulaire VBA ??

Version imprimable

31/03/2006, 21h48
plante.douce

[VBA-E]formulaire VBA ??

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
31/03/2006, 22h15
SfJ5Rpw8

tu peu nous en dire plus sur le fonctionnement de ton formulaire ... code ?
01/04/2006, 03h42
zazaraignée

Salut

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

vba formulaire

bonjour

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

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.:wink: ]

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

Code:

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

01/04/2006, 20h24
plante.douce

merci merci

Merci beaucoup maintenant je vais chercher comment remplacer les cellules existantes