traduction vba Fermé

Question

Bonjour, je souhaite comprendre quelques lignes sur ce code vba

pouvez vous m'aider  à traduire :

1) x = 2

For i = 2 To DL

et 2)    x = x + 1

merci pour votre réponse!

voici le codage:



Sub Code()

DL = Cells(Application.Rows.Count, 1).End(xlUp).Row

DL2 = Cells(Application.Rows.Count, 7).End(xlUp).Row

Range(Cells(2, 7), Cells(DL2, 7)) = ""

VALEUR = InputBox("Valeur souhaitée?")

x = 2

For i = 2 To DL

If Range("B" & i).Value = Val(VALEUR) Then
    Range("G" & x).Value = Range("A" & i)
    x = x + 1
End If

Next i

End Sub

f894009 · Answer

Bonjour,

Sub Code()
    'derniere cellule non vide colonne A(1)
    DL = Cells(Application.Rows.Count, 1).End(xlUp).Row
    'derniere cellule non vide colonne G(7)
    DL2 = Cells(Application.Rows.Count, 7).End(xlUp).Row
    'vidage plage de cellules
    Range(Cells(2, 7), Cells(DL2, 7)) = ""
    'entree d'une valeur
    VALEUR = InputBox("Valeur souhaitée?")
    'initialisation pointeur cellules colonne G
    x = 2
    'boucle de 2 a DL (derniere cellule non vide colonne A(1))
    For i = 2 To DL
        'si cellule Bi=Valeur entree( en numerique)
        If Range("B" & i).Value = Val(VALEUR) Then
            'copie cellules Ai dans cellule Gx
            Range("G" & x).Value = Range("A" & i)
            'incremente de 1 pointeur cellule colonne G
            x = x + 1
        End If
    Next i
End Sub

Traduction vba

1 réponse

Discussions similaires