Discussion :

[logue_in]

Bonjour,


Je voudrais faire une colonne B en sélectionnant une valeur sur 3 de la colonne A (même si cellule vide), mais ca ne fonctionne pas :

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
19
Application.ScreenUpdating = True
Dim i As Integer
Dim y As Integer
Dim v As Double
 
 
For i = 8 To 873
For y = 8 To 291
 
 
 v = Range("A" & i).Value
 
Cells(y, 2) = v
 
Next
Next
 
 
Application.ScreenUpdating = True

[antonysansh]

Peut etre comme ça :

Code :

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

1
2
3
4
5
6
7
8
Sub test()
    Dim i&
    Application.ScreenUpdating = False
        For i = 0 To 234
            Cells(i + 8, 2) = Cells(i * 3 + 8, 1)
        Next
    Application.ScreenUpdating = True
End Sub

[Docmarti]

Ou encore avec un For i = 8 To 873 Step 3

Code :

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

1
2
3
4
5
lig = 0
     For i = 8 To 873 Step 3
       lig = lig + 1
       Cells(lig, 3) = Cells(i, 1)
     Next

[logue_in]

Ça fonctionne bien, une colonne cachée m'a fait douter!! Merci à vous!!