Discussion :

[NadraMGE]

Bonjour,

Je voudrais avoir la syntaxe de la fonction :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

en VBA donc j'ai essayé :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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

[Kimy_Ire]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 !

N'hésite pas à revenir vers moi !

Cordialement,
Kimy

[NadraMGE]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

.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

[antonysansh]

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 ^^)

[Philippe Tulliez]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[NadraMGE]

Bonjour,

Voilà mon code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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