Macro RECHERCHER-REMPLACER.
Résolu
Mirguy23
Messages postés
42
Date d'inscription
Statut
Membre
Dernière intervention
-
yg_be Messages postés 23541 Date d'inscription Statut Contributeur Dernière intervention -
yg_be Messages postés 23541 Date d'inscription Statut Contributeur Dernière intervention -
A voir également:
- Macro RECHERCHER-REMPLACER.
- Rechercher remplacer word - Guide
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Rechercher ou entrer l'adresse - Guide
- Remplacer disque dur par ssd - Guide
- Rechercher image - Guide
1 réponse
yg_be
Messages postés
23541
Date d'inscription
Statut
Contributeur
Dernière intervention
Ambassadeur
1 584
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
Type défini par utilisateur non défini
J'ai coché la référence "microsoft scripting runtime".