Macro RECHERCHER-REMPLACER.
Résolu/Fermé
Mirguy23
Messages postés
42
Date d'inscription
lundi 27 mai 2019
Statut
Membre
Dernière intervention
30 juillet 2019
-
Modifié le 26 juil. 2019 à 10:26
yg_be Messages postés 22624 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 28 mars 2024 - 30 juil. 2019 à 11:04
yg_be Messages postés 22624 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 28 mars 2024 - 30 juil. 2019 à 11:04
A voir également:
- Macro RECHERCHER-REMPLACER.
- Rechercher ou entrer l'adresse - Guide
- Rechercher et remplacer word - Guide
- Adresse IP locale : comment la trouver facilement - Guide
- Remplacer disque dur par ssd - Guide
- Macro logiciel - Télécharger - Organisation
1 réponse
yg_be
Messages postés
22624
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
28 mars 2024
1 461
26 juil. 2019 à 11:01
26 juil. 2019 à 11:01
bonjour, suggestion:
Sub g() Dim f1 As Worksheet, f2 As Worksheet, rg As Range Dim rech As Scripting.Dictionary Set rech = New Scripting.Dictionary Set f1 = ThisWorkbook.Worksheets("F1") Set f2 = ThisWorkbook.Worksheets("F2") For Each rg In Intersect(f2.Columns(2), f2.UsedRange) If rg.Value <> "" Then Call rech.Add(rg.Value, rg.Offset(0, -1).Value) End If Next rg For Each rg In Intersect(f1.Columns(2), f1.UsedRange) If rech.Exists(rg.Value) Then rg.Value = rech.Item(rg.Value) End If Next rg End Sub
26 juil. 2019 à 11:20
26 juil. 2019 à 11:33
26 juil. 2019 à 11:46
Type défini par utilisateur non défini
26 juil. 2019 à 11:57
26 juil. 2019 à 12:20
J'ai coché la référence "microsoft scripting runtime".