sélection 1 cellule sur 3

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:

---

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

---

Peut etre comme ça :

Code:

---

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

---

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

Code:

---

1 2 3 4 5

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

---

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