XL 2016 remplacer une valeur par sa correspondante trouvée dans une table

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 !

Vélosolex

XLDnaute Nouveau
Bonjour,
Après de nombreuses recherches et essais, je fais appel à votre aide.
Je reçois un document où les noms d'articles sont remplacés par des codes. J'aimerais, pour une meilleure visibilité, remplacer tous ces codes par les noms correspondants. Je dispose d'une table de correspondance que j'ai copiée en dernière feuille du document exemple.
Le document réel présente plus de feuilles et le tableau de correspondance est bien plus long.
J'aimerais une macro qui aille chercher le code dans la table, pour le remplacer, dans toutes les feuilles, par le nom.

Merci
 

Pièces jointes

Bonjour,
Après de nombreuses recherches et essais, je fais appel à votre aide.
Je reçois un document où les noms d'articles sont remplacés par des codes. J'aimerais, pour une meilleure visibilité, remplacer tous ces codes par les noms correspondants. Je dispose d'une table de correspondance que j'ai copiée en dernière feuille du document exemple.
Le document réel présente plus de feuilles et le tableau de correspondance est bien plus long.
J'aimerais une macro qui aille chercher le code dans la table, pour le remplacer, dans toutes les feuilles, par le nom.

Merci
Bonjour,
Une proposition en PJ avec ce code
VB:
Sub remplace()
    Dim C As Range, Sh As Worksheet
    For Each C In Feuil2.Range("a1:a" & Feuil2.Cells(Feuil2.Rows.Count, "A").End(xlUp).Row)
        For Each Sh In ThisWorkbook.Worksheets
            If Sh.Name <> "Table" Then
                Sh.Cells.Replace C, C.Offset(, 1)
            End If
        Next
    Next
    MsgBox "Remplacement terminé", vbInformation, "Information"
End Sub
 

Pièces jointes

Dernière édition:
- 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

Retour