XL 2021 Propagation discontinue

[MATLEA]

Bonjour chers experts,
est-il possible de propager colonnes ou lignes de façon discontinue. Par exemple au lieu d'obtenir à partir de A1: A1, A2, A3 etc obtenir A1, A3, A5 etc Voir fichier joint.
Merci pour vos avis et solutions.

 

[danielco]

voilà un exemple

Essaie :

=FILTRE(B4:B20;EST.PAIR(LIGNE(B4:B20)))

Daniel

 

[job75]

Comment transposer la formule à d'autres situations sans toto et à d'autres positions que A1?

Voyez le fichier joint et cette macro :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim pas, dercel As Range, P As Range
If IsEmpty(Target(1)) Then Exit Sub
Cancel = True
pas = 2 'à adapter
Set dercel = Target(1).End(xlDown)
If IsEmpty(dercel(0)) Then Set dercel = Target(1)
Set P = Range(Target(1), dercel)
With P(1, 2).Resize(Application.Max(1, Int(P.Count / pas)))
    .Formula = "=OFFSET(" & P(1).Address & ",2*(ROW()-" & P(1).Row & "),)"
    .Value = .Value 'facultatif, supprime les formules
End With
End Sub

Double-clic sur la 1ère cellule d'une liste.

 

[MATLEA]

Essaie :

=FILTRE(B4:B20;EST.PAIR(LIGNE(B4:B20)))

Daniel

Merci ca fonctionne

 

[MATLEA]

Voyez le fichier joint et cette macro :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim pas, dercel As Range, P As Range
If IsEmpty(Target(1)) Then Exit Sub
Cancel = True
pas = 2 'à adapter
Set dercel = Target(1).End(xlDown)
If IsEmpty(dercel(0)) Then Set dercel = Target(1)
Set P = Range(Target(1), dercel)
With P(1, 2).Resize(Application.Max(1, Int(P.Count / pas)))
    .Formula = "=OFFSET(" & P(1).Address & ",2*(ROW()-" & P(1).Row & "),)"
    .Value = .Value 'facultatif, supprime les formules
End With
End Sub

Double-clic sur la 1ère cellule d'une liste.

Merci job 75, ca marche très bien dans votre fichier.
Pouvez-vous me dire comment intégrer la macro dans mon fichier de travail?

Merci