fonction columns

fonction columns - VB/VBA/VBS - Programmation

Marsh Posté le 29-12-2009 à 18:41:29    

Salut à tous,
 
Je dois effectuer une recherche dans un fichier excel en langage vba. Je décris la situation : on a un code client, et à partir de ce code client  
il faut faire apparaitre le nom, et prénom de ce client sachant due toutes les informations sont regroupées dans un fichier excel sous forme de tableau avec la 1ere colonne pour le code client. Je sais que la fonction columns en vba équivaut à le fonction recheche d'excel, mais je ne comprends pas comment la programmer. Quelqu'un peut -t-il me l'expliquer ?
Merci d'avance

Reply

Marsh Posté le 29-12-2009 à 18:41:29   

Reply

Marsh Posté le 29-12-2009 à 21:17:37    

Salut à toi, et à tous,
 
voici une macro pour trouver la ligne correspondant à une référence donnée, puis sur cette ligne,  les valeurs des 2 colonnes suivantes :

Code :
  1. Sub NomClient()
  2. On Error GoTo fin
  3. Range("A1" ).Select
  4. CodeClient = InputBox("Veuillez entrer le code client, merci." )
  5.          ligne = Columns(1).Find(What:=CodeClient).Row
  6. Prénom = Cells(ligne, 2).Value
  7. Nom = Cells(ligne, 3).Value
  9. MsgBox ("Le client en référence " & CodeClient & " s'appelle " & Prénom & "  " & Nom)
  11. 'si la macro a trouvé la réf, on sort de la macro, sinon le processus d'erreur emmène directement à la balise appelée fin
  12. Exit Sub
  13. fin:
  14. MsgBox ("Référence non trouvée. Veuillez vérifier votre code" )
  15. End Sub


Bien cordialement
 


---------------
Olympus OM-D  EM-5 + 14-42
Reply

Marsh Posté le 31-12-2009 à 18:28:59    

merci bcp fort utile

Reply

Sujets relatifs:

Leave a Replay

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