Code vba copier valeurs
FafaM
-
michel_m Messages postés 18903 Date d'inscription Statut Contributeur Dernière intervention -
michel_m Messages postés 18903 Date d'inscription Statut Contributeur Dernière intervention -
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 :
Quelqu'un peut-il m'aider
Merci
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
4 réponses
-
-
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 ?
-
Bonjour
Option Explicit
'------------------------------------------------
Sub copier_valeurs()
Dim Colonne, Derlig As Integer, col As Byte
col = 2
With 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
.Activate
End With
End Sub
-
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.
