Tirage systématique d'un echantillon

[jihene80]

Bonjour,
J'ai une liste de de champs de Blé contenant 156 enregistrements. chaque enregistrement est représentée par un identifiant )colonnes A,B,C,D,E) , une superficie en ha (Colonne F) et le cumul de la colonne F dans la colonne G.
Je veux tirer un echantillon de taille = 68 (chaque enregistrement a une chance proportionnelle à sa superficie (colonne F).
Le tirage est systématique
la superficie totale de blé = 68380 ha (total colonne F)
la raison ou le pas est donc = 68380/68 Soit 1005
le chois du nombre de départ est claculé à partir de la formule =ALEA.ENTRE.BORNES(1;1005) soit 827.
Comment faire un macro avec un userform pour tirer l'echantillon dans Feuil2
sachant que j'ai fait le tirage mannuellement comme dans le fichier Ci-joint.
Merci pour votre eventuelle aide

 

[Dranreb]

Re : Tirage systématique d'un echantillon

Bonjour.
Cette formue devrait donner la ligne correspondante:

=EQUIV($J2*68;$G2:$G$157)

Il ne reste qu'à reproduire la ligne dans une autre feuille à l'aide de la fonction INDEX ou DECALER

 

[jihene80]

Re : Tirage systématique d'un echantillon

Merci pour votre réponse mais je veux un tirage systématique selon le poids de chaque ligne qui est indiqué dans la colonne F. Donc un tirage à probabilité proportionnelle au poids de chaque ligne. Pouvez vous inserer dans mon fichier un bouton macro qui effectue ces taches et merci

 

[Dranreb]

Re : Tirage systématique d'un echantillon

C'était ce que je voulais faire mais il semblerait que je me sois trompé.
Je vais y réfléchir.
À +

Enfin non, je ne me suis pas trompé: ça revient bien à choisir une surface cumulée aléatoire uniformément distribuée comprise entre 0 et le total: imaginons que vous ayez un seul terrain représentant 95% de ce cumul et 5 chacun 1%. Le tirage aléatoire aurait bien 95% de chance de tomber dans le cumul apporté subitement dans la liste par ce terrain, où qu'il y soit. Et la recherche de la borne inférieure de ce cumul aurait autant de chance de tomber chaque fois dessus.
N'était ce qu'une courte illusion induite par votre réponse où ai-je tout de même commis une erreur de raisonnement ?

La formule pour trouver le numéro de ligne est cependant plus compliquée que je ne le croyais. J'arrive à ça:

=SI($J$2*68>=$F$2;EQUIV($J$2*68;$G$2:$G$157)+(INDEX($G$2:$G$157;EQUIV($J$2*68;$G$2:$G$157))<$J$2*68);1)

Si vous voulez une fonction qui calcule la même chose je peux vous l'écrire.

Option Explicit

Function LigneCumul(ByVal ValCum As Double, ByVal ColCum As Range) As Long
On Error Resume Next
LigneCumul = WorksheetFunction.Match(ValCum, ColCum)
If Err Then LigneCumul = 1: Exit Function
If ColCum.Rows(LigneCumul).Value < ValCum Then LigneCumul = LigneCumul + 1
End Function

=LigneCumul($J$2*68;$G$2:$G$157)

donne le même résultat.
À +

 

[jihene80]

Re : Tirage systématique d'un echantillon

cher DRANREB
Merci infiniment pour votre reponse
pouvez vous utiliser mon fichier et inserer le code VBA sous forme de bouton
je vous serais très reconnaissant et excusez moi pour le dérangement
cordialement

 

[Dranreb]

Re : Tirage systématique d'un echantillon

Pourquoi diable tenez vous tellement à votre bouton ?
Pour changer le tirage je suppose ?