Discussion :

[ftrap]

Bonjour,

J'ai trois colonnes A, B et C et je cherche à :

Copier la cellule C2 dans A1 et mettre la valeur 51 dans B1
Copier la cellule C54 dans A53 et mettre la valeur 51 dans B53
Copier la cellule C106 dans A105 et mettre la valeur 51 dans B105


Et ainsi de suite (par pas de 54)


Merci pour votre aide

[Invité]

Le code à adapter en fonction de la valeur de la fin de boucle:

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
Option Explicit
 
Public Sub CopierColler()
 
    Dim i As Long
 
    With ActiveSheet
        'Adapter la valeur de fin de boucle
        For i = 2 To 1000 Step 52
            .Cells(i - 1, 1).Value = .Cells(i, 3).Value
            .Cells(i - 1, 2).Value = 51
        Next i
    End With
 
End Sub

[ftrap]

Merci beaucoup