Vous utilisez un navigateur obsolète. Il se peut que ce site ou d'autres sites Web ne s'affichent pas correctement. Vous devez le mettre à jour ou utiliser un navigateur alternatif.
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 !
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.
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
- 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