Macro équivalente à recherchev [Résolu/Fermé]

Signaler
Messages postés
6
Date d'inscription
samedi 30 mai 2015
Statut
Membre
Dernière intervention
24 septembre 2017
-
Messages postés
6
Date d'inscription
samedi 30 mai 2015
Statut
Membre
Dernière intervention
24 septembre 2017
-
Bonjour,

Je cherche comment écrire une macro qui aurait un fonctionnement semblable à la fonction recherchev.
La macro doit pouvoir contrôler chaque cellule de la colonne B de la feuille 2 et voir si cette valeur est existante dans la colonne G de la feuille1.
Si par exemple la valeur de la cellule B4 de la feuille 2 se trouve aussi dans la cellule G12 de la feuille 1, alors la macro devra coller sur F4 et J4 de la feuille 2 les valeurs de M12 et P12 de la feuille 1.

Es-ce que quelqu'un peut m'aider svp?
Merci

2 réponses

Messages postés
12757
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
12 octobre 2020
2 040
Bonsoir

Macro à mettre dans un module :
Sub report()
Dim Ligne1 As Long, ligne2 As Long
ligne2 = Sheets("Feuil2").Columns(2).Find("*", , , , xlByColumns, xlPrevious).Row
Ligne1 = Sheets("Feuil1").Columns(7).Find("*", , , , xlByColumns, xlPrevious).Row
For n = 1 To ligne2
For m = 1 To Ligne1
If Sheets("Feuil2").Range("B" & n) = Sheets("Feuil1").Range("G" & m) Then
Sheets("Feuil2").Range("F" & n) = Sheets("Feuil1").Range("M" & m)
Sheets("Feuil2").Range("J" & n) = Sheets("Feuil1").Range("P" & m)
End If
Next
Next
End Sub


Cdlmnt
Via
Messages postés
6
Date d'inscription
samedi 30 mai 2015
Statut
Membre
Dernière intervention
24 septembre 2017

trop bien cela correspond à ce que j'ai besoin
MERCI!!!!!
Messages postés
23555
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
11 octobre 2020
6 400
Bonjour,

Pourquoi une macro et pas simplement un recherchev() en feuille1 ?
eric
Messages postés
6
Date d'inscription
samedi 30 mai 2015
Statut
Membre
Dernière intervention
24 septembre 2017

En fait j'avais besoin de copier les données correspondant à un item qui peut bouger sur ma feuille lorsque je lance une autre macro. Du coup cela va me permettre de retrouver toutes les données qui était rattaché au même item sans les perdres.