N° de cellule variable

Bonjour

Pour établir une liste je rentre des n° en face d'une liste déjà établie

voir fichier joint.

Afin de ne pas répéter 100 fois la commande

If sheets("saisie_numo").Range("d" & i).Value = "1" Then

sheets("saisie_numo").Range("c" & i).Copy sheets("saisie_numo").Range("a1")

est il possible de trouver une formule prenant en compte ces 2 variables

If sheets("saisie_numo").Range("d" & i).Value (compris entre1 et 100) Then

sheets("saisie_numo").Range("c" & i).Copy sheets("saisie_numo").Range("a") (la valeur de "a" étant égale à la valeur de "d")

Sub liste()

Application.ScreenUpdating = False

Dim Valeur As Integer

Valeur = sheets("saisie_numo").Range("k" & Rows.Count).End(xlUp).Row

For i = 1 To Valeur

If sheets("saisie_numo").Range("d" & i).Value = "1" Then

sheets("saisie_numo").Range("c" & i).Copy sheets("saisie_numo").Range("a1")

End If

Next i

Application.ScreenUpdating = True

End Sub

Vous remerciant de votre aide

Pierre

bonjour,

une proposition

Sub liste()
    Application.ScreenUpdating = False

    Dim Valeur As long
    With Sheets("saisie_numo")
        Valeur = .Range("k" & Rows.Count).End(xlUp).Row
        For i = 1 To Valeur
            If .Range("D" & i) <> "" Then
                .Range("c" & i).Copy .Range("a" & .Range("D" & i))
            End If
        Next i
    End With
    Application.ScreenUpdating = True
End Sub

Bonsoir

Super ça répond tout à fait à ma demande.

J'avais bien cherché de ce coté : Range("a" & .Range("D" & i))

mais ma syntaxe n'était pas bonne et je n'aurai pas trouvé seul.

merci pour votre aide et bonnes fêtes

Pierre