Code vba copier valeurs

FafaM -  
michel_m Messages postés 16602 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 : 

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

Réponse 1 / 4
cs_Le Pivert Messages postés 7904 Date d'inscription   Statut Contributeur Dernière intervention   729
 
Bonjour,

voir ceci:

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

1
Réponse 2 / 4
Yoyo01000 Messages postés 1639 Date d'inscription   Statut Membre Dernière intervention   168
 
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 ?
1
Réponse 3 / 4
michel_m Messages postés 16602 Date d'inscription   Statut Contributeur Dernière intervention   3 314
 
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
1
Réponse 4 / 4
FafaM
 
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.
0