Microsoft 365 Remplacer le contenu d'une cellule par un autre avec une macro

[Silver811]

Bonjour La communauté;
J aurais besoin de vos lumières;
Je souhaiterais developper une macro de rechercher et remplacer :
Sélectionner des colonnes A à H sur le tableau de la feuille 1 de mon fichier; puis rechercher les valeurs contenues dans la colonne A de la feuille 2 pour les remplacer par la colonne B de cette feuille 2.

Le problème, c'est que je n'arrive pas à poser cette fonction avec des valeurs variables ( que sont les valeurs des cases des colonnes A et B)
Je joint un exemple du tableau
Merci par avance

 

[sylvanu]

Bonjour Silver,
Un essai en PJ.
Par contre il semble qu'il y ait quelques erreurs comme Carmel ou Custom collab urgent.
J'ai fait la macro la plus simple et compréhensible qui soit :

Sub RemplaceValeurs()
Taille = [A65000].End(3).Row
ListeValeur = Sheets("Feuil2").[A65000].End(3).Row
Set Plage = Range("A2:H" & Taille)
    For Each c In Plage
        If IsNumeric(c.Value) = False Then
            For i = 2 To ListeValeur
                If c.Value = Sheets("Feuil2").Cells(i, 1) Then
                    c.Value = Sheets("Feuil2").Cells(i, 2)
                End If
            Next
        End If
    Next
End Sub

il y a surement plus optimisée.

 

[Silver811]

Merci Sylvanu
Avec ca je devrais reussir a me debrouiller... je comprends mieux maintenant