tirage d'un echantillon

[jihene80]

bonjour,
J'ai posé cette question auparavant mais cette fois j'ai reformulé le fichier attaché pour mieux expliquer ma demande.
Merci pour votre éventuelle aide et excuser moi pour votre dérangement
Cordialement

 

[Dormeur74]

Re : tirage d'un echantillon

Je suis tout disposé à te donner le coup de main dont tu as besoin, mais n'ai strictement rien compris à tes explications. On reprend ?

 

[jihene80]

Re : tirage d'un echantillon

Merci pour votre disposition
j'ai une liste de données :
colonne A = identifiant
Colonne B = surface de hectare
colonne c = cumul des surfaces de la colonne B
Je veux tirer un échantillon de taille définie à l'avance (exemple 5)
Le tirage est systématique à probabilité proportionnelle à la surface (colonne B)
Le PAS = total du champ B / taille de l’échantillon soit 963/5=193
le nombre de départ est nombre aléatoire compris entre 1 et le PAS calculé de la façon suivante :
=ALEA.ENTRE.BORNES(1;193)
nombre de départ = 63 donc l'hectare N° 63 est mon premier échantillon qui se situe dans le cumul 75
puis on ajoute le pas au nombre départ pour tirer le le 2 ème échantillon soit 63+193=256
donc 256 se situe dans le cumul 265. et à chaque fois on ajoute le chiffre PAS jusqu'au tirage du 5 ème échantillon
J’espère que j'etais explicite et merci pour votre intérêt à mon problème.
Cordialement

 

[pierrejean]

Re : tirage d'un echantillon

Re

Bonjour à tous

Un essai

 

[jihene80]

Re : tirage d'un echantillon

Monsieur Pierrejean
merci infiniment, c'est ce que je cherche, vous etiez très génial
merci encor et je vous souhaite longue vie
cordialement votre

 

[jihene80]

Re : tirage d'un echantillon

Monsieur pierre jean,
Je compte encore sur votre service
Pouvez-vous m'expliquer les lignes des codes VBA pour apprendre un peu le déroulement des routines.
et je veux pas limiter le nombre d’échantillon à 5
Merci encore pour votre disponibilité et je vous rappelle que vous m'avez aider auparavant en 2008.
cordialement votre

 

[pierrejean]

Re : tirage d'un echantillon

Re

Voila
C'est par erreur que j'avais limité à 5
Par ailleurs j'ai commenté la macro (si problème ne pas hésiter à revenir)

 

[jihene80]

Re : tirage d'un echantillon

Merci beaucoup cher pierrejean,
si vous permettez pouvez vous m'expliquer davantage la ligne de commande suivant :

Me.TextBox2 = Int((Me.TextBox3 * Rnd) + 1)

et les commandes suivantes:
CLng
LBound
UBound

cordialement votre mon cher prof

 

[jihene80]

Re : tirage d'un echantillon

Bonne soirée cher pierrejean,
S'agissant d'un tirage systématique à probabilité inégale (proportionnelle aux valeurs de la colonne B),
en introduisant une base plus grande, j'ai remarqué que le tirage ne donne pas à chaque ligne une probabilité en fonction de son poids.
Dans le fichier ci-joint (Feuil2) vous aller remarquer que la ligne 25 doit se répéter 3 fois puisqu'il contient 3 échantillons et la ligne 42 comprend 4 échantillons et doit se répéter 4 fois.
Cordialement votre

 

[pierrejean]

Re : tirage d'un echantillon

Re

Voila
Me.TextBox2 = Int((Me.TextBox3 * Rnd) + 1)
'mettre en Textbox2 un nombre choisi aleatoirement entre 1 et Textbox3
Clng= conversion en entier Long (Voir aide sur Long)
Lbound(tablo,1) =)Limite basse du tablo pour la 1ere dimension
Ubound= limite haute

 

[jihene80]

Re : tirage d'un echantillon

Merci pierrejean,
vous étiez génial tout va bien et je vais adapter ce mode de tirage à mon travail
surtout lorsqu'il s'agit d'une base qui contient plus de 3 colonne. En cas de besoin
je demandrais votre aide si vous permettez bien.
Encore mille merci
cordialement votre