XL 2019 Rechercher un mot dans un texte et le remplacer par le contenu (x) d'une cellule

onecoderz

XLDnaute Nouveau
Bonjour,

Je me casse la tête depuis plusieurs mois sur un projet.

Je souhaiterais pouvoir remplacer un mot dans un texte par les informations inscrite dans une cellule. Je précise que je veux pas copier le mot mais la cellule. Car si je me retrouve avec une nouvelle liste. J'aimerais pouvoir effectuer à nouveau cette tâche avec une macro.

J'ai précisé ce que je souhaite dans le fichier excel pour mieux me comprendre.

Merci de votre aide.
 

Pièces jointes

  • Projet Macro00.xlsx
    12.6 KB · Affichages: 18

Staple1600

XLDnaute Barbatruc
Bonjour,

Fonctionne avec l'exemple fourni
(Exécutez la macro test)
VB:
Sub test()
choix 1
MsgBox "test 1"
choix 2
MsgBox "test 2"
choix 3
MsgBox "test 3"
choix 4
MsgBox "test 4"
End Sub
Private Sub choix(n As Byte)
Dim vArr, i%
vArr = Application.Transpose([E2:E5])
For i = 1 To 4
Cells(i + 1, "H") = VBA.Replace(Cells(i + 1, "B"), "(couleur)", vArr(n))
Next
End Sub
 

Discussions similaires

Statistiques des forums

Discussions
311 720
Messages
2 081 915
Membres
101 838
dernier inscrit
Christelle.B86