Bonsoir le forum,

j'ouvre une noucelle discussion suite à la participation d'un loto cet après midi.
Voici un code qui me fait un tirage aléatoire pour un loto et qui me m'affiche le dernier N° tiré en AB4, ce que je voudrais ajouter, c'est sur une ligne à partir de AN4, c'est qu'il me recopie les N° tiré et que lorsqu'on réinitialise, le prochain Tirage se mettent lui en dessous , c'est à dire en AN5 etc..
merci de votre aide, je vous jopins le code tirer et le code Initialiser
Jacky
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Sub tirer()
Dim i As Integer, j As Integer
   If [M2].Value = 90 Then Exit Sub
   Do
      i = Int(10 * Rnd): j = Int(10 * Rnd)
   Loop While IsEmpty([B4].Offset(i, j))
   [M2].Value = 1 + [M2].Value
   With [O4].Offset(i, j)
        .Value = [B4].Offset(i, j).Value
        .Font.ColorIndex = 2
        .Interior.ColorIndex = 1
    End With
   [AB4].End(xlUp).Offset(1, 0).Value = [B4].Offset(i, j).Value
   [B4].Offset(i, j) = Empty
End Sub
Sub initialiser()
Dim i As Integer, j As Integer
   Randomize
   Application.Calculation = xlManual
   Range("B4:K12,M2,O4:X12,AB4:AK12").ClearContents
   For i = 0 To 8
      For j = 0 To 9
         [B4].Offset(i, j) = 10 * i + j + 1
      Next j
   Next i
   Application.Calculation = xlAutomatic
End Sub
re,

j'ai oublié de dire que ce code a été fait par Mercatog que je remercie particulièrement car il m'aide depuis le début.
Merci
jacky