Selection de cellules et copie vers une autre feuille

Pierrot93

XLDnaute Barbatruc

• 6 Mars 2008

• #2

Re : Selection de cellules et copie vers une autre feuille

Bonsoir lcoulon,

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

Code:

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
@+

 

Vote positif 0 Vote négatif

L

lcoulon

XLDnaute Occasionnel

• 6 Mars 2008

• #3

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 ?

 

Vote positif 0 Vote négatif

Excel_lent

XLDnaute Impliqué

• 6 Mars 2008

• #4

Re : Selection de cellules et copie vers une autre feuille

Bonsoir à tous.

autre proposition :

Code:

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

 

Dernière édition: 6 Mars 2008

Vote positif 0 Vote négatif

L

lcoulon

XLDnaute Occasionnel

• 6 Mars 2008

• #5

Re : Selection de cellules et copie vers une autre feuille

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

je me demande bien pourquoi .

 

Vote positif 0 Vote négatif

Excel_lent

XLDnaute Impliqué

• 6 Mars 2008

• #6

Re : Selection de cellules et copie vers une autre feuille

Re,

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

 

Pièces jointes

• CopieValeurs E.zip

  9 KB · Affichages: 74

Vote positif 0 Vote négatif

Cousinhub

XLDnaute Barbatruc

• 7 Mars 2008

• #7

Re : Selection de cellules et copie vers une autre feuille

Bonsoir,
une autre proposition :

Code:

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

 

Vote positif 0 Vote négatif

L

lcoulon

XLDnaute Occasionnel

• 7 Mars 2008

• #8

Re : Selection de cellules et copie vers une autre feuille

Merci a vous,

A présent, les 2 codes fonctionnent parfaitement.

 

Vote positif 0 Vote négatif