Macro pour copier coller donnees - pbm

Résolu
el_mastodonte Messages postés 2 Date d'inscription   Statut Membre Dernière intervention   -  
el_mastodonte Messages postés 2 Date d'inscription   Statut Membre Dernière intervention   -
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



A voir également:

3 réponses

Réponse 1 / 3
pilas31 Messages postés 1825 Date d'inscription   Statut Contributeur Dernière intervention   646
 
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
Réponse 2 / 3
michel_m Messages postés 16602 Date d'inscription   Statut Contributeur Dernière intervention   3 315
 
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
Réponse 3 / 3
el_mastodonte Messages postés 2 Date d'inscription   Statut Membre Dernière intervention  
 
Merci beaucoup a tout les deux, c'est ce qu'il me fallait ! j'ai même deux solutions maintenant ;)

Enjoy !
0

Discussions similaires

dessin avec symbole clavier
JSS -
Adraen -

79 réponses
Arobase
Zezette -
MPMP10 -

1 réponse
dessin au clavier cannabis
val2t1 -
Mamaaaa18 -

10 réponses