Recherche avec Vlookup

C

chris

Guest

• 7 Janvier 2004

• #2

bonjour
Enlèves les "" autour de table dans vlookup
Chris

 

Vote positif 0 Vote négatif

L

loulou

Guest

• 7 Janvier 2004

• #3

merci cris,

aprés avoir enlevé les "" autour de la table, j'ai un autre message:

la méthode Range de l'objet _Global a échoué

 

Vote positif 0 Vote négatif

C

chris

Guest

• 7 Janvier 2004

• #4

Re
Ne mets que table sans range :
VLookup(i, Table, 10, False)

cette fois cela devrait aller.

Chris

 

Vote positif 0 Vote négatif

L

loulou

Guest

• 7 Janvier 2004

• #5

cris

toujours impossibilité de lire la propriété application
je me demande su cela ne vient pas de PC

merci

 

Vote positif 0 Vote négatif

L

loulou

Guest

• 8 Janvier 2004

• #6

bonjour à tous et meilleurs voeux

Je veux chercher des noms à partir de la colonne C ; dans la colonne J se trouvent les codes correspondant, et en colonne K, les nims que je veux rapatriés dans la colonne D.
Le message suivant apparait chaque fois que j'execute la macro:
" impossibilité de lire la propriété application"

Merci d'avance

Sub ObtenirNom()
Dim PC, Table, Bureau, i As Integer
PC = Range("C2").End(xlDown).Row
Bureau = Range("D2").End(xlDown).Row
Table = Range("A2:J350")
Worksheets("Calendrier").Activate
For i = 2 To PC
Bureau = Application.WorksheetFunction. _
VLookup(i, Table, 10, False)
Next i
End Sub

 

Vote positif 0 Vote négatif

L

loulou

Guest

• 9 Janvier 2004

• #7

Auteur: loulou (---.w193-252.abo.wanadoo.fr)
Date: 08-01-04 14:51

bonjour à tous et meilleurs voeux

Je veux chercher des noms à partir de la colonne C ; dans la colonne J se trouvent les codes correspondant, et en colonne K, les nims que je veux rapatriés dans la colonne D.
Le message suivant apparait chaque fois que j'execute la macro:
" impossibilité de lire la propriété application"

Merci d'avance

Sub ObtenirNom()
Dim PC, Table, Bureau, i As Integer
PC = Range("C2").End(xlDown).Row
Bureau = Range("D2").End(xlDown).Row
Table = Range("A2:J350")
Worksheets("Calendrier").Activate
For i = 2 To PC
Bureau = Application.WorksheetFunction. _
VLookup(i, Table, 10, False)
Next i
End Sub

 

Vote positif 0 Vote négatif

S

schmail

Guest

• 9 Janvier 2004

• #8

re bonsoir loulou

essaye en supprimant WorksheetFunction....et si cela marche, ne me demande pas pourquoi ;-)

@+ et bonne soirée

 

Vote positif 0 Vote négatif

L

loulou

Guest

• 9 Janvier 2004

• #9

schmail

j'ai essayé comme tu me l'as dit, le problème ne vient pas de là!!

vois mon message Boucle...

en effet, c'est lorsque je veux boucler que ça coince!!!

merci beaucoup

a++

loulou

 

Vote positif 0 Vote négatif