Macro équivalente à recherchev
Résolu/Fermé
micropicT
micropicT
- Messages postés
- 6
- Date d'inscription
- samedi 30 mai 2015
- Statut
- Membre
- Dernière intervention
- 24 septembre 2017
micropicT
- Messages postés
- 6
- Date d'inscription
- samedi 30 mai 2015
- Statut
- Membre
- Dernière intervention
- 24 septembre 2017
A voir également:
- Remplacer recherchev par une macro
- Macro recherchev - Meilleures réponses
- Macro excel recherchev - Meilleures réponses
- Macro équivalente à recherchev ✓ - Forum - Excel
- Remplacer une RECHERCHEV par une MACRO???! - Forum - Programmation
- Méthode find dans VBA - Recherche de données sous Excel - Conseils pratiques - Visual Basic
- Macro recherchev et copier les lignes ✓ - Forum - Programmation
- [VBA] Macro semblabe à recherchev ✓ - Forum - VB / VBA
2 réponses
via55
30 mai 2015 à 20:41
- Messages postés
- 13613
- Date d'inscription
- mercredi 16 janvier 2013
- Statut
- Membre
- Dernière intervention
- 25 mai 2022
30 mai 2015 à 20:41
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
30 mai 2015 à 21:08
MERCI!!!!!