Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Cherche et remplace valeur

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion nakadon
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
N

nakadon

XLDnaute Occasionnel
Bonjour,
Pourriez-vous m'aider svp. Je souhaite avoir une macro qui recherche puis remplace les valeurs dans la colonne "référence" du fichier2 par leur "Libellé" qui existe dans le fichier1 (grâce un bouton macro à placer dans la feuil1 du fichier1). Il s'agit de comparer les valeurs entre le fichier1 et le fichier2 ci-dessous. Si la valeur dans la colonne "référence" du fichier2 existe dans la colonne "code" du fichier1, elle est remplacée par la valeur "libellé" correspondante du fichier1, sinon ne rien faire.
D'avance merci pour votre aide.
 

Pièces jointes

Trier par date Trier par votes
Re : Cherche et remplace valeur

Merci PierreJean. L'idéal serait de supprimer les valeurs existantes dans la colonne A du fichier2 et de les remplacer par celle de "libellé"du fichier1. Mais c'est aussi bien comme ça. Merci.
 
Vote positif 0 Vote négatif
Re : Cherche et remplace valeur

Re

Version pour remplacement

Code: 
Sub report()
tablo = Sheets("Feuil2").Range("A2:B" & Sheets("Feuil2").Range("A" & Rows.Count).End(xlUp).Row)
tablo1 = Workbooks("Fichier2.xls").Sheets("Feuil1").Range("A2:A" & Workbooks("Fichier2.xls").Sheets("Feuil1").Range("A" & Rows.Count).End(xlUp).Row)
For n = LBound(tablo, 1) To UBound(tablo, 1)
  For m = LBound(tablo1, 1) To UBound(tablo1, 1)
    If tablo(n, 1) = tablo1(m, 1) Then
      tablo1(m, 1) = tablo(n, 2)
    End If
  Next
Next
 Workbooks("Fichier2.xls").Sheets("Feuil1").Range("A2").Resize(UBound(tablo1, 1), UBound(tablo1, 2)) = tablo1
End Sub
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

J
  • Question Question
Microsoft 365 recherchev associé à NB.SI
Réponses
9
Affichages
600
jebbayou34
J
J
  • Question Question
XL 2016 Formule de recherche de valeurs sur deux onglets en entête et en ligne
2
Réponses
22
Affichages
471
Jaykerz
J
G
  • Résolu(e)
Microsoft 365 Trouver et calculer écarts ventes provenant de 2 systèmes
2 3
Réponses
35
Affichages
1 K
AtTheOne
  • Question Question
Microsoft 365 faire une copie d'un fichier stocké dans un sous sous... sous répertoire
2
Réponses
20
Affichages
987
TooFatBoy
M
  • Résolu(e)
XL 2021 Verrouillage de cellules après exécution d'une macro
2
Réponses
23
Affichages
1 K
MATLEA
M
M
  • Résolu(e)
Microsoft 365 $ Macro pour copier un exemple et$.....
Réponses
9
Affichages
449
sousou
N
  • Résolu(e)
Microsoft 365 Hyperlink d'après valeur TCD
Réponses
11
Affichages
365
NikonvsWild
N
F
  • Question Question
XL 2016 recherche données et collage
Réponses
4
Affichages
132
finarobert
F
J
  • Question Question
Microsoft 365 Naviguer dans un tableau pour copier des données dans un modèle et copier l'un derrière l'autre
Réponses
11
Affichages
514
AtTheOne
S
  • Résolu(e)
XL 2021 Sommeprod, Equiv et Index
Réponses
3
Affichages
170
JHA
J
  • Question Question
XL 2021 Détecter un changement dans un des contrôles de formulaire et mettre à jour un TS correspondant.
2
Réponses
15
Affichages
563
jeff1494
E
  • Résolu(e)
Microsoft 365 ComboBox "dynamiques" sans doublon sur plusieurs colonnes
Réponses
2
Affichages
379
ExcLnoob
E
  • Question Question
XL 2021 Saisies multiples
Réponses
4
Affichages
220
job75
  • Question Question
XL 2016 Recherche/Remplace en VBA
Réponses
7
Affichages
652
crackerwood
  • Question Question
Microsoft 365 Vérifier et attribuer le nouveau taux horaire selon convention via formules
Réponses
3
Affichages
180
luno123
N
  • Résolu(e)
Microsoft 365 Modification impossible d'une TextBox
2 3 4
Réponses
56
Affichages
3 K
NONO14
N
D
  • Résolu(e)
Microsoft 365 Assistance pour optimisation d'un code VBA qui ne fonctionne pas comme souhaité
2
Réponses
21
Affichages
962
desto
D
T
  • Résolu(e)
XL 2013 Harmoniser valeur de cellules selon 2 variables
Réponses
4
Affichages
389
Thomas75
T
  • Résolu(e)
XL 2013 Effacer le contenu si la valeur n'est pas entre 13000 90000 et copier les valeurs dupliqués
Réponses
8
Affichages
365
lestoiles1
J
  • Question Question
Microsoft 365 fonction decale et recherche V
Réponses
2
Affichages
323
JVOS
J
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…