Selection aléatoire de cellule visible

[etpisculrien]

Bjr à tous,

Je ne sais pas cela est possible, mais je cherche une macro qui me permettrait de selectionner de façon aléatoire une cellule dans une plage filtrée par filtre automatique.
En clair, j'ai fait un filtre pour les cellules comprises entre 5 et 20 (colonne B). Ma colonne A contient les noms.
Le but est que parmis mes lignes visibles, une selection aléatoire soit faite et me renvoie le nom dans un textbox.

Si un petit geni a une idée, je suis preneur ;-)

Merci d'avance

 

[etpisculrien]

Re : Selection aléatoire de cellule visible

Oh mon dieux, j'ai trouvé un problème sans solution VBA!!!!
MDR

 

[kjin]

Re : Selection aléatoire de cellule visible

Bonsoir,
Tu as surtout trouvé des bénévoles qui pensent qu'1/2h...c'est 1/2h
Parole d'épicurien
A+
kjin

 

[KenDev]

Re : Selection aléatoire de cellule visible

Bonjour,

Sans me réclamer de plus d'un des deux qualificatifs du premier post, une solution à lancer depuis la feuille contenant la liste filtrée :

Dans un module standard:

Option Explicit

Public v As Variant

Sub AleaFiltre()
Dim x As Long, cpt1 As Long, i As Long, cpt2 As Long
    x = Cells(Rows.Count, 2).End(xlUp).Row
    cpt1 = 0
    For i = 2 To x
        If Not Intersect(Cells(i, 2), Columns(2).SpecialCells(xlCellTypeVisible)) Is Nothing Then cpt1 = cpt1 + 1
    Next i
    Randomize
    x = Int(cpt1 * Rnd()) + 1
    i = 2
    cpt2 = 0
    Do While cpt2 <> x
        If Not Intersect(Cells(i, 2), Columns(2).SpecialCells(xlCellTypeVisible)) Is Nothing Then cpt2 = cpt2 + 1
        i = i + 1
    Loop
    v = Cells(i - 1, 1)
    Load UserForm1
    UserForm1.Show
End Sub

Dans Userform1 contenant textbox1:

Option Explicit

Private Sub UserForm_Initialize()
    TextBox1.Value = v
End Sub

Cordialement

KD

ps: pourrait etre assez long si la liste est très longue.

 

[etpisculrien]

Re : Selection aléatoire de cellule visible

Heu sisi, j'insiste!
KenDev, t'es un GENIE!!! et insomniaque de surcroit...
(dsl, j'ai oublié le décalage horaire :-s)

Merci à tous pour votre aide ;-)

 

[Pierrot93]

Re : Selection aléatoire de cellule visible

Bonjour à tous,

une autre approche, si j'ai bien compris, suppose que la ligne 1 comporte des titres de colonnes...

Option Explicit
Sub test()
Dim p As Range
Randomize
Set p = Range("A2", Range("A65536").End(xlUp)).SpecialCells(xlCellTypeVisible)
MsgBox p(Int(p.Count * Rnd) + 1).Value
End Sub

bonne journée
@+

 

[etpisculrien]

Re : Selection aléatoire de cellule visible

slt Pierrot93,

L'idée me parraissait bonne et l'execution plus rapide...
Malheureusement, cela me donne des réponses sur les cellules cachées :-s
Bizarre...

 

[Pierrot93]

Re : Selection aléatoire de cellule visible

Re,

slt Pierrot93,

L'idée me parraissait bonne et l'execution plus rapide...
Malheureusement, cela me donne des réponses sur les cellules cachées :-s
Bizarre...

Pas ce souci là chez moi sous 2003.... A voir selon ton modèle de donnée....

 

[etpisculrien]

Re : Selection aléatoire de cellule visible

un simple tableau de 2 colonnes avec un filtre sur la 2ieme colonne pour les valeurs entre 5 et 20.
Là, je pige pas...

 

[Pierrot93]

Re : Selection aléatoire de cellule visible

Re

mets un tout petit fichier que je puisse tester....

 

[etpisculrien]

Re : Selection aléatoire de cellule visible

Ok c parti Pierrot

 

[Pierrot93]

Re : Selection aléatoire de cellule visible

Re,

oui, ne fonctionne as avec tes données, avais du prendre des données non significatives.... Désolé...

 

[Pierrot93]

Re : Selection aléatoire de cellule visible

Re,

Bon, avec une ligne supplémentaire ....

Option Explicit
Sub test()
Dim p As Range, x As Integer
Randomize
Set p = Range("A2", Range("A65536").End(xlUp)).SpecialCells(xlCellTypeVisible)
x = Int(p.Areas.Count * Rnd) + 1
MsgBox p.Areas(x).Item(Int(p.Areas(x).Count * Rnd) + 1)
End Sub

 

[etpisculrien]

Re : Selection aléatoire de cellule visible

Alors là, je dis chapeau MONSIEUR!
Merci pour ton aide (toujours aussi efficace...)