Calculateur de scores
Bonjour,
J'ai besoin de faire urgemment un calculateur de scores dont le fonctionnement simplifié est défini dans le fichier joint.
Ayant très peu de temps pour faire ceci, c'est pour cela que je fais appel à vous car je n'ai pas les compétences pour trouver une solution rapide...
Donc, oui, le document est vierge de toute formule formule, c'est pour me dépanner...
Je remercie par avance la/les personnes qui pourront m'aider.
Bonjour Pikipeanut,
je te retourne ton fichier modifié :
* regarde tes 2 premières feuilles ; seul changement effectué : j'ai enlevé toutes les couleurs
* va sur la 3ème feuille ; là aussi, y'a aucune couleur ; fais Ctrl e ➯ travail effectué !
* inutile d'effacer les anciens résultats avant d'exécuter la macro : c'est automatique
* tu peux faire Ctrl e depuis les 2 premières feuilles aussi : résultat identique
Alt F11 pour voir le code VBA, puis revenir sur Excel
si besoin, tu peux demander une adaptation.
merci de me dire si ça te convient.
dhany
Bonjour dhany,
Tout fonctionne parfaitement!
Un grand merci!
Quelle rapidité!
J'intègre ça dans mon fichier.
Tu me sauves la vie!!
Pikipeanut.
Bonjour Pikipeanut,
merci pour ton retour, j'suis ravi d'avoir tu t'aider !
(et de t'avoir sauvé la vie par la même occasion
merci aussi d'avoir passé le sujet en résolu !
je te souhaite bonne continuation !
dhany
Bonjour Pikipeanut,
je te retourne ton fichier modifié :
calculateurscore.xlsm
* regarde tes 2 premières feuilles ; seul changement effectué : j'ai enlevé toutes les couleurs
* va sur la 3ème feuille ; là aussi, y'a aucune couleur ; fais Ctrl e ➯ travail effectué !
* inutile d'effacer les anciens résultats avant d'exécuter la macro : c'est automatique
* tu peux faire Ctrl e depuis les 2 premières feuilles aussi : résultat identique
Alt F11 pour voir le code VBA, puis revenir sur Excel
si besoin, tu peux demander une adaptation.
merci de me dire si ça te convient.
dhany
Re-bonjour,
Après intégration de ta macro (mon tableau est beaucoup plus grand que celui proposé en exemple)
J'ai une erreur en ligne 6 (au niveau du for lig = ... to ... ) : "Dépassement de capacité".
En effet moi j'ai besoin de For lig = 7 To 377...
Je ne savais pas qu'il y avait une capacité maximale lors de l'exécution de macros : sais-tu pourquoi il y a une limite maxi par hasard?
Avec 200 ça marche, mais je ne pense pas que ce soit suffisant pour moi...
Pourquoi cette limite? Je trouve que 200 c'est quand même pas énorme...
1) ce que tu as écrit, c'est pour la 2ème feuille "VALEURS"
voici la 2ème ligne de la macro :
Dim lig As Byte, n As Byte, i As Byte, j As Byte
modifie le début ainsi :
Dim lig%, n As Byte, i As Byte, j As Byte
* le type Byte est pour un nombre entre 0 et 255 inclus
* avec % : c'est idem que lig As Integer : nombre entre -32768 et +32767
si tu penses avoir besoin de plus de +32767 lignes (maint'nant ou plus tard), met & au lieu de %
* avec & : c'est idem que lig As Long : nombre de -2 147 483 648 à +2 147 483 647
2) pour la 3ème feuille "SCORE1"
si ton tableau de résultat doit être plus grand, par exemple jusqu'en ligne 200, y'a 2 adaptations à faire :
a) vers le bas de la sub, il y a :
Worksheets("SCORE1").Select: [C7:H30].ClearContents
à modifier ainsi :
Worksheets("SCORE1").Select: [C7:H200].ClearContents
b) dessous, il y aura aussi :
If lig <= 30 Then Cells(lig, col) = Joueurs(i)
qui doit devenir :
If lig <= 200 Then Cells(lig, col) = Joueurs(i)
à te lire pour savoir si tout est ok dans ton vrai fichier.
dhany