Discussion :

[brownthefou]

Bonjour à tous,

Je viens vers vous dans l'espoir où il existerai une réponse m'étant inconnue à ma problématique résidant dans ce titre.

Je cherche à copier à partir d'un tableau une ligne sur 2 et à copier ces lignes dans un autre feuille.

Une première macro me permettait de faire ce traitement mais en beaucoup trop de temps car je déselectionnait les feuilles et les lignes unes à unes.

J'ai donc essayé de mettre en place un algorithme copiant ces lignes d'un seul coup.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
        For x = 2 To UBound(tableau, 1) - 1
            If (x Mod 2) <> 0 Then
                ligne_selec = ligne_selec & x & ":" & x & ","
                y = x
            End If
        Next x
        MsgBox (Right(ligne_selec, 1))
        ligne_selec = Left(ligne_selec, Len(ligne_selec) - 1)
        Sheets("Feuil3").Select
        Range(ligne_selec).Select 'erreur
        Range("A" & y).Activate
        Application.CutCopyMode = False
        Selection.Copy
        Sheets("Feuil5").Select
        Rows("1:1").Select
        ActiveSheet.Copy

Cependant, erreur comme indiquée : "la méthode Range(...) de l'objet Global ne fonctionne pas".

Quelqu'un aurait-il une idée ? je bloque et ça me rend fou la !

Cordialement

[rvtoulon]

boujour,
un exemple:
mes lignes à copier sont en feuil1 et je les copie en feuil2
je copie une ligne sur 2 à partir de la ligne 1:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Dim derlign As Long
derlign = Sheets("Feuil1").Range("A" & Rows.Count).End(xlUp).Row
j = 1
For i = 1 To derlign Step 2
Sheets("Feuil1").Rows(i).EntireRow.Copy Sheets("Feuil2").Rows(j)
j = j + 1
Next i

[brownthefou]

Niquel ça rame pas, j'avais fait un algo un peu pareil en selectionnant tout mais la ça le fait rapidement, cool, encore une ofis merci rv