Discussion :

[Yellow57]

Bonjour,

Voici un exemple de tableau :

Colonne A - Colonne B - Colonne C
AAA1 - BBB1 - CCC1
(empty) - BBB2 - (empty)
(empty) - BBB3 - (empty)
AAA2 - BBB4 - CCC2
(empty) - BBB5 - (empty)
(empty) - BBB6 - (empty)

Je voudrais que pour chaque cellule de la colonne B non vide :

• dans la colonne A on copie la cellule AAA1 correspondante
• dans la colonne C on copie la cellule CCC1 correspondante

... et ainsi de suite.

Au final, le tableau devrait ressembler à ca :

Colonne A - Colonne B - Colonne C
AAA1 - BBB1 - CCC1
AAA1 - BBB2 - CCC1
AAA1 - BBB3 - CCC1
AAA2 - BBB4 - CCC2
AAA2 - BBB5 - CCC2
AAA2 - BBB6 - CCC2

J'imagine qu'il faut une boucle for et des conditions if, mais je n'arrive pas à l'éditer...
Pourriez-vous m'aider ?

Merci d'avance.

[gFZT82]

Bonjour,

Une solution

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Option Explicit
Sub Test()
Dim DerLig As Long, i As Long
    With Worksheets("Feuil1")
        DerLig = .Range("B" & .Rows.Count).End(xlUp).Row
        For i = 2 To DerLig
            If .Range("A" & i) = "" Then
                .Range("A" & i) = .Range("A" & i).Offset(-1, 0)
                .Range("C" & i) = .Range("C" & i).Offset(-1, 0)
            End If
        Next
    End With
End Sub

Cordialement.