Microsoft 365 Retranscrire sélections

sylvanu à dit:

Re,
Normalement, si la colonne est bien choisie, DL donne la dernière cellule occupée.
Mais on peut faire :

VB:

Sub Essai()
    ' Traitement Options
    With Sheets("725D Options Tanguay 2022")
        DL = .Range("A65500").End(xlUp).Row
        Ind = 54
        For L = 5 To DL
            If LCase(.Cells(L, "G")) = "x" Then
                Cells(Ind, "C") = .Cells(L, "A")
                Cells(Ind, "D") = .Cells(L, "C")
                Cells(Ind, "M") = .Cells(L, "F")
                Ind = Ind + 1
                If Ind = 74 Then Exit For ' On sort de la boucle
            End If
        Next L
    End With
    Application.ScreenUpdating = True
End Sub

Utilisez la balise </> pour le code c'est plus lisible.
Indentez votre code, c'est plus lisible et évite les erreurs.

Cliquez pour agrandir...