Selection de cellules et copie vers une autre feuille

[lcoulon]

Bonjour

Je cherche un code qui me permettrait de sélectionner automatiquement les cellules de la colonne A de A1 jusqu'à Ax

x étant la dernière ligne de la colonne contenant des données.

( je ne veux pas sélectionner de cellules vides en fin de tableau )


et ensuite les copier / coller vers une autre feuille nommée "ABC" , colonne B

Je vous remercie de votre aide,

 

[Pierrot93]

Re : Selection de cellules et copie vers une autre feuille

Bonsoir lcoulon,

essaye le code ci dessous, nom des feuilles à adapter :

Sub test()
With Sheets("Feuil1")
    .Range("A1:A" & .Range("A65536").End(xlUp).Row).Copy Sheets("Feuil2").Range("B1")
End With
End Sub

bonne soirée
@+

 

[lcoulon]

Re : Selection de cellules et copie vers une autre feuille

Merci, cependant ce code m'a copié les formules de chaque cellule mais pas leur résultat.

Les cases collées sont donc vides d'affichage, que peux t-on faire pour seulement copier/coller les résultats et non pas les formules ?

 

[Excel_lent]

Re : Selection de cellules et copie vers une autre feuille

Bonsoir à tous.

autre proposition :

Dim plage As Range, cellule As Range, li%
  Set plage = Range("A1:A" & Range("A65536").End(xlUp).Row)
  li = 0
  For Each cellule In plage
    Sheets("Feuil2").Range("A1").Offset(li, 0) = cellule.Value
    li = li + 1
  Next

Remarque : le code de Pierrot est, à mon avis, le plus efficace pour tout copier(contenus et formats).

 

[lcoulon]

Re : Selection de cellules et copie vers une autre feuille

😕 rien ne s'affiche non plus avec ce code ...

je me demande bien pourquoi .

 

[Excel_lent]

Re : Selection de cellules et copie vers une autre feuille

Re,

Dans quelle feuille lances-tu la macro ?
Regarde le fichier joint.

 

[Cousinhub]

Re : Selection de cellules et copie vers une autre feuille

Bonsoir,
une autre proposition :

Sub essai()
Dim DerLig&
DerLig = Sheets("Feuil1").[A65000].End(xlUp).Row
Sheets("Feuil2").Range("A1:A" & DerLig).Value = Range("A1:A" & DerLig).Value
End Sub

 

[lcoulon]

Re : Selection de cellules et copie vers une autre feuille

Merci a vous,

A présent, les 2 codes fonctionnent parfaitement.