Macro pour copier coller donnees - pbm Résolu

Question

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



Configuration: Windows XP / Firefox 11.0

pilas31 · Answer

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+

michel_m · Answer

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

el_mastodonte · Answer

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

Macro pour copier coller donnees - pbm

3 réponses

Discussions similaires

Newsletters