[macroEx]plage issue d'un résultat de formuleRésolu/Fermé

Question

Bonjour a tous, et bonne année

voila j'ai un petit souci avec ma macro Excel. 

J'aimerai savoir, si cela est possible, comment faire pour sélectionner plusieurs cellules.

Je m'explique : je suis en A1 est je veux prendre les 43 cellules qui suive (vers le bas). Sachant que le chiffre 43 est peut de changer, car il est issu d'une formule (=NBVAL(A:A))

j'espère avoir était claire et merci d'avance pour vos réponses

cordialement.

michel_m · Answer

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

76hunter76 · Answer

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.

michel_m · Answer

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)

76hunter76 · Answer

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.

76hunter76 · Answer

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.

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

5 réponses

Newsletters