selection d eplusieurs cellules avec cells

Bonjour,

J'ai un petit pb, je souhaiterai selectionnerune suite de cellules dans une colonne pour la copier ailleurs, or je souhaite le faire avec l'objet cells et non range, mais je n'y arrive pas.

je m'explique je veus par exemple faire l'équivalent de cà :

    Range("C2:C41").Select

mais avec l'objet cells puisque la plage de cellule est variable et est calculée en amont dans le programme.

J'ai donc essayer le code suisvant qui bien sure ne marche pas :

   Cells("2, 3 : " & ligne_calc & ", 3").Select

Avez vous une idée.

Merci d'avance !

oliv

Ou Range("C2:C" & ligne_calc).Select , ça devrait marcher.

Mais bon , ça répond pas à ta question puisque tu veux le faire avec Cells


---- Sevyc64  (alias Casy) ----

---

# LE PARTAGE EST NOTRE FORCE #

Salut,
HEu Cells.RAnge("C2:C42").Select ????

@+: Ju£i€n
Pensez: Réponse acceptée

Alors résumons les différentes réponse :

1 : Range("C2:C" & ligne_calc).Select

Ca ne marche pas, mais ca aurait pu répondre à ma question.


2: Cells.RAnge("C2:C42").Select

Merci, mais non, car c'est du statique. Le 42 doit être dynamique, d'ou la proposition 1 mais qui plante.


3 : Range(Cells(2, 3), Cells(ligne_calc, 3)).Select

Ca correspond très bien a ce dont je voulais et ca marche --> Merci

Ok donc maintenant que j'arrive a selectionner mes cellules et à les copier, j'ai du mal à les coller.

Mon code plante :

    Sheets("Recap").Select
    Range(Cells(2, 3), Cells(ligne_recap_deb - 2, 3)).Copy
    Sheets("Feuille de calcul").Select
    Cells(8, 3).Select   'ou aussi : Range(Cells(8, 3), Cells(ligne_recap_deb - 4, 3)).Copy 
    Selection.Paste    ' Ici ca plante, il n'arrive pas à coller


Une idée ? Qu'est ce qui fait planter mon code.

Re,
Essaie
ActiveSheet.Cells(8, 3).Select   'ou aussi : Range(Cells(8, 3), Cells(ligne_recap_deb - 4, 3)).Copy
Selection.Paste 

@+: Ju£i€n
Pensez: Réponse acceptée

Alors ca y est ca marche avec la  2ème réponse.

Je résume encore une fois :

1 :  ActiveSheet.Cells(8, 3).Select
      Selection.Paste 

Cette solution plante également mais je vois pas pourquoi

2 : Worksheets("Feuil1").Range("C1:C5").Copy
ActiveSheet.Paste Destination:=Worksheets("Feuil1").Range("D1:D5")

Cette solution marche très bien, Merci encore une fois.

Peut-être comme ça ?
Activesheet.Cells(8,3).Select
Selection.PasteSpecial

à PasteSpecial, tu peux y ajouter
xlPasteValues (coller la valeur)
xlPasteFormats (coller le format)
xlPasteFormulas (seulement les formules)
....

MPi