[Resolu] [VBA] planning pour inventaire tournant

Bonjour à tous.

J’ai un souci afin de pouvoir réaliser mon projet avec VBA.

Projet : création d'un planning pour un inventaire tournant.

Je dispose d'une liste de stock (qui peut évoluer en nombre de références), est je dois faire mon planning sur 50 semaines.

Réalisation : chaque semaine je dois avoir une liste de références à inventorier, et au bout des 50 semaines tout le stock doit avoir été inventorié.

problèmes : la sélection des références, car elle doit être issu de la formule [NBVAL(A:A)/50] (si le résultat de la formule donne 40, je dois sélectionner 40 cellules)

VBA :

Dim plage As Range, nbre As Integer
nbre = Application.CountA(Columns("A"))
Set plage = Range("A1:A" & nbre)

mais après c'est pour les 50 semaines je bloque!!!

J'espère avoir était clair dans les explications merci d'avance pour vos réponses.

Cordialement.


EDIT :

Sub Compute_period()
' Compute_period Macro

Sheets("basse de données").Select
Range("D2😀" & Sheets("basse de données").Range("F6").Value).Select
Selection.copy
Sheets("Feuil3").Select
Range("A1").Select
ActiveSheet.Paste Link:=True
Range("B1").Select
End Sub

Avec ce code la sa me parait bon il faut juste le moyen de remplacer le "F6" par le résultat d'une formule.
Si quelque peut m'éclairé
merci


Réponse trouvé: j'ai juste copier la valeur de la formule dans une autre avec un collage spéciale pour qu'il me donne que la valeur (10)

merci pour les réponses.