Remplacer une chaine de caratères à partir d'un tableau

Gognol77 · 10 Mars 2009

Bonjour à tous!
J'ai une question à soumettre à la communauté:
J'ai 2 tableaux, l'un contenant des noms et dans la cellule en face de ces noms une chaine de caractères avec à l'intérieur un code. Dans l'autre tableau, nous avons une liste de code et en face de chaque code sa transcription en un nom. Ma question est: est-il possible très simplement de remplacer les codes du premier tableau par l'équivalent nom du second tableau?
D'avance merci de m'avoir lu!!!

Gognol77 · 13 Mars 2009

Re : Remplacer une chaine de caratères à partir d'un tableau

Salut à tous.
Bon, j'ai un peu adapté ton code mon cher VBACrumble:

Sub test2()
Dim i As Long, j As Long

Application.ScreenUpdating = False

With Feuil1
For i = 1 To .Range("E65536").End(xlUp).Row
For j = 1 To 100

Worksheets("Feuil1").Columns(j).Replace _
What:=Feuil2.Cells(i, "A").Text, Replacement:=Feuil2.Cells(i, "B").Text, _
SearchOrder:=xlByColumns, MatchCase:=True

Next j

Next i
End With

Application.ScreenUpdating = True
End Sub

Merci mon Ami pour m'avoir aiguillé!

Remplacer une chaine de caratères à partir d'un tableau

Gognol77

XLDnaute Nouveau

Gognol77

XLDnaute Nouveau

Discussions similaires