Macro équivalente à recherchev
Résolu
micropicT
Messages postés
6
Date d'inscription
Statut
Membre
Dernière intervention
-
micropicT Messages postés 6 Date d'inscription Statut Membre Dernière intervention -
micropicT Messages postés 6 Date d'inscription Statut Membre Dernière intervention -
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
A voir également:
- Macro excel recherchev
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Liste déroulante excel - Guide
- Word et excel gratuit - Guide
- Convertir chiffre en lettre excel sans macro ✓ - Forum Excel
- Déplacer colonne excel - Guide
2 réponses
Bonsoir
Macro à mettre dans un module :
Cdlmnt
Via
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
MERCI!!!!!