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

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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

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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Retour