RechercheV dans VBA

Bonjour,

Je voudrais avoir la syntaxe de la fonction :

Code:

---

RECHERCHEV(ALEA();$F$10:$H$14;3)

---

en VBA donc j'ai essayé :

Code:

---

.Cells(ligne.colonne) = WorksheetFunction.VLookup(ALEA(), .Range("F10:H14"), 3, False)

---

J'ai tant cherché mais rien ne marche. Merci d'avance

Bonjour NadraMGE,

C'est pas trop mal pourtant !
Par contre la formule "ALEA()" te retourne un nombre aléatoire entre 0 et 1.
En VBA, tu n'as pas de fonction toute faite de la sorte.

Ainsi, il me semble que tu doives passer par une fonction personnalisée.
Voici pour toi :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

'nb_chiffr représente de nombre de chiffre que la variable aléatoire doit contenir (en d'autres termes = le nombre de chiffres après la virgule) 'La fonction ALEA() contient X chiffres après la virgule. Il suffit d'identifier ce X et de la placer en paramètre dans la fonction. Function aleatoire(nb_chiffr As Integer)   Dim Val_max As Double   Val_max = 10 ^ nb_chiffr - 1   Randomize   'Nombre aléatoire entre 0 et 1 avec nb_chiffr après la virgule : aleatoire = (Int(Rnd * (Val_max + 1))) / 10 ^ nb_chiffr   End Function

---

Ce qui ferait :

Code:

---

1 2 3

With Worksheets("Feuil1") .Cells(ligne, colonne) = WorksheetFunction.VLookup(aleatoire(10), .Range("F10:H14"), 3, False) End With

---

... en remplacant "ligne" et "colonne" par ce que tu souhaites ! :ccool:

N'hésite pas à revenir vers moi !

Cordialement,
Kimy

Bonjour Kimy_Ire,

Merci pour ta réponse.
J'ai essayé cette solution mais en exécutant le code ça me met erreur 1004 sur la ligne

Code:

---

.Cells(ligne, colonne) = WorksheetFunction.VLookup(aleatoire(10), .Range("F10:H14"), 3, False)

---

Je ne comprend toujours pas pourquoi la fonction WorksheetFunction.VLookup ne marche pas

Bonjour NadraMGE,

Vlookup renvoie toujours une erreur s'il ne trouve pas de correspondance.
En cherchant sur un aléa c'est donc normale l'erreur, je dirais même que pas d'erreur serait étonnant ;)

Test avec une valeur que tu es certain de trouver et tu verras que le Vlook up marche (enfin j'espère ^^)

Bonjour,
J'ajouterai à la réponse d'Antony que la formule que tu cherches à reproduire est une recherche avec valeur proche et que pour qu'elle fonctionne, les données de la première colonne de la liste doivent être triées par ordre croissant.

Code:

---

RECHERCHEV(ALEA();$F$10:$H$14;3)

---

Bonjour,

Voilà mon code:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55

Sub Remplissage() ' ' RemplissageTableau Macro '   ' Dim Demande, NbVoitureLouees, NbJoursTot, NbVoitureDispo As Integer Dim ligne, colonne As Integer     With ThisWorkbook.Sheets("Feuil1")   ' Initialisation de Nombre de jours souhaités NbJoursTot = 30 ' Pour chaque jour ligne = 19 While NbJoursTot > 0 NbVoitureDispo = .Cells(ligne, 3).Value Demande = .Cells(ligne, 3).Value If NbVoitureDispo > Demande Then NbVoitureLouees = Demande Else NbVoitureLouees = NbVoitureDispo End If colonne = NbVoitureLouees + 4 While colonne > 4 .Cells(ligne, colonne) = WorksheetFunction.VLookup(aleatoire(10), .Range("F10:H14"), 3, False) Wend colonne = NbVoitureLouees + 5 While colonne < 10 .Cells(ligne, colonne) = 0 colonne = colonne + 1 Wend MsgBox ligne .Cells(ligne, 4) = NbVoitureLouees ligne = ligne + 1 NbJoursTot = NbJoursTot - 1 Wend End With End Sub   'nb_chiffr représente de nombre de chiffre que la variable aléatoire doit contenir (en d'autres termes = le nombre de chiffres après la virgule) 'La fonction ALEA() contient X chiffres après la virgule. Il suffit d'identifier ce X et de la placer en paramètre dans la fonction. Function aleatoire(nb_chiffr As Integer)   Dim Val_max As Double   Val_max = 10 ^ nb_chiffr - 1   Randomize   'Nombre aléatoire entre 0 et 1 avec nb_chiffr après la virgule : aleatoire = (Int(Rnd * (Val_max + 1))) / 10 ^ nb_chiffr   End Function

---

et voila le tableau ou je cherche les valeurs:
0,0 0,1 0
0,1 0,25 1
0,25 0,45 2
0,45 0,75 3
0,75 1,0 4

C'est pour l'organisation de location de voiture.

J'ai tout essayé mais j'ai vraiment besoin de RechercheV(ALEA(),...)
Merci pour votre aide

Bonjour NadraMGE,

En fait je pense que tu ne sais pas ce qu'est la fonction ALEA().
Il est normal que tu ne trouves rien puisque aleatoire(10) te retourne un chiffre aléatoire entre 0 et 1 avec 10 chiffres après la virgule.
Puisque tu fais une recherche sur la valeur exacte :

1. Tu ne trouveras jamais la valeur
2. Tu n'es pas sur de la trouver puisque c'est un nombre aléatoire, même en réduisant le nombre de chiffre.

Revois l'objectif de ce que tu souhaites avant de demander de l'aide.
Je crois que ça s'arrête là. ^^

Cordialement,
Kimy

Faire une RechercheV sur une valeur aléatoire c'est quand même bizarre par contre prendre une valeur sur une ligne aléatoire comprise entre deux bornes si tu y trouve une utilité c'est beaucoup moins bizarre et au finale ça fait la même chose.

D'accord. Merci quand même pour votre aide :)

Citation:

---

Envoyé par NadraMGE

et voila le tableau ou je cherche les valeurs:
0,0 0,1 0
0,1 0,25 1
0,25 0,45 2
0,45 0,75 3
0,75 1,0 4

---

Peut-être veux-tu juste une valeur aléatoire dans ce tableau. Dans ce cas regarde ça :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Sub test()   Dim i As Byte: Dim j As Byte   With Application.WorksheetFunction i = .RandBetween(10, 14) j = .RandBetween(6, 8) End With   MsgBox Cells(i, j).Value   End Sub

---

Bonjour,
Dans votre fonction c'est une recherche aléatoire dans un tableau de 3 colonnes alors que la recherche que je fais est avec des probabilités pour une loi de distribution disontinue:

Minimum	Maximun	Demande
0,0	0,1	0
0,1	0,25	1
0,25	0,45	2
0,45	0,75	3
0,75	1,0	4

J'utilise alea dans recherchev pour déterminer la plage.

Merci quand même pour votre aide