XL 2016 Fichier loto associatif perso

[Jean""14]

Bonjour
Dans le fichier joint, je cherche une formule vba qui supprimerai les numéros déja sortis à chaque tirage.
90 numéros au 1er tirage, 89 au 2eme et ainsi de suite pour supprimer les doublons.
Par la fonction Index Equiv les numéros sortis sont envoyés dans la colonne BB et classés dans la colonne BA en correspondance à la colonne AZ.
Ne connaissant pas l'anglais, j'ai un peut de mal à gérer les formules VBA.
Quelqu'un peut il m'aider.
Merci d'avance.
Excusez moi pour l'oubli du Bonjour dans ma première discussion .!!!

 

[Dranreb]

Bonjour.
Vous tenez vraiment à les tirer un par un ?

 

[Dranreb]

En glissant/déplaçant le module de classe ListeAléat du classeur joint vers le projet VBA de votre classeur, cette procédure vous fait des tirages un par un sans doublon :

Option Explicit
Sub Tirage()
   Dim LAt As New ListeAléat, TC(), L As Long, LR As Long, N As Long
   TC = ActiveSheet.[BB2].Resize(90).Value
   Randomize
   LAt.Init 90
   For L = 1 To 90
      If VarType(TC(L, 1)) = vbDouble Then
         LAt.Supprimer TC(L, 1)
      ElseIf LR = 0 Then
         LR = L
         End If
      Next L
   N = LAt.Aléat
   ActiveSheet.[AX5].Value = N
   TC(LR, 1) = N
   ActiveSheet.[BB2].Resize(90).Value = TC
   End Sub

Remarque: les méthodes et propriétés de l'objet ListeAléat sont très documentées dans le module de classe ListeAléat.

 

[Jean""14]

Bonjour,
Merci d'avoir travaillé pour moi
Mes compétences dans Excel sont insuffisantes pour réaliser une telle macro.
J'ai suivi votre instruction. Il y a un petit problème qui nuit au fonctionnement (Pièce jointe).
Merci encore pour cette macro trop compliquée pour moi .
Je vais faire un effort pour être supporter bronze malgré mes 442.00€ de retraite mensuels

 

[Jean""14]

bonjour
J'ai oublié de poster la pièce jointe
Merci

 

[Dranreb]

Vous n'avez probablement simplement pas installé mon module de classe ListeAléat qui définit ce type d'objet. Rappel : Il suffit, dans l'explorateur de projets, de glisser/déplacer son nom avec la souris du VBAProject du ListeAléat.xlsm vers celui de votre classeur.

 

[Jean""14]

Pouvez vous me donner plus de détails pour la manoeuvre à exécuter?
Je n'ai pas compris !!!
Excusez moi d'être un peu nul
Cordialement

 

[Dranreb]

Dans l'explorateur de projet, ouvrez la rubrique Modules de classe du VBAProject du ListeAléat.xlsm. Vous y trouvez un ListeAléat. Vous mettez le curseur sur ce nom et vous enfoncez le bouton gauche de la souris, vous déplacez le curseur vers le VBAProject de votre classeur, enfin vous relâchez le bouton de la souris, et hop vous en avez une copie dedans !

 

[Modeste geedee]

Bonsour®

Bonjour
Dans le fichier joint, je cherche une formule vba qui supprimerai les numéros déja sortis à chaque tirage.
90 numéros au 1er tirage, 89 au 2eme et ainsi de suite pour supprimer les doublons.
Par la fonction Index Equiv les numéros sortis sont envoyés dans la colonne BB et classés dans la colonne BA en correspondance à la colonne AZ.
Ne connaissant pas l'anglais, j'ai un peut de mal à gérer les formules VBA.
Quelqu'un peut il m'aider.
Merci d'avance.
Excusez moi pour l'oubli du Bonjour dans ma première discussion .!!!

on ne change pas de fil pour reposer la même question
une proposition avait été faite là :

https://www.excel-downloads.com/thr...ichier-de-ma-creation.20042493/#post-20306348

https://www.excel-downloads.com/threads/resolu-une-roulette-de-nombres.20022797/#post-20170603