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

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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

Dernière édition:
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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Retour