[Macro] Remplacer un texte par le contenu d'autres cellules
Bonjour,
Je vais faire simple et j'adapterai à ma situation.
J'ai un tableau avec 4 cellules (A1, B1, C1, D1) et dans:
- A1 j'ai: Je m'appelle XXXX et j'ai YYYY ans.
- B1 j'ai Cynthia
- C1 j'ai 18
- D1 qui est vide (au pire si c'est rempli, je fais Range("D1").Select puis Selection.ClearContents mais je me débrouillerai)
Je souhaiterais affecter une macro à un bouton qui m'écrirait dans la cellule D1 Je m'appelle Cynthia et j'ai 18 ans.
En gros, remplacer dans la cellule les XXXX par la valeur de la cellule B1 (en piquant la valeur dans une variable comme ça par exemple: Range("B1).Select puis prenom = Selection.FormulaR1C1) et de même pour la cellule C1. Le résultat, copié dans D1.
Ce que je n'arrive pas à faire c'est le copier remplacer
Pourriez-vous m'aider ?
Bonjour
Tu tiens vraiment à une Macro ?
Par formule, en D1 :
="Je m'appelle "&B1&" et j'ai "&C1& " ans"Pas besoin de A1
Amicalement
Nad
Bonsoir,
OK, car après, je souhaiterais que le contenu remonte en macro dans un module existant.
En fait dans A1, j'ai ma macro type avec les XXXX YYYY ZZZZ et dans mes cellules 3 champs différents.
Apres je remonterais le contenu de D1 vers le module dans la même macro, mais je ne sais pas comment m'y prendre :/
A+
Re
Pas très clair.
Peux-tu joindre ton fichier ?
Amicalement
Nad
Salut,
j'ai pas le fichier sous la main, j'upload ça demain.