Code vba copier valeurs

FafaM -  
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

  1. michel_m Contributeur
    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
    1. 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
      1. Yoyo01000
        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