Fonction aléatoire sur excel

comme je veux faire un outil rien que pour moi pour un tirage au sort tout simple d'un element dans un liste de mot, j'ai voulu j'ai mis cette formule dans une cellule quelconque de ma feuille:

bonjour

=RECHERCHEH(1;liste;ENT(ALEA()*NB(A1:A7))+1;)

(parceque j'ai commencé l'essai avec 7 noms)

la formule s'inscrit donc en fx mais lorsque je clique "entrée", il m'est écrit ça:

"la formule que vous avez tapée contient une erreur"
suivi de 3 diferents point pour avoir de l'aide.


Est ce que quelqu'un voit où est l'erreur?

Bonjour gbinforme, j'ai lu toutes les pages de la question et a chaque fois vous proposez une réponse qui va parfaitement
Donc j'aurais beoin de votre aide s'il vous plaît
Je voudrais creer un programme de révision sur excel 2000, je voudrai qu'une fenêtre de saisie (userform) apparaîse et ensuite me pose les questions dans l'ordre ou au hasard et moi il faudrait que je rentre la réponse à la questions poser. Une répondu à la question quand j'appurai sur un bouton serait-il possible qu'il me dise si c'est la bonne réponse que j'ai mise.
Les questions sont de A1 à A44
Les réponses sont de B1 à B44
La réponse à la questions en A1 se trouve en B1
La réponse à la questions en A2 se trouve en B2

Merci

je suis sur excel version 2000

Salut,

Alors à priori, y'a pas de pb pour adapter ce code, j't'ai fait un p'tit canevas:

//******************** CODE ****************************
Public Sub tirage(colonne As Integer)

Dim densite1, densite2, densite3, densite4, densite5, densite6, ..., densite13, densiteTiree As Double
Dim tirage As Integer
Dim densite1Tiree, densite2Tiree, densite3Tiree, densite4Tiree, densite5Tiree, densite6Tiree, ..., densite13Tiree As Boolean

densite1 = ActiveSheet.Cells(2, 2).Value
densite2 = ActiveSheet.Cells(3, 2).Value
densite3 = ActiveSheet.Cells(4, 2).Value
densite4 = ActiveSheet.Cells(5, 2).Value
densite5 = ActiveSheet.Cells(6, 2).Value
densite6 = ActiveSheet.Cells(7, 2).Value
...
densite13 = ActiveSheet.Cells(14, 2).Value

densite1Tiree = False
densite2Tiree = False
densite3Tiree = False
densite4Tiree = False
densite5Tiree = False
densite6Tiree = False
...
densite13Tiree = False


For i = 1 To 13

densiteTiree = -999

While densiteTiree = -999

'Utilisation de Randomize pour éviter la répétition de séries identiques:
Randomize

tirage = 1 + Round(12 * Rnd)

Select Case tirage
Case 1
If densite1Tiree <> True Then
densiteTiree = densite1
End If
densite1Tiree = True
Case 2
If densite2Tiree <> True Then
densiteTiree = densite2
End If
densite2Tiree = True
Case 3
If densite3Tiree <> True Then
densiteTiree = densite3
End If
densite3Tiree = True
Case 4
If densite4Tiree <> True Then
densiteTiree = densite4
End If
densite4Tiree = True
Case 5
If densite5Tiree <> True Then
densiteTiree = densite5
End If
densite5Tiree = True
Case 6
If densite6Tiree <> True Then
densiteTiree = densite6
End If
densite6Tiree = True
...
Case 13
If densite13Tiree <> True Then
densiteTiree = densite13
End If
densite13Tiree = True
End Select
Wend

ActiveSheet.Cells(i + 1, colonne).Value = densiteTiree

Next i

End Sub
//******************* FIN CODE *************************

Voilà pour la fonction

Pour les boutons...ben c'est encore plus intuitif!

Le seul point à vérifier, c'est la correspondance avec la colonne qui contient tes nombres de 1 à 13 :

densite1 = ActiveSheet.Cells(2, 2).Value
densite2 = ActiveSheet.Cells(3, 2).Value
densite3 = ActiveSheet.Cells(4, 2).Value
densite4 = ActiveSheet.Cells(5, 2).Value
densite5 = ActiveSheet.Cells(6, 2).Value
densite6 = ActiveSheet.Cells(7, 2).Value
...
densite13 = ActiveSheet.Cells(14, 2).Value

les 13 nombres sont dans la colonne 2 de la ligne 2 à la ligne 14!

@+! Samy

lol

merci, je me fais toute petite...
voila, tu vois bien, je m'en doutais qu'il s'agissait d'un tout petite truc, lol, Merci beaucoup
a++ kari,

mais de rien...toujours là pour rendre service!

@+! Samy

Salut,

J'ai fait une p'tite recherche dans l'aide:


------------------------------------------------
Sub AfficheInfoAccesFichier(specfichier)
Dim fs, f, s
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFile(specfichier)
s = UCase(specfichier) & vbCrLf
s = s & "Créé le : " & f.DateCreated & vbCrLf
s = s & "Dernier accès le : " & f.DateLastAccessed & vbCrLf
s = s & "Dernière modification le : " & f.DateLastModified
MsgBox s, 0, "Infos d'accès au fichier"
End Sub

------------------------------------------------

DateLastModified doit être la fonction que tu recherches!

@+! Samy

Avec VBA tu peux faire énormément de choses, mais si tu veux pas utiliser de code, tu seras très vite limité. Tu ne pourras pas faire afficher de message par exemple (je crois).

@+!

bonjour

la réponse à ce cas d'erreur était donnée.