Une macro pour ajouter un caractère dans une cellule

Je souhaite créer une macro toute bête dans son principe, mais je n'y arrive pas.

Je voudrais pouvoir ajouter un caractère à une cellule en cliquant sur un bouton, par exemple :

• état initial de la cellule : BLABLA
• lancement de la macro
• état final de la cellule : BLABLA$

Quelqu'un pourrait-il m'aider siouplé ?

Merci !

Bonjour,

Code à adapter et à essayer :

Sub concatener()
  Dim Car As String
  Car = InputBox("Inscrire le(s) caractère(s) à ajouter", "Concaténer", "caractère(s) à ajouter")
  Range("A1") = Range("A1") & Car
End Sub

Merci pour cette réponse ultra-rapide – c'est presque ce que je voulais faire :

– d'une part, je voudrais que la concaténation se passe directement dans la cellule active au moment où je lance la macro (dans ton code, ça se passe dans une cellule donnée)

– d'autre part, je cherche à faire un truc encore plus rustique que ta proposition, puisque je cherche seulement à concaténer un caractère prédéterminé (dans mon exemple, ajouter "$" au contenu de la cellule active). Je me rends compte que je l'avais mal formulé...

En revanche, je ne sais pas comment modifier le code que tu m'as proposé pour y arriver.

A l'aide (bis) donc... !

Re,

J'espères avoir bien compris ta demande. Essaye donc le code suivant :

Sub concatener()
  ActiveCell = ActiveCell & "$"
End Sub

PS : Code à affecter éventuellement à un bouton de commande. Sélectionner d'abord une cellule qui contient de la donnée initiale et cliquer sur le bouton de commande qui déclenche la macro.

Super, c'est exactement ça que je voulais faire !

Merci beaucoup.