Macro pour copier coller donnees - pbm

Résolu/Fermé

el_mastodonte Messages postés 2 Date d'inscription lundi 23 avril 2012 Statut Membre Dernière intervention 24 avril 2012 - 23 avril 2012 à 11:40
el_mastodonte Messages postés 2 Date d'inscription lundi 23 avril 2012 Statut Membre Dernière intervention 24 avril 2012 - 24 avril 2012 à 03:32

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:

Macro pour copier coller donnees - pbm
Copier coller pdf - Guide
Copier une vidéo youtube - Guide
Macro word - Guide
Macro logiciel - Télécharger - Organisation
Super copier - Télécharger - Gestion de fichiers

3 réponses

Réponse 1 / 3

pilas31 Messages postés 1825 Date d'inscription vendredi 5 septembre 2008 Statut Contributeur Dernière intervention 24 avril 2020 643
23 avril 2012 à 13:49

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+

Réponse 2 / 3

michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
23 avril 2012 à 14:16

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

Réponse 3 / 3

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

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

Enjoy !

Discussions similaires

Dessiner avec son clavier et avec des lettres

Comment faire le signe de croix (chrétiens) ?

dessin au clavier cannabis

Comment faire le symbole coeur vide/coeur blanc

dessin ASCII

Discussions similaires

Newsletters