Macro équivalente à recherchev
Résolu
micropicT
Messages postés
9
Statut
Membre
-
micropicT Messages postés 9 Statut Membre -
micropicT Messages postés 9 Statut Membre -
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
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
-
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
