Code vba copier valeurs Fermé

Question

Bonjour, 

Je veux copier, coller valeurs les cellules de la colonne B en A1 de la Feuil1 mais je bloque sur la notion de "valeurs". Impossible de trouver la solution. Ci-dessous mon code :

Range(Cells(3, col), Cells(DerLigne, col)).Copy Sheets("Feuil1").Range("A1")

Quelqu'un peut-il m'aider
Merci
Configuration: Windows / Chrome 84.0.4147.105

cs_Le Pivert · Answer

Bonjour,

voir ceci:

https://docs.microsoft.com/fr-FR/office/vba/api/Excel.Range.Copy

Yoyo01000 · Answer

Bonjour,

coller en A1 les valeurs de toute la colonne B ou alors coller toutes les valeurs de la colonne B à partir de A1 ?

Avez-vous essayé de passer par l'enregistreur de macro ?

FafaM · Answer

Je colle en A1 de l'onglet Feui1 les valeurs de toute la colonne B d'un onglet sur lequel je suis positionnée.
L'enregistreur de macro est une solution mais j'ai plusieurs lignes de codes comme celle indiquée dans mon message et je voudrais bien aller au plus court.

michel_m · Answer

Bonjour
Option Explicit'------------------------------------------------Sub copier_valeurs()Dim Colonne, Derlig As Integer, col As Bytecol = 2With Sheets(2)    Derlig = .Columns(col).Find(what:="*", searchdirection:=xlPrevious).Row    Colonne = .Range(.Cells(3, col), .Cells(Derlig, col))End With With Sheets(1)    .Range("a1").Resize(UBound(Colonne), 1) = Colonne    .ActivateEnd WithEnd Sub