saut de cellule

Bonjour
J'ai une application simple mais que je n'arrive pas à effectuer.
Dans une colonne, j'ai dans les cellules 1 à 20 inscrits les valeurs 1 à 20.
Ex : A1 = 1 ; A2 = 2 ; A3 = 3...
Je voudrais une formule simple en inscrivant directement dans une cellule la valeur suivante
B1 = A1; B2=A5;B3=A9;B4=A13
En résumé B1 = A1 ; B2 = A(1+4); B3 = A(1+2*4)....
Merci

Code:

---

1 2 3 4 5

Sub test() For i = 1 To 20 Cells(i, 2) = Cells(1 + (i - 1) * 4, 1) Next End Sub

---

merci mais n'y a til pas une fonction inscrite directement dans la cellule du style "=$A5" qui permette d'aller plus vite et sans passer par le vba ?

Ce n'est donc pas du VBA. Essaie :

Code:

---

B1 =INDIRECT("A"&((LIGNE(B1)-1)*4+1))

---

merci pour la fonction qui fonctionne !!
mais est il possible de paramétrer également la colonne "a" dans l'exemple ?
j'ai essayé la fonction colonne mais elle renvoie le numéro de colonne et excel ne le reconnait pas.
merci pour votre aide

Essaie :

Code:

---

B1 =INDIRECT(ADRESSE(((LIGNE(B1)-1)*4+1);COLONNE(A1);1;VRAI))

---