Copie de plusieurs cellules en fonction d'une autre cellule

[Fermé]
Signaler
Messages postés
191
Date d'inscription
vendredi 20 juin 2014
Statut
Membre
Dernière intervention
14 février 2019
-
Bonjour,

J'aimerais copier la valeur de 2 cellules d'une autre feuille de mon classeur en fonction de la valeur de la cellule A de ma feuille.

Je souhaite en fait comparer les cellules A de mes deux feuilles et si la valeur correspond alors je copie dans ma première feuille "BDD" en colonne D et E les valeurs des cellules M et N de ma seconde feuille.

Si aucune valeur de ma cellule A de ma feuille "ON" (ma seconde feuille) ne correspond à une valeur de la cellule A de la feuille "BDD" alors passer à la cellule A suivante.

J'ai donc fais ce code :

Dim i as long
Dim k as long

i = 2
For k = 2 to 500

Do while Sheets("BDD").Cells(i, 1).Value <> ""

if Sheets("BDD").Cells(i, 1).Value = Sheets("ON").Cells(k, 1).Value Then

Sheets("BDD").Cells(i, 4).Value = Sheets("ON").Cells(k, 13).Value
Sheets("BDD").Cells(i, 5).Value = Sheets("ON").Cells(k, 14).Value

i = i + 1
k = 2 'Je veux repartir du début du tableau

ElseIf k = 500 And Sheets("BDD").Cells(i, 1).Value <> Sheets("ON").Cells(k, 1).Value Then

k = 2
i = i + 1

End if

loop
Next k

End sub


Mais ce code ne fonctionne pas car le code s'éxécute mais il me met qu'excel ne fonctionne pas.

Quelqu'un pourrait-il m'aide svp ?