Renvoi valeur aléatoire double.

[boulou]

Pour la construction d'un jeu de classe primaire je me heurte à une difficulté qui doit s'avérer trés simple pour vous. Il s'agit de renvoyer préfixes et suffixes auxquels est associée une valeur.
Explications en annexe.
Merci pour votre aide et sachez que nombre d'entre vous m'impressionnent chaque fois que je viens effectuer des recherches sur votre forum.

Gérard.- Toulouse.

 

[Tibo]

Re : Renvoi valeur aléatoire double.

Bonjour,

A défaut de solution macro, une solution formules :

en H5 :

=INDEX($B$20:$B$30;ALEA()*NBVAL($B$20:$B$30)+1)

en H6 :

=RECHERCHEV(H5;$B$20:$C$30;2;0)

Je te laisse tester

@+

 

[Pierrot93]

Re : Renvoi valeur aléatoire double.

Bonjour Boulou, Tibo🙂

une solution vba :

Option Explicit
Private Sub CommandButton1_Click()
Dim x As Byte
Randomize
x = Int((30 - 20 + 1) * Rnd + 20)
Range("H5").Value = Cells(x, 2)
Range("H6").Value = Cells(x, 3)
End Sub

bonne journée
@+

 

[boulou]

Re : Renvoi valeur aléatoire double.

Merci Pierrot, c'est tout ce qu'il me fallait pour l'instant.

Peux tu voir le fichier ci joint et m'apporter une solution à cette nouvelle exigeance.
Merci pour ton attention et bonne journée à toi.

Gérard.

 

[Pierrot93]

Re : Renvoi valeur aléatoire double.

Bonjour,

modifie comme suit :

Option Explicit
Private Sub CommandButton1_Click()
Dim x As Byte, t() As Variant, y As Byte
Randomize
If Range("H2").Value = "" Then Exit Sub
t = Range("E2:E13")
y = Choose(WorksheetFunction.Match(Range("H2"), t, 0), 2, 5, 8, 11, 14, 17, 20, 23, 26, 29, 32, 35)
x = Int((27 - 19 + 1) * Rnd + 19)
Range("j15").Value = Cells(x, y)
Range("j16").Value = Cells(x, y + 1)
End Sub

bonne journée
@+

 

[boulou]

Re : Renvoi valeur aléatoire double.

C'est extra patron et félicitations.
Gérard.