Discussion :

[Jusomi31]

Bonjour,

Je pense que mon problème est simple mais je ne vois pas la solution. Le voici :

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
17
18
Sub essai()
 
    Dim row, col As Integer
 
    For row = 4 To 14
 
    For col = 15 To 20
    Sheets("Transfert").Select
    Cells(13, col).Select
    Selection.Copy
    Sheets("Rejet").Select
    Cells(row + 2, 3).Select
    ActiveSheet.Paste
 
    Next col
    Next row
 
End Sub

Mon code ne me fait pas d'erreur. Simplement je veux coller aux lignes 6, 8, 10, 12, 14 et 16. Or avec la boucle "For row", les lignes 7, 9, 11, 13, 15 se remplissent également avec #REF !

Comment lui dire qu'ils ne remplissent pas ces lignes 7, 9, 11, 13 et 15 ???

Merci de m'aider !

[Godzestla]

Avec ceci

Code :

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

1
2
 
For row = 4 To 14 Step 2

[Gorfael]

Salut Jusomi31

Code :

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

1
2
3
4
5
6
7
8
9
Sub essai()
Dim Lig As Long, col As Integer
For Lig = 4 To 14 Step 2
    For col = 15 To 20
        With Sheets("Transfert")
            .Cells(13, col).Copy Sheets("Rejet").Cells(Lig + 2, "C")
    Next col
Next Lig
End Sub

1er : ne jamais utliser un nom de variable qu'Excel utilise déjà. Row à une signification et Excel peut confondre et y perdre son latin (euh, VBA, plutôt.

Ce que je crois comprendre de ta macro, c'est une trnsosition de tansfert vers rejet
transformer des colonnes en ligne (1 sur 2 d'après ta question).
Mais alors, pourqoi travailler en Lig+2 et pas directeme,t de 6 à 16 ?
A+