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