j’aimerais savoir si c’est possible avec Excel de faire un tableau de 1 à
50 ou le résultat et un cercle et non pas un chiffre ( pour suivre
visuellement les résultat du loto)
les 5 premières cellules de la ligne A sont le résultat du tirage par
exemple 1 15 17 35 47 et j’aimerais que ces no apparaissent à leur place
dans la ligne et sous forme de boule.
La 1er place des boule est décalée de 5 cellules à cause du résultat du
tirage soit le 1 à la position 6 le 15 à la position 20 le 17 à la
position 22 etc.
je suis impatient de votre réponse et je vous présente mes salutations
Cela consiste à rechercher la valeur dans la liste des 5 valeurs tombées, puis renvoyer la chaine vide si la valeur n’est pas trouvée, la lettre o sinon
En colonne BF le bouton tirage mets en place les boules et place une croix sur la colonne BE si le tirage est effectué. (Pour éviter de réintégrer les boules)
Le bouton EFFACER TOUT efface tous les tirages.
Option Explicit
Sub Tirage()
Dim i%, j%, l%, lig% 'Variables
lig = Range("A" & Rows.Count).End(xlUp).Row 'Dernière ligne
For l = 2 To lig 'Boucle sur lignes
If Cells(l, 57).Value = "X" Then l = l + 1 ' Vérifie que la colonne BE a un "X3, si oui , augmente d'une ligne
For j = 2 To 6 'boucle sur les colonnes B à F
For i = 8 To 56 ' boucle sur les N° de boules
If Cells(1, i).Value = Cells(l, j).Value Then 'rechercher le N° dans la ligne
Sheets("Boules").Shapes("Image " & i - 7).Copy 'Si N° trouvé il copie l'image de la boule
Sheets("Relevé").Select
Cells(l, i).Select
ActiveSheet.Paste 'et la colle
End If
Next i
Next j
If Cells(l, 2).Value <> "" Then Cells(l, 57).Value = "X" 'Place un "X" en colonne BE
Next l
Range("A1").Select
End Sub
Sub EffaceImages() 'Efface tous les Images de la feuille RELEVE
Dim x As Shape
For Each x In ActiveSheet.Shapes
If x.Type = msoPicture Then x.Delete
Next x
Columns("BE").ClearContents 'Efface tous les "X"
End Sub
Génial ta proposition, je voulais le faire avec des formules et puis je me suis emmêlé les pinceaux, alors je n’ais pas eu le courage d’aller plus loin.
En tout cas pour cette belle démonstration par VBA.
Pendant que tu y es et si cela ne te dérange pas, peux-tu ajouter une colonne ou serait placé le numéro complémentaire avec les boules de “1 à 10” identifié avec une autre couleur ou un signe distinctif.
Si tu viens à gagner le “Jackpot”, j’en serais heureux pour toi et tes proches. De mon côté, je ne demande rien.
L’argent ne me redonnera pas la santé.
Et comme je ne joue pas aux jeux de hasard, je ne te donnerai aucun numéro. Moi je gagne à chaque tirage, la mise du jeu