OVH Cloud OVH Cloud

Collage spécial

3 réponses
Avatar
SEIGNEUR JEAN LUC
Je voudrai
1 : effacer les données des cellules A2:J1000 de la feuiille 2
2 : coller les valeurs des cellules A2:J1000 de la feuille 1 (collage
spécial) dans la feuille2 de A2:J1000

J'ai créer une macro qui bug
Quelqu'un aurait il une solution.

merci

JLS

3 réponses

Avatar
Michel Gaboly
Bonjour,

Fais-le en engegistrement auto.

Il faut procéder en 3 étapes : Copier, Collage spécial et effacement,

car le Collage spécial n'est dispo qu'après un Copier, pas après un
Couper



Je voudrai
1 : effacer les données des cellules A2:J1000 de la feuiille 2
2 : coller les valeurs des cellules A2:J1000 de la feuille 1 (collage
spécial) dans la feuille2 de A2:J1000

J'ai créer une macro qui bug
Quelqu'un aurait il une solution.

merci

JLS


--
Cordialement,

Michel Gaboly
http://www.gaboly.com

Avatar
Frédéric Sigonneau
Bonjour,

Essaye ce bout de code (après l'avoir recopié dans un module standard du
classeur où sont Feuil1 et Feuil2) :

Sub test()
Sheets("Feuil2").Range("A2:J1000").Value = _
Sheets("Feuil1").Range("A2:J1000").Value
End Sub

FS
--
Frédéric Sigonneau [MVP Excel - né un sans-culottide]
Gestions de temps, VBA pour Excel :
http://perso.wanadoo.fr/frederic.sigonneau
Si votre question sur Excel est urgente, évitez ma bal !


Je voudrai
1 : effacer les données des cellules A2:J1000 de la feuiille 2
2 : coller les valeurs des cellules A2:J1000 de la feuille 1 (collage
spécial) dans la feuille2 de A2:J1000

J'ai créer une macro qui bug
Quelqu'un aurait il une solution.

merci

JLS


Avatar
AV
Ou encore....

[Feuil2!A2:J1000] = [Feuil1!A2:J1000].Value

AV