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

Réponses
26
Affichages
616

Statistiques des forums

Discussions
313 322
Messages
2 097 151
Membres
106 854
dernier inscrit
Alex_Touge