Macro équivalente à recherchev

Résolu/Fermé
micropicT Messages postés 6 Date d'inscription samedi 30 mai 2015 Statut Membre Dernière intervention 24 septembre 2017 - 30 mai 2015 à 20:24
micropicT Messages postés 6 Date d'inscription samedi 30 mai 2015 Statut Membre Dernière intervention 24 septembre 2017 - 30 mai 2015 à 21:11
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

via55 Messages postés 14495 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 7 novembre 2024 2 734
30 mai 2015 à 20:41
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
0
micropicT Messages postés 6 Date d'inscription samedi 30 mai 2015 Statut Membre Dernière intervention 24 septembre 2017
30 mai 2015 à 21:08
trop bien cela correspond à ce que j'ai besoin
MERCI!!!!!
0