Recherche Aléatoire

Bonjour

SVP, j’ai besoin d’aide dans un Macro que j’ai créé pour ce classeur est maintenant il bloqué est je ne sais pas pourquoi.

Ci-joint le fichier joint.

Merci beaucoup.

Bonsoir,

dans :

Option Explicit

Sub Liste()
' liste moteur de recherche
Dim TF(), LF As Long, TNoms(), NMax As Long, TA() As Long, _
   NDem As Long, N As Long, LR As Long, TR(1 To 80, 1 To 2)
TF = Feuil1.[E5:F11].Value
For LF = 1 To UBound(TF, 1)
   TNoms = ThisWorkbook.Worksheets(TF(LF, 1)).UsedRange.Value
   NMax = UBound(TNoms, 1)
   InitAléa TA, NMax
   NDem = TF(LF, 2): If NDem > NMax Then NDem = NMax
   For N = 1 To NDem
      LR = LR + 1: TR(LR, 1) = LR: TR(LR, 2) = TNoms(TA(N), 1)
      Next N, LF
Feuil1.[A12].Resize(80, 2).Value = TR
End Sub

Private Sub InitAléa(TA() As Long, ByVal Nombre As Long)
Dim P1 As Long, P2 As Long, A As Long
ReDim TA(1 To Nombre)
For P1 = 1 To Nombre: TA(P1) = P1: Next P1
Randomize
For P1 = Nombre To 2 Step -1
  P2 = Int(Rnd * P1) + 1
  A = TA(P2): TA(P2) = TA(P1): TA(P1) = A
  Next P1
End Sub

il vous faut remplacer "Feuil1" par le nouveau nom de la feuille, vous avez du la renommer après avoir écrit le code.

@ bientôt

LouReeD

salut, oui exactement c'est "feuil25" Merci beaucoup chef

Quand on a le nez dans le guidon...

@ bientôt

LouReeD