Copier à la suite, intervalles différents

Bonjour au forum.

Je me permets de poster ce message, car mes recherches n'aboutissent pas.

Sur une même feuille, j'ai 2 colonnes :

La colonne B avec des données et des cases vides.

La colonnes C avec des données --> autant que le nombre de cases vide en B.

Le but est de copier les données de C dans les cases vides de B.

Le nombre de ligne, de catégorie, de quantité est variable.

Cela parait facile, mais je suis bloqué.

Merci d'avance.

Sub toto()
    Dim i As Long, k As Long
    With Sheets("Feuil1")
        k = 1
        For i = 2 To .Range("B" & .Rows.Count).End(xlUp).Row
            If .Range("B" & i) = "" Then
                .Range("B" & i) = .Range("c" & k)
                .Range("B" & i).Font.Color = RGB(255, 0, 0)
                k = k + 1
            End If
        Next i
    End With
End Sub

Bonjour,

merci à toi 'EngueEngue', cela fonctionne très bien.

Bonne continuation.

Cordialement.

Rechercher des sujets similaires à "copier suite intervalles differents"