insérer texte inputbox

[seve95]

Bonjour à toutes et à tous !

Je ne sais pas comment faire pour insérer un texte à la suite de l'autre texte contenu dans la même cellule, je m'explique :

J'ai une cellule contenant ceci : "Nom :"
Après ces deux points, il y a une inputbox qui demande aux gens de saisir leur nom, exemple : "gérard"
Et donc "gérard" se retrouve à la place de "Nom:"
Ma question est comment faire pour que "gérard" se place dans la même cellule après les deux points + un espace... en sachant qu'il faut que ce soit impérativement dans la même cellule...

Je remercie celles et ceux qui voudront bien se pencher sur ce petit problème...

 

[michel]

Bonjour Seve95

si par exemple la cellule A1 contient "nom: "
tu peux utiliser une procédure qui va concatener (symbole & ) la valeur de la cellule a1 , un espace ( " " ) et la valeur de l'inputbox ( val )

Sub inserer()
Dim val As String
val = InputBox("Saisissez votre nom : ")
Range("a1") = Range("a1") & " " & val
End Sub

j'espere que j'ai bien compris ta demande et que cela pourra t'aider

bonne soirée
Michel

 

[sylsyl]

Salut Seve95, michel,

A ta place j'aurais plutot mis Range("A1")="Nom: " & val

pour eviter d'avoir "Nom: gerardNom: gerard gerard" si la macro est executee 2 fois.

A++, sylsyl.

 

[seve95]

Bonsoir !

Ca fonctionne super !

Merci beaucoup !

A +

Seve