Discussion :

[fmris]

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

[mordrhim]

Code :

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

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

[fmris]

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 ?

[dadavyvy]

Ce n'est donc pas du VBA. Essaie :

Code :

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

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

[fmris]

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

[dadavyvy]

Essaie :

Code :

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

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