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

Silver811 · 1 Mars 2020

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 · 1 Mars 2020

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 :

VB:

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 · 1 Mars 2020

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

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

Silver811

XLDnaute Nouveau

Pièces jointes

sylvanu

XLDnaute Barbatruc

Pièces jointes

Silver811

XLDnaute Nouveau

Discussions similaires