XL 2021 Copier une cellule sur deux et coller dans une autre colonne

[marco22]

Bonjour
Je veux faire un petit programme pour un tournoi de pétanque
Dans cette feuille que je joins
Dans la colonne A le classement de 1 a 91 mais qui peut être plus ou moins
Dans la colonne B le classement de la partie précédente
Je veux faire rencontrer le premier contre le deuxième, le troisième contre le quatrième, etc...
Dans la colonne F =SI(MOD(LIGNE();2)=0;D6;"")
Dans la colonne I =SI(MOD(LIGNE();2)=0;DECALER(D6;1;"")

Je voudrais faire un copier coller pour que F6 aille en K6, que F8 aille en K7, etc...
Copier une cellule sur deux et coller sans laisser de cellules vide
Merci
m@rco

 

[Franc58]

Salut, voici une petite macro qui fait le job. Seul petit souci, comme je me base sur la dernière cellule utilisée en colonne B, il faudrait déplacer le contenu des quelques cellules contenant un chemin vers un fichier, sinon la macro va aussi copier les 0 qui se trouvent à côté de ces cellules.

Sub CopyCells()

Dim i As Long
Dim j As Long
Dim lastrow As Long
lastrow = Feuil1.Cells(Rows.Count, "B").End(xlUp).Row

j = 6
For i = 6 To lastrow Step 2
    With Feuil1
        .Cells(j, 11).Value = .Cells(i, 6).Value
        .Cells(j, 14).Value = .Cells(i, 9).Value
    End With
    j = j + 1
Next i

End Sub

 

[marco22]

Merci ça a l'air de fonctionner
j'aurai préférer une formule!
je vais l'intégrer a mon fichier et je te redis
@+m@rco

 

[DJunqueira]

Avec formule.

=FILTRE(F6:F96;F6:F96<>"")

 

[marco22]

Merci DJunqueira
J'ai préféré la formule à la macro
Merci également à Franc58
Bonne soirée
@+m@rco

 

[DJunqueira]

Merci pour vos commentaires et bonne chance avec votre feuille de calcul.