Listbox replace

Bonjour, dans le cadre de mon apprentissage de vba Excel je cherche à remplacer le texte d'une feuille avec une listbox de 2 colonnes de mon userform que j'alimente(colonne 1 terme a cherché colonne 2 terme de remplacement) .

J'ai cherché du code sur internet que je pourrais adapter, mais je n’ai rien trouvé.

Si vous avez une solution d'avance merci et bonne journée

Bonjour

Est-ce que la solution ici serait ce que vous cherchez à faire -> Listebox 1 vers Listbox 2

Cordialement

Désoler pour le temps de réponse non cela correspond pas, mais j'ai finalement trouvé ça qui pourrait être adapté si quelqu'un peut m'aider a finalisé le code

Sub Multi_FindReplace()

Dim fndList As Variant
Dim rplcList As Variant
Dim x As Long

fndList = Array("Yes", "United States", "Mexico") 'a remplacer par listbox colonne 1
rplcList = Array("no", "USA", "MEX") 'a remplacer par listbox colonne 2

  For x = LBound(fndList) To UBound(fndList)

        Sheets("texte").Cells.Replace What:=fndList(x), Replacement:=rplcList(x), _
          LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, _
          SearchFormat:=False, ReplaceFormat:=False

  Next x

End Sub

j'ai finalement réussi

Dim fndList As Variant
Dim rplcList As Variant
Dim x As Long
Dim i As Integer
i = 0

For x = 0 To formulaire.ListBox1.ListCount - 1
fndList = formulaire.ListBox1.Column(0, i)
rplcList = formulaire.ListBox1.Column(1, i)

    Sheets("decompile").Cells.Replace What:=fndList, Replacement:=rplcList, _
    LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, _
    SearchFormat:=False, ReplaceFormat:=False

 i = i + 1
  Next x
Rechercher des sujets similaires à "listbox replace"