ne copier et coller que certaines lignes d'une feuille excel

Question

bonjour &#224; tous!

j'ai une feuille excel avec des infos. parmi ces infos je dois s&#233;lectionner que certaines lignes. une fois ces infos s&#233;lectionn&#233;es, je dois les coller sur une autre feuille. j'ai essay&#233; le code suivant (c'est un exemple parce que le nombre de lignes &#224; coller est variable):

Sheets("2004").Range("3:3").Select
Selection.Copy
Sheets("Search results").Select
ActiveSheet.Paste
Sheets("2004").Range("2:2").Select
Selection.Copy
Sheets("Search results").Select
ActiveSheet.Paste

mais pour la ligne "Sheets("2004").Range("2:2").Select", la compil me dit: 'la m&#233;thode select de la classe range a &#233;chou&#233;.'

pourquoi?

une autre solution serait de cr&#233;er un tableau 16 colonnes (parce que 16 types d'infos &#224; stocker) et n lignes (tabl dynamique pour les lignes) dans VB et coller ensuite le tableau en une seule fois... le probl&#232;me c'est que je sais cr&#233;er un tab dynamique &#224; une dimension, mais pour les tableaux o&#249; les colonnes sont fixes et les lignes dynamiques, je ne sais pas... puis apr&#232;s faut le redimensionner etc, et pour ce genre de tableau, je sais pas faire...

merci beaucoup de votre aide.

  Daydayerement V&#244;tre

galopin01 · Answer

Euh, c'est assez approximatif&#133;
En principe on n'utilise pas Range("3:3") mais Range("A3:C3") par exemple
Bon on arrive des fois &#224; s&#233;lectionner une ligne comme tu fais mais &#231;a c'est la premi&#232;re fois seulement. Une fois que tu as mis Excel de mauvaise humeur il renacle...
Et puis...
Comme tu voudrais faire tu vas toujour tout coller au m&#234;me endroit sur ta feuille cible.
la bonne solution c'est quelque chose comme &#231;a qui augmente la ligne cible &#224; chaque collage :
YAPUKA imbriquer la condition qui permet de choisir les lignes qui t'int&#233;ressent...


La macro suivante copie les lignes 1 &#224; 10 de la Feuille 1 dans la feuille 2 (&#224; partir de la ligne 8)


Sub Test()
k = 8
For i = 1 To 10
Feuil1.Range("A" & i & ":H" & i).Copy Feuil2.Range("A" & k)
k = k + 1
Next
End Sub


A+

nawakator · Answer

Essaye u n truc comme &#231;&#224;

-- d&#233;claration
public strData() As String
public Col  As Integer
public Ligne As Integer
   
-- Initialisation
   Col = 16
   Ligne = 60

-- Dans un fonction 
   ReDim Preserve strData(Col, Ligne)

Ligne peute changer sans probl&#232;me

Pour que Redim marche tu doit d&#233;clarer un tableau sans dimension pr&#233;sice. L'instruction Preserve permet de garder les donn&#233;es pr&#233;c&#233;dentes si Ligne devient  plus grand.

Sinon pour ton erreur essaye ??

Worksheets("2004").Activate
Sheets("2004").Range("3:3").Select
Selection.Copy
Worksheets("Search results").Activate
Sheets("Search results").Select
ActiveSheet.Paste
Worksheets("2004").Activate
Sheets("2004").Range("2:2").Select
Selection.Copy
Worksheets("Search results").Activate
Sheets("Search results").Select
ActiveSheet.Paste

Bye

Daydayer · Answer

merci de vos reponses, je vais tenter de voir si je peu fer qqch....

  Daydayerement V&#244;tre

Ne copier et coller que certaines lignes d'une feuille excel

3 réponses

Discussions similaires