macro copier coller

[Evelynetfrancois]

bonsoir tout le monde

dans une partie d une macro j ai :

Range("F1").Copy................................ (F1 etant une valeur : exemple 42)
Sheets("ARCHIVES").Activate
Sheets("ARCHIVES").Range("A65536").End(xlUp).Offset(2, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False .........
est il possible au collage de rajouter automatiquement toujours la lettre "A", pour obtenir dans ce cas present : 42A

MERCI d'avance pour toute vos sujetions
bonne soirée à tous
E et F

 

[D.D.]

Re : macro copier coller

Hello,

Range(F1&"A").Copy
(Note qu'il faut enlever les "" de F1).

D.D.

 

[Victor21]

Re : macro copier coller

Bonsoir.

Remplace ton code par :

Sheets("ARCHIVES").Range("A65536").End(xlUp).Offset(2, 0).Value = "A" & Sheets("Feuil1").Range("F1").Value

Edit : correction.

 

[Evelynetfrancois]

Re : macro copier coller

merci DD & victor pour votre reactivité
Sheets("ARCHIVES").Range("A65536").End(xlUp).Offset(2, 0).Value = "A" & Sheets("COMMANDES").Range("F1").Value
me va à merveille !!
MERCI beaucoup !
E et F