Les boucles

Bonjour à tous,

J'ai écrit quelques lignes de code pour que les données que j'ai dans une base (donc en colonne) puisse être retranscrite en ligne.

Une fois que le traitement est fait, la base prend la valeur "oui" et je passe à la ligne suivante.

Je ne suis pas un pro de VBA donc je lui indique quelle ligne il doit traiter (la formule sur excel fonctionne bien)

Et je souhaite maintenant le faire boucler tant que la valeur d'une cellule n'égale pas 0.

Et là, à part Fn+B pas d'issue.

Pourriez vous m'indiquer où je me plante ?

D'avance un grand merci, une bonne journée et un bon weekend à tous

Bonjour,

proposition de correction

Sub compta()
    With Sheets("Data")
        dld = .Cells(Rows.Count, 2).End(xlUp).Row 'dernière ligne data
        dlc = Sheets("Cpta").Cells(Rows.Count, 2).End(xlUp).Row 'dernière ligne cpta
        For x = 6 To dld 'on parcourt les lignes data
            If .Cells(x, 10) <> "Oui" Then '
                dlc = dlc + 1 ' on incrémente n° de ligne cpta
                Sheets("CPTA").Cells(dlc, 1) = .Cells(x, 1).Value 'on écrit les données
                Sheets("CPTA").Cells(dlc, 2).Resize(, 5).Value = .Cells(x, "N").Resize(, 5).Value
                .Cells(x, 10) = "Oui" 'on indique que la ligne a été transférée
            End If
        Next x
    End With
End Sub

Un grand merci, ça marche ! de bons moments en perspective

Je vais regarder de plus près à quoi sert resize.

Et autre leçon, plus c'est simple mieux c'est.

Bonne journée