Rendre les lots aléatoires

Bonsoir

Dans le jeu ci_joint est il possible de faire bouger de place les lots quand on fait une réinitialisation?

Ceci afin de ne pas avoir les lots sous les mêmes numéros

Merci pour votre aide

on a 24 cellules et plus que 24 plages nommées dans la feuille tirage

Sub ReInit()
     For Each nm In ThisWorkbook.Names
          If LCase(nm.RefersTo) Like "=tirage!*" Then s = s & vbLf & nm.Name     'tous les noms de tirage
     Next
     sp = Split(Mid(s, 2), vbLf)

     ptr = 0
     With Sheets("tirage").Range("A5:l5,A7:l7")
          .Interior.Color = RGB(255, 255, 0)     'couleur jaune
          For Each c In .Cells
               r = WorksheetFunction.RandBetween(ptr, UBound(sp))     'tirage aléatoire d'un nom sans doublon
               x = sp(r)
               sp(r) = sp(ptr)
               sp(ptr) = x
               c.Name = x                    'nommer cette cellule
               ptr = ptr + 1
               If ptr > UBound(sp) Then Exit For
          Next
     End With

End Sub

Bonjour Bart,

Merci exactement ce que je voulais.

Bonne fin d'année

Crdlt

Hello,

Joco7915 , il faudrait que tu penses à cacher ta barre de formule (où mettre un nom non explicite pour chaque lot) car avec des noms explicites on voit ce qui est caché derrière chaque cellule.

Ami calmant, J.P

Bonjour jurassic,

Le fichier que j'ai envoyé n'est que le projet ,si je masque tout on ne peut plus accéder au vba

j'ai un code que je mets dans thisworkbook pour passer en grand écran et tout masquer , à l"ouverture du fichier final

Crdlt