XL 2016 Fichier loto associatif perso

  • Initiateur de la discussion Initiateur de la discussion Jean""14
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Jean""14

XLDnaute Nouveau
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 .!!!
 

Pièces jointes

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 :
VB:
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.
 

Pièces jointes

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
 
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.
 
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 !
 
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à :
 
Dernière édition:
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Retour