J JANO XLDnaute Occasionnel 7 Février 2009 #1 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 Pièces jointes un.xls 32.5 KB · Affichages: 49 un.xls 32.5 KB · Affichages: 52 un.xls 32.5 KB · Affichages: 53 Dernière édition: 7 Février 2009
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
JCGL XLDnaute Barbatruc 7 Février 2009 #2 Re : cherche donée dans 2 feuilles Bonjour à tous, Peux-tu essayer avec : Code: Sub Contrat() Sheets("PS").Select Range("B1").Value = "Réponse" Range("A2").Select Do While ActiveCell <> "" Réponse = "=VLOOKUP(RC[-1],Table,2,0)" ActiveCell.Offset(0, 1) = Réponse ActiveCell.Offset(1, 0).Select Loop Range("A1").Select End Sub A+ à tous Dernière édition: 7 Février 2009 Vote positif 0 Vote négatif
Re : cherche donée dans 2 feuilles Bonjour à tous, Peux-tu essayer avec : Code: Sub Contrat() Sheets("PS").Select Range("B1").Value = "Réponse" Range("A2").Select Do While ActiveCell <> "" Réponse = "=VLOOKUP(RC[-1],Table,2,0)" ActiveCell.Offset(0, 1) = Réponse ActiveCell.Offset(1, 0).Select Loop Range("A1").Select End Sub A+ à tous
J JANO XLDnaute Occasionnel 7 Février 2009 #3 Re : cherche donée dans 2 feuilles Merci beaucoup JCGL, cela fonction trés bien. Vote positif 0 Vote négatif
JCGL XLDnaute Barbatruc 7 Février 2009 #4 Re : cherche donée dans 2 feuilles Bonjour à tous, J'ai édité pour raccourcir le code A+ à tous Vote positif 0 Vote négatif