Action rechercher en VBA

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Action rechercher en VBA

zeuch

salut

voila j'ai une feuille de donnée sur excel, je voudrais creer un bouton de recherche qui me trouve une donnée et qui affiche le resultat dans un texbox par exemple

possible en vba ??

merci pour votre aide !!

Publicité

FlorentG

Unité de Masse

C'est possible en VBA, effectivement :jap:

zeuch

Et comment ???....

FlorentG

Unité de Masse

Ah ça c'est une autre question

zeuch

Ah ca c'est des réponses qui font avancer!!!

FlorentG

Unité de Masse

Je taquine Nan faut mettre donc une textbox et genre un bouton "rechercher". Puis tu scan cellule par cellule, et une fois la cellule trouvée, tu met son contenu dans la textbox

AlainTech

Pas trouvé? Cherche encore!

Je confirme, c'est possible!

---------------
Si on vous donne une info qui marche, DITES-LE!!!! ------ Si vous trouvez seul, AUSSI, votre solution peut servir à d'autres! ------ Je dois la majorité de mes connaissances à mes erreurs!

zeuch

Mais tu pour chaque recherche il faut une textebox ?
(désolé je débute)

AlainTech

Pas trouvé? Cherche encore!

Dis-nous déjà ce que tu as fait.

Si tu veux qu'on fasse tout à ta place, faudra peut-être chercher ailleurs.

zeuch

non, voila j'ai créé un petite base de données (sous forme de fiche) sous excel assisté par vba (gestion de client pour un hotel)
mais j'aurais voulu intégrer un bouton "rechercher" pour trouver la fiche d'un client

Publicité

zeuch

Donc sur la fiche il y a le nom prénom société numéro de tel etc...
Et je voudrais faire une recherche sur le nom du client

AlainTech

Pas trouvé? Cherche encore!

Tu connais donc la colonne où est le nom?

zeuch

oui

AlainTech

Pas trouvé? Cherche encore!

Voici un exemple théorique.

A toi d'adapter.

Sub RechNom()
Dim iLastRow As Long
Dim rNom As Range
Dim vI As Variant
iLastRow = Cells.SpecialCells(xlLastCell).Row
Set rNom = Range([A2], Cells(iLastRow, 1))
For Each vI In rNom
If UCase(Trim(vI.Text)) = UCase(Trim(frmRech.txtRechNom.Text)) Then
MsgBox (frmRech.txtRechNom.Text & " a été trouvé à la cellule " & _
vI.Address)
Exit For
End If
Next vI
End Sub

Mais je me demande qand même comment tu peux faire une gestion hôtelière si tu n'arrives même pas à faire ça...

FlorentG

Unité de Masse

zeuch a écrit :

non, voila j'ai créé un petite base de données (sous forme de fiche) sous excel assisté par vba (gestion de client pour un hotel)
mais j'aurais voulu intégrer un bouton "rechercher" pour trouver la fiche d'un client

Tous ces morceaux de phrases en gras motivent l'utilisation d'Access plutôt qu'Excel

AlainTech

Pas trouvé? Cherche encore!

FlorentG a écrit :

Tous ces morceaux de phrases en gras motivent l'utilisation d'Access plutôt qu'Excel

Evidemment...

Mais avec la question qu'il pose, je le vois mal gérer des BDD et des records s'il n'arrive déjà pas à faire une simple recherche.

zeuch

J'aime beaucoup tes petites remarque cher Alaintech....
Désolé de débuter et de chercher des infos a mon problème.
A croire que tu n'as jamais débuté...
Heureux de rencontrer un être à la science infuse!!!

AlainTech

Pas trouvé? Cherche encore!

Pas besoin de persifler...
Et, juste pour ton info, sache que je suis autodidacte (j'ai quité l'école à l'age de 13 ans).
J'ai donc débuté, sans aide, dans beaucoup de domaines (je suis arrivé à l'informatique par hasard).
Et je peux te dire que c'est à force de faire et de chercher à atteindre mes buts que j'y suis arrivé.
Sache aussi qu'à l'époque où je débutais, il n'y avais pas d'internet.

Tu remarqueras, j'espère, que je t'ai envoyé un bout de code.
Qu'en as-tu fait?

Message édité par AlainTech le 08-04-2005 à 15:23:11

zeuch

J'ai débuté VBA il y a 3 jours donc ton bout de code je ne l'ai pas compris....
Mais j'ai trouvé sur un autre site une solution a mon problème :

Static utilise As Boolean
Static lig, col As Integer

On Error GoTo erreur
If utilise Then ' Rechercher l'occurrence suivante
Cells.FindNext(After:=ActiveCell).Activate
lig2 = ActiveCell.Row
col2 = ActiveCell.Column

If (lig = lig2) And (col = col2) Then
MsgBox "Tous les éléments ont été trouvés"
utilise = False
Exit Sub
End If

Else
' Pour la première occurrence
nom = InputBox("Nom à rechercher" )
utilise = True
Cells.Find(What:=nom).Activate
lig = ActiveCell.Row
col = ActiveCell.Column
End If

erreur:
If Err.Number = 91 Then
MsgBox "Valeur non trouvée"
utilise = False
End If

Et c'est pas parceque tu as appris sans l'aide de personne qu'il faut faire des remarques aux personnes qui ont la chance d'avoir internet à leur époque!!

Message édité par zeuch le 08-04-2005 à 15:56:55

AlainTech

Pas trouvé? Cherche encore!

Et ce code là, tu l'as compris?

zeuch

a part les 2 premiére ligne je pense avoir compris le sens

Publicité

FORUM HardWare.fr

Programmation

VB/VBA/VBS

Action rechercher en VBA

Sujets relatifs
LDAP et VBA	Création dynamique de combobox en VBA
VBA Outlook : Création mail et insertion signature	Macro excel VBA complexe sur Filtre auto + récupération des données...
connaitre le N° de la ligne VBA Word 2000	DAO et fonction VBA
[Java/Struts] Déclencher des actions (.do) dans une Action...	VBA EXCEL attendre l'execution du programme .exe
Renommer un fichier Excel sous VBA Access	Flash MX 2004 : problème pour faire une action....
Plus de sujets relatifs à : Action rechercher en VBA

Page générée en 0.039 secondes