Sujet Précédent Sujet Suivant

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

Résolu/Fermé
cs_douda06 Messages postés 67 Date d'inscription jeudi 25 octobre 2007 Statut Membre Dernière intervention 1 avril 2015 - 24 nov. 2014 à 14:58
cs_douda06 Messages postés 67 Date d'inscription jeudi 25 octobre 2007 Statut Membre Dernière intervention 1 avril 2015 - 24 nov. 2014 à 17:07
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
A voir également:

1 réponse

Réponse 1 / 1
cs_douda06 Messages postés 67 Date d'inscription jeudi 25 octobre 2007 Statut Membre Dernière intervention 1 avril 2015
24 nov. 2014 à 17:07
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
0