Discussion :

[barhoom78w]

bonjour
je voudrais Transposer Chaque 02 cellules de la colonne B sur plusieurs lignes à partir de (B10), comme départ j'ai l'apparence de mon tableau comme afficher suivant :


j'ai essayé avec le script suivant:


j'ai obtenu le résultat suivant :


mais je veux désiré d'avoir le résultat comme ci dessous :


veuillez soit m'assister ou me conseillé pour atteindre mon objectif

[Franc]

Bonjour, teste ceci:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Sub UneColonnePlusieursLignes()
    Dim i As Integer
    For i = 10 To Range("B" & Rows.Count).End(xlUp).Row Step 2
        Range("I" & i) = Range("B" & i)
        Range("J" & i) = Range("B" & i + 1)
    Next i
End Sub

[umfred]

personnellement, je ne vois pas de différence entre ton tableau initial et le tableau que tu dis vouloir obtenir.
Edit: finalement j'ai vu la différence, les 2 dernières colonnes qui sont en plus de ta capture initiale