XL 2016 Ecart d'une serie

robertduval

XLDnaute Junior
Bonjour je n'arrive pas à compter l'écart d'un chiffre ou d'un nombre par rapport à la sortie d'un numéro à la roulette, un exemple de ce que je souhaite dans le fichier Excel joint.

Merci
 

Pièces jointes

  • test.xlsx
    10 KB · Affichages: 7

piga25

XLDnaute Barbatruc
Bonjour à tous
Juste en mettant le n° tiré en B1
Code à mettre dans la feuille
VB:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim k&
    k = Range("B1").Value + 3
        If Range("B1").Value = "" Then
            Exit Sub
        Else
        If Not Intersect(Target, Range("B1")) Is Nothing Then
            Range("B" & k).Value = Range("B" & k).Value + 1
        End If
        End If
End Sub
 

Pièces jointes

  • test incrémentation.xlsm
    28 KB · Affichages: 3

Statistiques des forums

Discussions
312 669
Messages
2 090 740
Membres
104 644
dernier inscrit
MOLOKO67