Action rechercher en VBA

Action rechercher en VBA - VB/VBA/VBS - Programmation

Marsh Posté le 07-04-2005 à 23:13:51    

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

Reply

Marsh Posté le 07-04-2005 à 23:13:51   

Reply

Marsh Posté le 07-04-2005 à 23:21:03    

C'est possible en VBA, effectivement :jap:

Reply

Marsh Posté le 07-04-2005 à 23:23:18    

Et comment ???....

Reply

Marsh Posté le 07-04-2005 à 23:25:55    

Ah ça c'est une autre question :D

Reply

Marsh Posté le 07-04-2005 à 23:27:01    

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

Reply

Marsh Posté le 07-04-2005 à 23:30:24    

Je taquine :D 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

Reply

Marsh Posté le 07-04-2005 à 23:31:48    

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

Marsh Posté le 07-04-2005 à 23:34:24    

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

Reply

Marsh Posté le 07-04-2005 à 23:36:22    

Dis-nous déjà ce que tu as fait.
 
Si tu veux qu'on fasse tout à ta place, faudra peut-être chercher ailleurs.


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

Marsh Posté le 07-04-2005 à 23:41:11    

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

Reply

Marsh Posté le 07-04-2005 à 23:41:11   

Reply

Marsh Posté le 07-04-2005 à 23:50:46    

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

Reply

Marsh Posté le 08-04-2005 à 00:01:49    

Tu connais donc la colonne où est le nom?


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

Marsh Posté le 08-04-2005 à 00:06:48    

oui

Reply

Marsh Posté le 08-04-2005 à 00:47:32    

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


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

Marsh Posté le 08-04-2005 à 09:36:19    

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

Reply

Marsh Posté le 08-04-2005 à 10:04:59    

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.


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

Marsh Posté le 08-04-2005 à 13:48:19    

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

Reply

Marsh Posté le 08-04-2005 à 15:18:00    

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

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

Marsh Posté le 08-04-2005 à 15:50:22    

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
Reply

Marsh Posté le 08-04-2005 à 18:01:26    

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


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

Marsh Posté le 08-04-2005 à 18:26:34    

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

Reply

Marsh Posté le    

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed