Discussion :

[godSP2]

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!!!

[ouskel'n'or]

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

[godSP2]

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.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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!