L
loulou
Guest
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
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