[macroEx]plage issue d'un résultat de formule

bonjour

Dim plage As Range, nbre As Integer

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

Merci Michel pour ta réponse, mais je me suis mal exprimé.

En faite, le résultat de la formule (=NBVAL(A:A)) est divisé par 50 (à chaque fois) et c'est ce résultat qui me donne le nombre de cellules à sélectionner.

Exemple : si la formule (=NBVAL(A:A)) me donne 2000, je les divise par 50 ce qui me donne 40 donc je dois sélectionner 40 cellules à partir de A1.

Car c'est pour mettre en place un planning pour un inventaire tournant. Donc j'ai ma liste de stock ( avec le nombre d'articles qui peut changer) et j'aimerai planifié cet inventaire sur 50 semaines. Mais comme il faut qu'il soit automatique (qu'il prenne en compte l'évolution du stock) il faut qu'il puisse prendre toutes les références sur le délai donné.

Est c'est sur ça ou je bloque totalement.

Merci pour vos réponses.

Cordialement.

quand tu exprimes une demande, souviens toi que l'on a que ce tu as écris pour essayer d'aider, alors prend ton temps pour être précis et complet

si tu avais demandé une solution, imagine ce que ça te couterait (mini développeur 40€/h)

Bonjour.

Je n'est pas compris ta réponse, j'ai juste voulu être plus précis dans ce que j'aimerai faire.

Mais merci quand même.

Cordialement.

voila j'ai trouvé ce code

Sub Compute_period()
' Compute_period Macro

Sheets("basse de données").Select
Range("D2:D" & 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

il me semble bon, il faut juste que je trouve le moyen pour remplacé "F6" par le résultat d'une formule. Car la c'est un chiffre écrit, alors que le chiffre dont j'ai besoin est issu d'une formule.

Si quelqu'un à une idée!!!!
merci d'avance

Cordialement.