XL 2013 Decalage evec saut une ligne

[pascalpetanque]

Bonjour,
Je souhaite tirer une formule de décalage , je n'arrive pas à trouver la solution (voir ci dessous)
merci et bon dimanche

1​		=A1	=A2
2​		=A3	=A4
3​		=A5	=A6
4​		=A7	=A8
5​		=A9	=A10
6​		=A11	=A12
7​		=A13	=A14
8​		=A15	=A16
9​		=A17	=A18
10​		=A19	=A20
11​		=A21	=A22
12​		=A23	=A24
13​		=A25	=A26
14​
15​
16​
17​
18​
19​
20​
21​
22​
23​
24​
25​

 

[djidji59430]

Bonjour à tous,

=indirect(adresse(2*ligne());1))

Crdlmt

 

[pascalpetanque]

Désolé, ca ne fonctionne pas

 

[djidji59430]

Mais si, ça fonctionne !

 

[Dranreb]

Bonsoir.
On peut aussi prendre :

=DECALER($A$1;(LIGNE()-1)*2;0)

et :

=DECALER($A$1;(LIGNE()-1)*2+1;0)

 

[job75]

Bonjour pascalpetanque, djidji59430, Bernard,

Cette macro dans le code de la feuille permet d'obtenir les formules indiquées au post #1 :

Private Sub Worksheet_Change(ByVal Target As Range)
Dim tablo, i&
Application.ScreenUpdating = False
Application.EnableEvents = False 'désactive les évènements
If FilterMode Then ShowAllData 'si la feuille est filtré
[B:C].ClearContents 'RAZ
With [A1].CurrentRegion.Resize(, 3)
    tablo = .Formula
    For i = 1 To Application.RoundUp(UBound(tablo) / 2, 0)
        tablo(i, 2) = "=A" & 1 + 2 * (i - 1)
        tablo(i, 3) = "=A" & 2 * i
    Next
    .Formula = tablo
End With
Application.EnableEvents = True 'réactive les évènements
End Sub

Elle se déclenche automatiquement quand on modifie ou valide une cellule quelconque.

A+