Bonsoir le forum,
j'ai une macro qui fonction bien à une exception prêt ,
Sub Contrat()
Sheets("PS").Select
Columns("A:A").Select
Range("B1").Value = "Réponse"
Range("a2").Select
Do While ActiveCell <> ""
N° = ActiveCell.Value
Réponse = Application.VLookup(N°, Range("Table"), 4, False)
If Not Application.IsNA(Réponse) Then
ActiveCell.Offset(0, 1) = Réponse
End If
ActiveCell.Offset(1, 0).Select
Loop
Range("a1").Select
End Sub
Le problème est que en résulta j'ai #REF!
merci
j'ai une macro qui fonction bien à une exception prêt ,
Sub Contrat()
Sheets("PS").Select
Columns("A:A").Select
Range("B1").Value = "Réponse"
Range("a2").Select
Do While ActiveCell <> ""
N° = ActiveCell.Value
Réponse = Application.VLookup(N°, Range("Table"), 4, False)
If Not Application.IsNA(Réponse) Then
ActiveCell.Offset(0, 1) = Réponse
End If
ActiveCell.Offset(1, 0).Select
Loop
Range("a1").Select
End Sub
Le problème est que en résulta j'ai #REF!
merci
Pièces jointes
Dernière édition: