Macro pour copier coller donnees - pbm

[Résolu/Fermé]
Signaler
Messages postés
2
Date d'inscription
lundi 23 avril 2012
Statut
Membre
Dernière intervention
24 avril 2012
-
Messages postés
2
Date d'inscription
lundi 23 avril 2012
Statut
Membre
Dernière intervention
24 avril 2012
-
Bonjour,

Une question qui je pense doit être d'un BASIC absolu pour vous :)

Je veux copier des valeurs d'une feuille a une autre et j'utilise cette macro :

Worksheets("Data").Range("J9:J400").Copy Worksheets("DB List").Range("J7")

Seulement, pour certaine valeur ce sont des formules et je voudrais seulement avoir les valeurs quand je copie...

J'ai essayer ça, mais excel a pas aime !!

Worksheets("Data").Range("J9:J400").Copy Worksheets("DB List").Range("J7").End(xlUp)(2).PasteSpecial Paste:=xlPasteValues

Merci d'avance pour votre aide



3 réponses

Messages postés
1823
Date d'inscription
vendredi 5 septembre 2008
Statut
Contributeur
Dernière intervention
24 avril 2020
618
Bonjour,

Cette syntaxe est curieuse :

Worksheets("Feuil2").Range("J7").End(xlUp)(2).PasteSpecial Paste:=xlPasteValues

Je pense qu'il faut plutot écrire :

Worksheets("Feuil2").Range("J7").PasteSpecial Paste:=xlPasteValues

pour coller à partir de la cellule J7 ou

Worksheets("Feuil2").Range("J7").End(xlUp).PasteSpecial Paste:=xlPasteValues

pour coller à partir du haut de la colonne J

A+
1
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 65492 internautes nous ont dit merci ce mois-ci

Messages postés
16491
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
21 juillet 2021
3 201
Bonjour

peut-^tre suivant ce principe (maquette testée OK)

Sub xxx()
With Sheets(1)
     Set Source = .Range("A1:A9")
     ligs = Source.Rows.Count
     Sheets(2).Range("A1").Resize(ligs, 1) = Source.Value
 End With
End Sub
1
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 65492 internautes nous ont dit merci ce mois-ci

Messages postés
2
Date d'inscription
lundi 23 avril 2012
Statut
Membre
Dernière intervention
24 avril 2012

Merci beaucoup a tout les deux, c'est ce qu'il me fallait ! j'ai même deux solutions maintenant ;)

Enjoy !