XL 2016 Ecart d'un nombre par rapport au tirage

[robertduval]

Bonjour je n'arrive pas à avoir les écarts avec les différents tirages, je pensais pouvoir le faire avec des formules MAIS non trop nul voir fichier joint Merci

 

[piga25]

Bonjour,
Voir si cela convient:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim x As Integer
Dim k&
Dim KeyCells As Range
'On limite le changement à la cellule K3
Set KeyCells = Range("K3")
    If Not Application.Intersect(KeyCells, Range(Target.Address)) _
           Is Nothing Then
' on augmente toutes les valeurs de 1
    For x = 1 To 37
        Range("R" & x) = Range("R" & x) + 1
    Next x
' on soustrait 1 à la valeur qui vient d'être tirée
k = Range("K3").Value + 1
    Range("R" & k).Value = Range("R" & k).Value - 1
' On augmente de 1 le nombre de tirage
    Range("K16").Value = Range("K16").Value + 1
End If

End Sub

 

[robertduval]

Merci beaucoup j'ai réussit hier soir avec une formule si en me servant du nombre de tirage, mais c'est sur que c'est plus propre avec ça je te remercie, je vais tester ça en plus tout est bien expliqué, merci encore pour ton temps