voici mon problème, je cherche a donner une valeure a une statistique. pour mon fichier, il s'agit d'attribuer un nombre de points prédéterminé au classement d'un tournoi quelconque.
exemple, un joueur fini 1er et doit recevoir 15 points, donc j'ai besoin que lorsque j'inscrit 1, dans la case, il se transforme en 15.
j'ai besoin que 1 soit transformer en 15, 2 en 13, 3 en 10 etc..
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
SORO WANGBOHO
Le mercredi 23 septembre 2020 à 17:41:06 UTC, marco9804 a écrit :
Bonjour, voici mon problème, je cherche a donner une valeure a une statistiqu e. pour mon fichier, il s'agit d'attribuer un nombre de points prédétermin é au classement d'un tournoi quelconque. exemple, un joueur fini 1er et doit recevoir 15 points, donc j'ai besoin que lorsque j'inscrit 1, dans la case, il se transforme en 15. j'ai besoin que 1 soit transformer en 15, 2 en 13, 3 en 10 etc.. est-ce possible?
je ne comprend pas bien la question
Le mercredi 23 septembre 2020 à 17:41:06 UTC, marco9804 a écrit :
Bonjour,
voici mon problème, je cherche a donner une valeure a une statistiqu e. pour mon
fichier, il s'agit d'attribuer un nombre de points prédétermin é au classement
d'un tournoi quelconque.
exemple, un joueur fini 1er et doit recevoir 15 points, donc j'ai besoin que
lorsque j'inscrit 1, dans la case, il se transforme en 15.
j'ai besoin que 1 soit transformer en 15, 2 en 13, 3 en 10 etc..
Le mercredi 23 septembre 2020 à 17:41:06 UTC, marco9804 a écrit :
Bonjour, voici mon problème, je cherche a donner une valeure a une statistiqu e. pour mon fichier, il s'agit d'attribuer un nombre de points prédétermin é au classement d'un tournoi quelconque. exemple, un joueur fini 1er et doit recevoir 15 points, donc j'ai besoin que lorsque j'inscrit 1, dans la case, il se transforme en 15. j'ai besoin que 1 soit transformer en 15, 2 en 13, 3 en 10 etc.. est-ce possible?
je ne comprend pas bien la question
MichD
Le 23/09/20 à 13:41, marco9804 a écrit :
Bonjour, voici mon problème, je cherche a donner une valeure a une statistique. pour mon fichier, il s'agit d'attribuer un nombre de points prédéterminé au classement d'un tournoi quelconque. exemple, un joueur fini 1er et doit recevoir 15 points, donc j'ai besoin que lorsque j'inscrit 1, dans la case, il se transforme en 15. j'ai besoin que 1 soit transformer en 15, 2 en 13, 3 en 10 etc.. est-ce possible?
Bonjour, Voici comment procéder : A ) Fais un clic droit sur l'onglet de ta feuille de calcul et choisis la commande "Visualier le code". B ) Copie le code (VBA) soumis dans la page blanche C ) Tu dois adapter la plage de cellules où tu saisis les nombres 1, 2, 3...Dans mon exemple, la plage est Range("A1:A10"). Modifie seulement l'adresse de la plage de cellule. D ) Maintenant, lorsque tu tapes un chiffre dans une cellule, au moment de la validation, il se transformera selon la valeur que tu lui as attribuée. '------------------------------- Private Sub Worksheet_Change(ByVal Target As Range) Dim Rg As Range, C As Range Set Rg = Intersect(Target, Range("A1:A10")) If Not Rg Is Nothing Then For Each C In Rg Select Case C.Value Case Is = 1 C.Value = 15 Case Is = 2 C.Value = 13 Case Is = 3 C.Value = 10 'En respectant cette syntaxe 'tu peux ajouter autant de 'cas que tu veux. End Select Next End If End Sub '------------------------------- MichD
Le 23/09/20 à 13:41, marco9804 a écrit :
Bonjour,
voici mon problème, je cherche a donner une valeure a une statistique. pour mon
fichier, il s'agit d'attribuer un nombre de points prédéterminé au classement
d'un tournoi quelconque.
exemple, un joueur fini 1er et doit recevoir 15 points, donc j'ai besoin que
lorsque j'inscrit 1, dans la case, il se transforme en 15.
j'ai besoin que 1 soit transformer en 15, 2 en 13, 3 en 10 etc..
est-ce possible?
Bonjour,
Voici comment procéder :
A ) Fais un clic droit sur l'onglet de ta feuille de calcul
et choisis la commande "Visualier le code".
B ) Copie le code (VBA) soumis dans la page blanche
C ) Tu dois adapter la plage de cellules où tu saisis
les nombres 1, 2, 3...Dans mon exemple, la plage est
Range("A1:A10"). Modifie seulement l'adresse de la plage
de cellule.
D ) Maintenant, lorsque tu tapes un chiffre dans une cellule,
au moment de la validation, il se transformera selon la
valeur que tu lui as attribuée.
'-------------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Rg As Range, C As Range
Set Rg = Intersect(Target, Range("A1:A10"))
If Not Rg Is Nothing Then
For Each C In Rg
Select Case C.Value
Case Is = 1
C.Value = 15
Case Is = 2
C.Value = 13
Case Is = 3
C.Value = 10
'En respectant cette syntaxe
'tu peux ajouter autant de
'cas que tu veux.
End Select
Next
End If
End Sub
'-------------------------------
Bonjour, voici mon problème, je cherche a donner une valeure a une statistique. pour mon fichier, il s'agit d'attribuer un nombre de points prédéterminé au classement d'un tournoi quelconque. exemple, un joueur fini 1er et doit recevoir 15 points, donc j'ai besoin que lorsque j'inscrit 1, dans la case, il se transforme en 15. j'ai besoin que 1 soit transformer en 15, 2 en 13, 3 en 10 etc.. est-ce possible?
Bonjour, Voici comment procéder : A ) Fais un clic droit sur l'onglet de ta feuille de calcul et choisis la commande "Visualier le code". B ) Copie le code (VBA) soumis dans la page blanche C ) Tu dois adapter la plage de cellules où tu saisis les nombres 1, 2, 3...Dans mon exemple, la plage est Range("A1:A10"). Modifie seulement l'adresse de la plage de cellule. D ) Maintenant, lorsque tu tapes un chiffre dans une cellule, au moment de la validation, il se transformera selon la valeur que tu lui as attribuée. '------------------------------- Private Sub Worksheet_Change(ByVal Target As Range) Dim Rg As Range, C As Range Set Rg = Intersect(Target, Range("A1:A10")) If Not Rg Is Nothing Then For Each C In Rg Select Case C.Value Case Is = 1 C.Value = 15 Case Is = 2 C.Value = 13 Case Is = 3 C.Value = 10 'En respectant cette syntaxe 'tu peux ajouter autant de 'cas que tu veux. End Select Next End If End Sub '------------------------------- MichD
MichD
Si tu préfères, tu peux utiliser ceci : A ) comme l'autre procédure, tu adaptes la plage de cellules. X = Application.Choose(C.Value, 15, 13,10) , après 10, tu peux ajouter d'autres nombres en ordre décroissant. C'est plus court à écrire que l'autre procédure! '------------------------------ Private Sub Worksheet_Change(ByVal Target As Range) Dim Rg As Range, C As Range, X As Variant Set Rg = Intersect(Target, Range("A1:A10")) Application.EnableEvents = False If Not Rg Is Nothing Then For Each C In Rg X = Application.Choose(C.Value, 15, 13, 10) If IsNumeric(X) Then C.Value = X Else C.Value = "" Err = 0 End If Next End If Application.EnableEvents = True End Sub '------------------------------ MichD
Si tu préfères, tu peux utiliser ceci :
A ) comme l'autre procédure, tu adaptes la plage de cellules.
X = Application.Choose(C.Value, 15, 13,10) , après 10, tu peux
ajouter d'autres nombres en ordre décroissant.
C'est plus court à écrire que l'autre procédure!
'------------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Rg As Range, C As Range, X As Variant
Set Rg = Intersect(Target, Range("A1:A10"))
Application.EnableEvents = False
If Not Rg Is Nothing Then
For Each C In Rg
X = Application.Choose(C.Value, 15, 13, 10)
If IsNumeric(X) Then
C.Value = X
Else
C.Value = ""
Err = 0
End If
Next
End If
Application.EnableEvents = True
End Sub
'------------------------------
Si tu préfères, tu peux utiliser ceci : A ) comme l'autre procédure, tu adaptes la plage de cellules. X = Application.Choose(C.Value, 15, 13,10) , après 10, tu peux ajouter d'autres nombres en ordre décroissant. C'est plus court à écrire que l'autre procédure! '------------------------------ Private Sub Worksheet_Change(ByVal Target As Range) Dim Rg As Range, C As Range, X As Variant Set Rg = Intersect(Target, Range("A1:A10")) Application.EnableEvents = False If Not Rg Is Nothing Then For Each C In Rg X = Application.Choose(C.Value, 15, 13, 10) If IsNumeric(X) Then C.Value = X Else C.Value = "" Err = 0 End If Next End If Application.EnableEvents = True End Sub '------------------------------ MichD
MichD
Dans cette procédure, j'ai omis ceci, voilà la correction '------------------------------- Private Sub Worksheet_Change(ByVal Target As Range) Dim Rg As Range, C As Range Set Rg = Intersect(Target, Range("A1:A10")) If Not Rg Is Nothing Then Application.EnableEvents = False 'omis For Each C In Rg Select Case C.Value Case Is = 1 C.Value = 15 Case Is = 2 C.Value = 13 Case Is = 3 C.Value = 10 'En respectant cette syntaxe 'tu peux ajouter autant de 'cas que tu veux. End Select Next Application.EnableEvents = True 'omis End If End Sub '------------------------------- MichD
Dans cette procédure, j'ai omis ceci, voilà la correction
'-------------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Rg As Range, C As Range
Set Rg = Intersect(Target, Range("A1:A10"))
If Not Rg Is Nothing Then
Application.EnableEvents = False 'omis
For Each C In Rg
Select Case C.Value
Case Is = 1
C.Value = 15
Case Is = 2
C.Value = 13
Case Is = 3
C.Value = 10
'En respectant cette syntaxe
'tu peux ajouter autant de
'cas que tu veux.
End Select
Next
Application.EnableEvents = True 'omis
End If
End Sub
'-------------------------------
Dans cette procédure, j'ai omis ceci, voilà la correction '------------------------------- Private Sub Worksheet_Change(ByVal Target As Range) Dim Rg As Range, C As Range Set Rg = Intersect(Target, Range("A1:A10")) If Not Rg Is Nothing Then Application.EnableEvents = False 'omis For Each C In Rg Select Case C.Value Case Is = 1 C.Value = 15 Case Is = 2 C.Value = 13 Case Is = 3 C.Value = 10 'En respectant cette syntaxe 'tu peux ajouter autant de 'cas que tu veux. End Select Next Application.EnableEvents = True 'omis End If End Sub '------------------------------- MichD
marco9804
Le mercredi 23 Septembre 2020 à 19:41 par marco9804 :
Bonjour, voici mon problème, je cherche a donner une valeure a une statistique. pour mon fichier, il s'agit d'attribuer un nombre de points prédéterminé au classement d'un tournoi quelconque. exemple, un joueur fini 1er et doit recevoir 15 points, donc j'ai besoin que lorsque j'inscrit 1, dans la case, il se transforme en 15. j'ai besoin que 1 soit transformer en 15, 2 en 13, 3 en 10 etc.. est-ce possible?
finalement, je suis incapable de le faire. j'ai encore trop d'incompréhension avec cette facon de faire
Le mercredi 23 Septembre 2020 à 19:41 par marco9804 :
> Bonjour,
>
> voici mon problème, je cherche a donner une valeure a une statistique.
> pour mon fichier, il s'agit d'attribuer un nombre de points
> prédéterminé au classement d'un tournoi quelconque.
>
> exemple, un joueur fini 1er et doit recevoir 15 points, donc j'ai besoin que
> lorsque j'inscrit 1, dans la case, il se transforme en 15.
>
> j'ai besoin que 1 soit transformer en 15, 2 en 13, 3 en 10 etc..
>
>
> est-ce possible?
finalement, je suis incapable de le faire. j'ai encore trop d'incompréhension avec cette facon de faire
Le mercredi 23 Septembre 2020 à 19:41 par marco9804 :
Bonjour, voici mon problème, je cherche a donner une valeure a une statistique. pour mon fichier, il s'agit d'attribuer un nombre de points prédéterminé au classement d'un tournoi quelconque. exemple, un joueur fini 1er et doit recevoir 15 points, donc j'ai besoin que lorsque j'inscrit 1, dans la case, il se transforme en 15. j'ai besoin que 1 soit transformer en 15, 2 en 13, 3 en 10 etc.. est-ce possible?
finalement, je suis incapable de le faire. j'ai encore trop d'incompréhension avec cette facon de faire
marco9804
Le mercredi 23 Septembre 2020 à 19:41 par marco9804 :
Bonjour, voici mon problème, je cherche a donner une valeure a une statistique. pour mon fichier, il s'agit d'attribuer un nombre de points prédéterminé au classement d'un tournoi quelconque. exemple, un joueur fini 1er et doit recevoir 15 points, donc j'ai besoin que lorsque j'inscrit 1, dans la case, il se transforme en 15. j'ai besoin que 1 soit transformer en 15, 2 en 13, 3 en 10 etc.. est-ce possible?
ou si c'est moin compliqué est-ce possible que le pointage associé au classement (1 a 20) s'Affiche dans la case immédiatement a droite ? exemple dans la case A1 j'inscrit 3 et qu'automatiquement 12 S'inscrive dans la case A2?
Le mercredi 23 Septembre 2020 à 19:41 par marco9804 :
> Bonjour,
>
> voici mon problème, je cherche a donner une valeure a une statistique.
> pour mon fichier, il s'agit d'attribuer un nombre de points
> prédéterminé au classement d'un tournoi quelconque.
>
> exemple, un joueur fini 1er et doit recevoir 15 points, donc j'ai besoin que
> lorsque j'inscrit 1, dans la case, il se transforme en 15.
>
> j'ai besoin que 1 soit transformer en 15, 2 en 13, 3 en 10 etc..
>
>
> est-ce possible?
ou si c'est moin compliqué est-ce possible que le pointage associé au classement (1 a 20) s'Affiche dans la case immédiatement a droite ?
exemple dans la case A1 j'inscrit 3 et qu'automatiquement 12 S'inscrive dans la case A2?
Le mercredi 23 Septembre 2020 à 19:41 par marco9804 :
Bonjour, voici mon problème, je cherche a donner une valeure a une statistique. pour mon fichier, il s'agit d'attribuer un nombre de points prédéterminé au classement d'un tournoi quelconque. exemple, un joueur fini 1er et doit recevoir 15 points, donc j'ai besoin que lorsque j'inscrit 1, dans la case, il se transforme en 15. j'ai besoin que 1 soit transformer en 15, 2 en 13, 3 en 10 etc.. est-ce possible?
ou si c'est moin compliqué est-ce possible que le pointage associé au classement (1 a 20) s'Affiche dans la case immédiatement a droite ? exemple dans la case A1 j'inscrit 3 et qu'automatiquement 12 S'inscrive dans la case A2?
MichD
Bonjour, Je t'ai fait un fichier exemple ici : https://www.cjoint.com/c/JIyuaob2MEm MichD
Bonjour,
Je t'ai fait un fichier exemple ici :
https://www.cjoint.com/c/JIyuaob2MEm
Le jeudi 24 septembre 2020 à 22:01:35 UTC+2, MichD a écrit :
Bonjour, Je t'ai fait un fichier exemple ici : https://www.cjoint.com/c/JIyuaob2MEm MichD
Bonsoir, en A1, le nombre inscrit. En B1, ....-a1 Bonne soirée
Bonjour Jacquoille, Le même fichier en version .xls juste pour toi! https://www.cjoint.com/c/JIywgm2nQHv MichD
Michel__D
Bonjour, Le 24/09/2020 à 21:55, marco9804 a écrit :
Le mercredi 23 Septembre 2020 à 19:41 par marco9804 :
Bonjour, voici mon problème, je cherche a donner une valeure a une statistique. pour mon fichier, il s'agit d'attribuer un nombre de points prédéterminé au classement d'un tournoi quelconque. exemple, un joueur fini 1er et doit recevoir 15 points, donc j'ai besoin que lorsque j'inscrit 1, dans la case, il se transforme en 15. j'ai besoin que 1 soit transformer en 15, 2 en 13, 3 en 10 etc.. est-ce possible?
ou si c'est moin compliqué est-ce possible que le pointage associé au classement (1 a 20) s'Affiche dans la case immédiatement a droite ? exemple dans la case A1 j'inscrit 3 et qu'automatiquement 12 S'inscrive dans la case A2?
Tu pourrais utiliser cette formule en A2 : =SI(N(A1);CHOISIR(A1;15;13;12);"")
Bonjour,
Le 24/09/2020 à 21:55, marco9804 a écrit :
Le mercredi 23 Septembre 2020 à 19:41 par marco9804 :
Bonjour,
voici mon problème, je cherche a donner une valeure a une statistique.
pour mon fichier, il s'agit d'attribuer un nombre de points
prédéterminé au classement d'un tournoi quelconque.
exemple, un joueur fini 1er et doit recevoir 15 points, donc j'ai besoin que
lorsque j'inscrit 1, dans la case, il se transforme en 15.
j'ai besoin que 1 soit transformer en 15, 2 en 13, 3 en 10 etc..
est-ce possible?
ou si c'est moin compliqué est-ce possible que le pointage associé au classement
(1 a 20) s'Affiche dans la case immédiatement a droite ?
exemple dans la case A1 j'inscrit 3 et qu'automatiquement 12 S'inscrive dans la
case A2?
Bonjour, Le 24/09/2020 à 21:55, marco9804 a écrit :
Le mercredi 23 Septembre 2020 à 19:41 par marco9804 :
Bonjour, voici mon problème, je cherche a donner une valeure a une statistique. pour mon fichier, il s'agit d'attribuer un nombre de points prédéterminé au classement d'un tournoi quelconque. exemple, un joueur fini 1er et doit recevoir 15 points, donc j'ai besoin que lorsque j'inscrit 1, dans la case, il se transforme en 15. j'ai besoin que 1 soit transformer en 15, 2 en 13, 3 en 10 etc.. est-ce possible?
ou si c'est moin compliqué est-ce possible que le pointage associé au classement (1 a 20) s'Affiche dans la case immédiatement a droite ? exemple dans la case A1 j'inscrit 3 et qu'automatiquement 12 S'inscrive dans la case A2?
Tu pourrais utiliser cette formule en A2 : =SI(N(A1);CHOISIR(A1;15;13;12);"")
