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 :
En faite il faudrait adapter le début mais je ne sais pas comment faire.
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
Si vous avez des pistes je suis preneur.
Merci
Partager