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