Recherche avec Vlookup

[loulou]

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").End(xlDown).Row
Worksheets("Calendrier").Activate
For i = 2 To PC
Bureau = Application.WorksheetFunction. _
VLookup(i, Range("Table"), 10, False)
Next i
End Sub

 

[chris]

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

 

[loulou]

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é

 

[chris]

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

cette fois cela devrait aller.

Chris

 

[loulou]

cris

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

merci

 

[loulou]

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

 

[loulou]

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

 

[schmail]

re bonsoir loulou

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

@+ et bonne soirée

 

[loulou]

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