Bonjour,
Un exemple à adapter.
Cdlt.
ExempleRechercheV.xlsm
Bonjour
Je me permets de vous relancer au sujet de cette demande
le fichier fonctionne parfaitement. Mais quand j'essaye de l'appliquer plusieurs fois dans le même classeur Excel (à un autre tableau avec d'autres critères), j'ai le message d'erreur suivant
J'ai essayé de l'adapter en changeant les noms des colonnnes (en enlevant les "s" à la fin ou en rajoutant des chiffres).
J'ai essayé de mettre le code dans un nouveau module, et je l'ai également collé dans la feuille concernée, et toujours pas de résultat.
Public Sub Lookup_values2()
Dim lo As ListObject
Dim rCriteria As Range, rData As Range, rCell As Range, Cell As Range, r
Dim test
Set lo = Range("T_Résultat").ListObject
Set rCriteria = Range("T_Critère")
Set rData = Range("T_Donnée")
'test = Range(Range("F2"), Range("F2").End(xlDown)).Select
'copie du filtre
'Selection.Copy
'selection du lieu de collage
'Range("M4").Select
'Collage
'ActiveSheet.Paste
With lo
If Not .DataBodyRange Is Nothing Then .DataBodyRange.Delete
Set rCell = .InsertRowRange.Cells(1)
End With
For Each Cell In rCriteria
r = Application.VLookup(Cell.Value, rData, 2, False)
If Not IsError(r) Then
rCell.Value = r
Set rCell = rCell.Offset(1)
End If
Next Cell
End Sub
Merci d'avance
Cordialement