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

marco22

XLDnaute Occasionnel
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
 

Pièces jointes

  • 1 ligne sur deux.xlsx
    18.8 KB · Affichages: 5
Dernière édition:

Franc58

XLDnaute Occasionnel
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.

VB:
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
 

Discussions similaires

Réponses
15
Affichages
691

Statistiques des forums

Discussions
313 201
Messages
2 096 180
Membres
106 517
dernier inscrit
oubourigue