Bonjour,

est il possible d'adapter le code ci-dessous, je m'explique.
Je voudrais faire des recherches qui me renvoie le informations sur une autre feuille Excel.

La condition est simple s'il trouve la valeur dans la colonne A et la colonne D sur la même ligne de me renvoyer les informations vers une autre feuille.

Actuellement j'ai ça comme code :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub Vérif_pl()
 
Dim cell As Range
 
For Each cell In Sheets("déploiement").Range("c1:c" & Sheets("déploiement").Range("c65000").End(xlUp).Row)
 'Recherche avec Ma dans l'inventaire'
Set c = Sheets("Extract_Full_DCOL_EUR_FR_201303").Range("k:k").Find(cell, LookIn:=xlValues, LookAt:=xlWhole)
 If Not c Is Nothing Then
 'Renvoi le modele '
 Sheets("déploiement").Cells(cell.Row, 19) = Sheets("Extract_Full_DCOL_EUR_FR_201303").Cells(c.Row, 13)
  'Renvoi le Type'
 Sheets("déploiement").Cells(cell.Row, 13) = Sheets("Extract_Full_DCOL_EUR_FR_201303").Cells(c.Row, 12)
 'Renvoi la configuration'
 Sheets("déploiement").Cells(cell.Row, 12) = Sheets("Extract_Full_DCOL_EUR_FR_201303").Cells(c.Row, 25)
End If
Next cell
En faite il faudrait adapter le début mais je ne sais pas comment faire.
Si vous avez des pistes je suis preneur.

Merci