[EXCEL VBA] copier coller spécial

Fermé
ashark2211@hotmail.com - 25 févr. 2010 à 13:12
 melanie1324 - 25 févr. 2010 à 13:26
Bonjour,

Je voudrais faire un copier coller d'une cellule à une autre cellule sur une autre feuille en vba. Jusque la ca va ;)
le seul probleme est que dans ma cellule source j'ai fait un concatener et du j'ai des formules à l'intérieur du concatener et du coup lorsque j'essai d'envoyer la macro il me répond dans la cellule d'arrivée qu'il y a des problèmes de références.
Je pense qu'il faudrait faire un collage spécial mais je sais pas comment faire ca en vba ....

Qq'un peut il m'aider ???

Merci

Voici mon code pour le moment :



Application.EnableEvents = False
With Worksheets("Feuil1")
.Range("AK28").Copy Worksheets("Feuil2").Range("A1")
End With
Application.EnableEvents = True
A voir également:

1 réponse

Bonjour,

sub x()
sheets("Feuil1").Range("AK28").copy
Sheets("Feuil2").select
cells(1,1).select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

end sub

A noter, lorsque l'on ne connait pas un code, enregistre une macro et fais ce que tu souhaites.
Exemple pour le copiage spécial, j'ai ouvert un novueau classeur, j'ai enregistré une macro, j'ai fait un copiage spécial.
J'ai arrêté la macro et dans le module se trouve le code souhaité.

Cordialement
0