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

  2.  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
    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. 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