format texte: ajouter mr devant le nom

[bertgrav]

BONJOUR

je voudrais dans une macro ajouter automatiquement MR aprés avoir été chercher la cellule (copier coller etc)
en nombre je sais faire pour ajouter une info devant les chiffres:
Selection.NumberFormat = '''MR'' 0'

mais comment fait-on avec un texte ?

merci de vos réponses

chantal

 

[ziopizza]

Bonjour Chantal,
Adapte ça,

Sub tt()
a = Range('a1').Value
Range('a2').Value = 'mr' & a
End Sub
Salut
Yves

 

[bertgrav]

Merci, mais dans mon cas je ne peux pas car
je pars d'une feuille ou je sélectionne 7 cellule d'une colonne, je vais sur une seconde feuille, où je colle ces 7 cellules en les transposant
ce qui donne ceci: (attention ce n'est qu'une partie de la macro, je ne peux pas faire autrement que de transposer, car en définitif, elle est plus complexe que ceci, car il y a aussi un compteur etc etc...)


Sheets('feuille1').Select

Range('A1:A7').Select
Application.CutCopyMode = False
Selection.Copy
Sheets('feuille2').Select
Rane('A1').select
Selection.PasteSpecial Paste:=xlAll, Operation:=xlNone, SkipBlanks:=False _
, Transpose:=True
et ici il manque le format.....?????
QUI SERAIT SI C'ETAIT DES NOMBRE:
Selection.NumberFormat = '''MR '' 0'


CHANTAL

 

[ziopizza]

Re bonjour Chantal,
Cette adaptation fonctionne bien .

Sub Macro1()
Range('A1:A7').Select
Application.CutCopyMode = False
Selection.Copy
Sheets('feuil2').Select
Range('A1').Select
Selection.PasteSpecial Paste:=xlAll, Operation:=xlNone, SkipBlanks:=False _
, Transpose:=True
Selection.NumberFormat = '''MR ''0'
End sub
Salut Yves

 

[pierrejean]

bonjour CHANTAL

bonjour ziopizza

pour ma part j'ais testé:

Selection.NumberFormat = '''Mr ''@'

 

[bertgrav]

bonsoir,

pas mal!!!!

aussi simple que ça, fallait le savoir

encore un grand merci

bonne soirée pierrejean

chantal