Remplir chaque cellule d'un rang par la valeur d'une autre

Bonjour

Etant débutant en VBA, je me permets de vous contacter , vous les experts, pour demander de l'aide.

Alors j'ai un tableau, et un champ externe, je veux remplir les cellule du range("ARTICLE") une à une par la valeur insérée dans le champ "Ajouter ICI", j'y suis arrivé à le faire avec une macro juste pour la 1ère cellule, mais dès que j'insère la 2ème valeur elle n'est pas insérée dans la 2ème cellule mais plutôt modifie la 1ère cellule déjà remplie.

Voici le code de la macro :

Sub setArticle()

    Dim i As Integer
    i = 3
    Worksheets("PLM PRO").Range("A" & i).Value = Worksheets("PLM PRO").Range("H2").Value
    Range("H2").Clear

End Sub

Ci-joint mon fichier PLM PRO.xlsm sur lequel je travaille.

Merci d'avance pour toute suggestion de votre part.

Cordialement.

Bonjour et bienvenue sur le forum

Essaie comme ça :

Sub setArticle()

    Dim i As Integer
    i = Range("A" & Range("Tableau1").Rows.Count).End(xlUp)(2).Row
    Worksheets("PLM PRO").Range("A" & i).Value = Worksheets("PLM PRO").Range("H2").Value
    Range("H2").Clear

End Sub

Bye !

Merci énormément, ça marche super bien

Vraiment très ravi d'intégrer ce forum.

Cordialement.

Re salut ;

Je me demande si c'est possible de faire ça sans passer par un tableau, autrement dit : insérer la valeur du champ dans une cellule d'une ligne quelconque, la prochaine valeur dans celle en-dessous et ainsi de suite ...

Merci encore ;

Cordialement.

bihmane a écrit :

Je me demande si c'est possible de faire ça sans passer par un tableau

Je ne vois pas ce que tu veux dire : je ne passe pas par un tableau. Je donne à la variable i le numéro de la première cellule vide que tu trouves dans ta colonne A en partant du bas de la feuille.

Bye !

Bonsoir,

Merci pour votre réponse,

Cordialement.