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

A voir également:

Macro recherchev
Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
Macro word - Guide
Recherchev texte ✓ - Forum Excel
Recherchev somme plusieurs lignes ✓ - Forum Excel
Si(recherchev vrai alors) ✓ - Forum Excel

2 réponses

Réponse 1 / 2

via55 Messages postés 14494 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 26 octobre 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

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!!!!!

Réponse 2 / 2

eriiic Messages postés 24600 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 21 octobre 2024 7 238
30 mai 2015 à 20:58

Bonjour,

Pourquoi une macro et pas simplement un recherchev() en feuille1 ?
eric

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

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.

Discussions similaires

RechercheV dans macro avec case variable

Macro recherchev et copier les lignes

[VBA] Macro semblabe à recherchev

Remplacer une RECHERCHEV par une MACRO???!

recherchev en vba

Formule avec RECHERCHEV et CONCATENER.