XL 2016 Ecart d'une serie

  • Initiateur de la discussion Initiateur de la discussion robertduval
  • 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 !

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

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

- 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

Réponses
8
Affichages
113
Réponses
17
Affichages
192
Réponses
8
Affichages
52
Retour