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

  • Initiateur de la discussion Initiateur de la discussion Gognol77
  • Date de début Date de début

Gognol77

XLDnaute Nouveau
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

XLDnaute Nouveau
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é!
 

Discussions similaires

Réponses
6
Affichages
313

Statistiques des forums

Discussions
315 293
Messages
2 118 127
Membres
113 434
dernier inscrit
thais1808