Excel 2007:Comparer des données sur 2 feuilles et les remplacer Résolu

Question

Bonjour,


Dans une feuille X, il y a 2 colonnes A et B
Dans une feuille Y, il y a 1 colonne C

Comment peut t-on, avec VBA, comparer 2 colonnes différentes : A de la feuille X et C de la feuille Y, et remplacer les valeurs correspondantes de la colonne C de la feuilleY par celle de la colonne B. 

Feuille X
A1 = AA                     B1 = BC
A2 = BB                     B2 = CD
A3 = CC                     B3 = DE

Feuille Y Avant: 
C1:BB
C2:AA 
C3:CC 

---> Feuille Y Après l'execution: 
C1:CD
C2:BC
C3:DE

Merci d'avance pour votre aide

cs_douda06 · Answer

Solution trouvée:

Sub Replace_List()

    Dim rList As Range, cell As Range
    
    Application.ScreenUpdating = False
        
    With ThisWorkbook.Sheets(1)
        Set rList = .Range("A2", .Range("A" & Rows.Count).End(xlUp))
    End With
    
    For Each cell In rList
        ActiveSheet.Cells.Replace What:=cell.Value, _
                                  Replacement:=cell.Offset(0, 1).Value, _
                                  LookAt:=xlPart, _
                                  MatchCase:=False
                                  
    Next cell
    
    Application.ScreenUpdating = True
    
    MsgBox "Replaced all items from the list.", vbInformation, "Replacements Complete"
    
End Sub

Excel 2007:Comparer des données sur 2 feuilles et les remplacer

1 réponse

Votre réponse