Bonjour à tous,
je m'explique, voila j'aimerai recuperer douze valeurs (nombre standard) d'une liste filtrée en partant de la valeur maxi de la liste et en remontant d'une unité a chaque fois, en sachant qu'il peut y avoir des cellules masquées donc je peux recuperer la valeur par exemple 90, 89, 86 etc. et en sachant que si la valeur a recuperer est egal à 0 alors je sors de la macro.
Seulement quand je commence a recuperer mes valeurs , ca marche pour la premiere, mais ensuite lorsque je remonte d'une cellule le code ne fait pas la difference entre une valeur affichée ou masquée.
pourriez vous m'aider sur ce code s'il vous plait
Sub test2()
Sheets("recap rapport").Range("a18").Value = Sheets("Evolution").Range("a65536").End(xlUp).Offset(0, 0).Value
Sheets("recap rapport").Range("a18").Value = Sheets("Evolution").Range("a65536").End(xlUp).Offset(0, 0).Value
Sheets("recap rapport").Range("a17").Value = Sheets("Evolution").Range("a65536").End(xlUp).Offset(-1, 0).Value
Sheets("recap rapport").Range("a16").Value = Sheets("Evolution").Range("a65536").End(xlUp).Offset(-2, 0).Value
Sheets("recap rapport").Range("a15").Value = Sheets("Evolution").Range("a65536").End(xlUp).Offset(-3, 0).Value
Sheets("recap rapport").Range("a14").Value = Sheets("Evolution").Range("a65536").End(xlUp).Offset(-4, 0).Value
Sheets("recap rapport").Range("a13").Value = Sheets("Evolution").Range("a65536").End(xlUp).Offset(-5, 0).Value
Sheets("recap rapport").Range("a12").Value = Sheets("Evolution").Range("a65536").End(xlUp).Offset(-6, 0).Value
Sheets("recap rapport").Range("a11").Value = Sheets("Evolution").Range("a65536").End(xlUp).Offset(-7, 0).Value
Sheets("recap rapport").Range("a10").Value = Sheets("Evolution").Range("a65536").End(xlUp).Offset(-8, 0).Value
Sheets("recap rapport").Range("a9").Value = Sheets("Evolution").Range("a65536").End(xlUp).Offset(-9, 0).Value
Sheets("recap rapport").Range("a8").Value = Sheets("Evolution").Range("a65536").End(xlUp).Offset(-10, 0).Value
Sheets("recap rapport").Range("a7").Value = Sheets("Evolution").Range("a65536").End(xlUp).Offset(-11, 0).Value
End Sub
je m'explique, voila j'aimerai recuperer douze valeurs (nombre standard) d'une liste filtrée en partant de la valeur maxi de la liste et en remontant d'une unité a chaque fois, en sachant qu'il peut y avoir des cellules masquées donc je peux recuperer la valeur par exemple 90, 89, 86 etc. et en sachant que si la valeur a recuperer est egal à 0 alors je sors de la macro.
Seulement quand je commence a recuperer mes valeurs , ca marche pour la premiere, mais ensuite lorsque je remonte d'une cellule le code ne fait pas la difference entre une valeur affichée ou masquée.
pourriez vous m'aider sur ce code s'il vous plait
Sub test2()
Sheets("recap rapport").Range("a18").Value = Sheets("Evolution").Range("a65536").End(xlUp).Offset(0, 0).Value
Sheets("recap rapport").Range("a18").Value = Sheets("Evolution").Range("a65536").End(xlUp).Offset(0, 0).Value
Sheets("recap rapport").Range("a17").Value = Sheets("Evolution").Range("a65536").End(xlUp).Offset(-1, 0).Value
Sheets("recap rapport").Range("a16").Value = Sheets("Evolution").Range("a65536").End(xlUp).Offset(-2, 0).Value
Sheets("recap rapport").Range("a15").Value = Sheets("Evolution").Range("a65536").End(xlUp).Offset(-3, 0).Value
Sheets("recap rapport").Range("a14").Value = Sheets("Evolution").Range("a65536").End(xlUp).Offset(-4, 0).Value
Sheets("recap rapport").Range("a13").Value = Sheets("Evolution").Range("a65536").End(xlUp).Offset(-5, 0).Value
Sheets("recap rapport").Range("a12").Value = Sheets("Evolution").Range("a65536").End(xlUp).Offset(-6, 0).Value
Sheets("recap rapport").Range("a11").Value = Sheets("Evolution").Range("a65536").End(xlUp).Offset(-7, 0).Value
Sheets("recap rapport").Range("a10").Value = Sheets("Evolution").Range("a65536").End(xlUp).Offset(-8, 0).Value
Sheets("recap rapport").Range("a9").Value = Sheets("Evolution").Range("a65536").End(xlUp).Offset(-9, 0).Value
Sheets("recap rapport").Range("a8").Value = Sheets("Evolution").Range("a65536").End(xlUp).Offset(-10, 0).Value
Sheets("recap rapport").Range("a7").Value = Sheets("Evolution").Range("a65536").End(xlUp).Offset(-11, 0).Value
End Sub