[VBA-E] rechercher des valeurs?

voila, j'essaye de renvoyer une liste de valeurs d'une feuille a une autre mais ça ne marche très bien.
cela fait déjà un petit moment que ça m'énerve alors je vous sollicite.
Dans la pièce jointe le code est dans "macro3"
le code doit renvoyer les valeurs de la colonne G (feuil2) à
la colonne D (feuil1)
la colonne E (feuil1) représente le résultat attendu.

je cherche,je cherche
En attendant merci d'avance.
salutations!!!

Bonsoir godSP2, bienvenue sur le forum.
Désolé mais je n'ai pas compris le principe (il est un peu tard, je suis certainement fatigué)
D'un côté tu as 13 ou 14 élèves, de l'autre 11 ou 12... comprends pas.
A quoi correspondent les N° de la colonne E Feuil1 ?
J'espère que tes réponses éclaireront ceux qui te liront demain.
Bonne chance

merci pour le méssage de bienvenue.
En fait, je suis en train de faire un programme de gestion de stocks
mon exemple représente des elèves et leurs notes...
la macro1 recherche tout les elèves ayant une note inférieur ou égale à la cellule"E15"
la macro2 liste tout ces elèves dans la feuil2 et efface les blancs
la macro3 devait me permettre de renvoyer une autre note vers la feuil1 (pas forcément à tout les élèves précedemment sélectionnés)

je n'y suis pas parvenu avec le code que j'avais commencer mais j'ai trouvé une autre façon d'y parvenir.

voici mon code pour le peu de gens que ça peu intérresser.:roll:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27

Sheets("feuil1").Select Dim Cel As Range   Dim i As Integer Dim a As Integer Dim Nbreref As Integer a = 2   'On affecte la cellule "A1" à la variable Cel   Set Cel = Range("A1")   'La derniere ligne - 1 correspond au nombre d'élèves   Nbreref = Cel.End(xlDown).Row - 1   For i = 1 To Nbreref     If Cel.Offset(i, 1) <= Range("E15") Then   Cel.Offset(i, 3) = Sheets("feuil2").Cells(a, 7) a = a + 1 End If     Next i

---

merci à vous ouskélnor.
salutations!:mouarf: :mouarf: :mouarf: