Nombre aleatoire

Bonjour,

Voilà j 'essaye de faire une macro en vba

J'ai des noms qui se trouve dans  Range (" A5 :A15 ") je voudrais qu'il prenne un nom au hasard et qu'il le met dans un TextBox

Merci au volontaire

 

 

Voir Randomize et Rnd dans ton aide en liggne
Reviens avec ton code d'essai si tu rencontres une difficulté d'application

Un petit ajout au cas où...
Randomize devrait être mis en tout début de la procédure ou dans Initialize du UserForm, si c'est le cas.

Je précise parce que j'ai vu des gens qui mettait Randomize à l'intérieur d'une boucle, ce qui ne devrait pas...

MPi

ce genre de choses ... :

Function GetRandomCell(ByRef voInRange As Range) As Range
Dim nRow As Long
Dim nCol As Long
    Randomize
   
    With voInRange
        If (.Column = .SpecialCells(xlCellTypeLastCell).Column) Then
            nCol = .Column
            nRow = .Row + Rnd * (.SpecialCells(xlCellTypeLastCell).Row - .Row)
        Else
            nRow = .Row
            nRow = .Column + Rnd * (.SpecialCells(xlCellTypeLastCell).Column - .Column)
        End If
        Set GetRandomCell = .Worksheet.Cells(nRow, nCol)
    End With
End Function

Sub test()
    MsgBox GetRandomCell(ActiveSheet.Range("A5:A15")).Text
End Sub


Renfield
Admin CodeS-SourceS- MVP Visual Basic

Re-Bonjour,
desoler vous allez un peux vite pour moi,
Voila je voudrez afficher le nom selectionner dans un msgbox
j'ai essayer comme cela mais il y a un hik
ex:
Private Sub lblp_Click()
msgbox = INDEX(A5:A15;ENT(ALEA()*(10-1)+1))
End Sub
merci d'avance

Si je comprends bien, tu mélanges les formules Excel (dans les cellules) et la technique VBA (le code de Renfield, par exemple)

Si tu veux utiliser ta technique, il faudrait afficher ta formule dans une cellule quelconque au préalable.

'Changer Z1 pour une cellule de ton choix
Range("Z1").FormulaLocal = "=INDEX(A5:A15;ENT(ALEA()*(10-1)+1))"
msgbox Range("Z1").Value
Range("Z1") = ""

MPi

Bonjour,

J'ai essayé mai il bloque sur la deuxième ligne et il affiche (Type mismatch)

 Est ce peut être à cause que ma liste contient du texte et non chiffres

Range("B17").FormulaLocal = "=INDEX(A5:A15;ENT(ALEA()*(10-1)+1))"
MsgBox (Range("B17").Value)

En fait-je désire seulement choisir un nom au hasard dans ma liste et c'est tout

Si quelqu'un pouvait m'éclairer ça serais vraiment gentil a lui ou (a elle)

Essaie ceci
Dans la colonne A, sur 10 lignes, rentre les lettres a, b, c, d...
En B1, mets cette formule et copie-la sur les 10 lignes (à refaire plusieurs fois pour voir le changement)
=RECHERCHEV(   INDEX($A$1:$A$10;ENT(ALEA()*(10-1)+1));$A:$A;   1;   FAUX)

MPi

Re_salut

Vu que je m'étais mélanger les pinceaux, j'ai refait ça d'une autre manière

J'ai mis mon nombre aléatoire dans  un select case(function hasard) et ma select case associer a ma liste (Range " A5 :A15 ")

Et je l'appelle par une boucle

Le hic c'est qu'après deux instructions je bloque, je n'arrive pas a enchaîné les  6 autres instructions (il doit choisir 8 noms au total)

 

 
Function hasard()
Dim Nombre As Integer
Nombre = Rnd() * ((10 - 1) + 1)
Select Case Nombre
Case 0
 nom = Range("A5").Text
Case 1
nom = Range("A6").Text
Case 2
nom = Range("A7").Text
Case 3
nom = Range("A8").Text
Case 4
nom = Range("A9").Text
Case 5
nom = Range("A10").Text
Case 6
nom = Range("A11").Text
Case 7
nom = Range("A12").Text
Case 8
nom = Range("A13").Text
Case 9
nom = Range("A14").Text
Case 10
nom = Range("A15").Text
End Select
End Function
''''''''''''''''''''''''''''''''''''''''''''''
'''''''''''''''''''''''''''''''''''''''''''''
Dim liste(1 To 8) As String
Randomize

Do
 Call hasard
 Txb8_1.Text = nom
 liste(1) = Txb8_1.Text
 Call hasard
 Txb8_2.Text = nom
 liste(2) = Txb8_2.Text
 Loop While liste(1) = liste(2)

 

Si quelqu'un pouvait m'aider ça serais cool