Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2019 Concours/Formules pour affecter un terrain dans le tour suivant selon le résultat

B

berru76

XLDnaute Occasionnel
Bonjour

Si des pros des formules ont une solution a mon problème un grand Merci a vous


Dans le fichier ci-joint je recherche

Feuille Terrains G P

Formule pour affecter le terrain (F4-F33) dans le tour suivant (k4-K33) selon le résultat G/P

Feuille Terrains 13<13

Formule pour affecter le terrain (AH4-AH33) dans le tour suivant (AP4-AP33) selon le résultat 13<13

Merci de votre aide
 

Pièces jointes

  • Terrains G P ou 13 3 .xlsm
    159 KB · Affichages: 8
Trier par date Trier par votes
B

berru76

XLDnaute Occasionnel
Excusez moi
pour infos mon fichier vas jusqu'à 102 équipes il semble qu' au dessus de 96 équipes les macros "attribuer" dans les feuilles ne sont pas reconnues
savez vous si d'où cela peut venir et ce que je dois modifier
Merci
 
Vote positif 0 Vote négatif
C

crocrocro

XLDnaute Impliqué
Bonjour le fil,
@berru76 , vos tableaux n'étant pas très "carrés" (lignes intermédiaires, valeurs X ...), je vous propose de me fournir un fichier réduit où le problème se pose.
Je ne connais pas votre niveau de maitrise du code VBA et donc si vous êtes en mesure de bien comprendre, et donc d'adapter le code pour coller aux irrégularités de vos tableaux.
En pj, avec un peu plus de commentaires et des adaptations mineures (qui ne changent rien à votre problème du post 17).
 

Pièces jointes

  • Essai Terrains 4 tourscrocrocro2.xlsm
    62.6 KB · Affichages: 1
Dernière édition:
Vote positif 0 Vote négatif
B

berru76

XLDnaute Occasionnel
Bonjour
Excusez moi du retard de cette réponse ( problème de santé)
J'ai bien réussis a adapter votre macro dans toutes les pages de mon fichier
Cela fonctionne parfaitement
Un grand merci pour votre aide

Mon niveau VBA est faible
J'ai essayé d'adapter votre macro sur un autre de nos fichier similaire mais ou l'indice est 13 ou <13 La macro semble fonctionner ,place les terrains dans le tours suivant mais m'annonce que l'indice n'appartient pas a la sélection
Si vous pouvez me dire ou est mon erreur

Merci
 

Pièces jointes

  • GG goal 13 .xlsm
    252.8 KB · Affichages: 1
Vote positif 0 Vote négatif
C

crocrocro

XLDnaute Impliqué
bonsoir @berru76 ,
l'erreur vient d'une mauvaise affectation de la variable ColJoue 39 (AM) 38 (AL)
VB: 
Sub AttribuerTerrainsTour(pNoTour As Integer)
Const PREMLIG = 4       ' 1ère ligne des Matchs
Dim ColTour As Integer  ' colonne 34 = AH (pour 1er Tour)
'Dim ColJoue As Integer  ' colonne 39 = AM (Match gagné ou perdu Equipe 2 1er Tour)
Dim ColJoue As Integer  ' colonne 38 = AL (Match gagné ou perdu Equipe 2 1er Tour)
Dim ColJoueSuiv  As Integer ' colonne 44 = AR (Match gagné ou perdu Equipe 1 2ème Tour)
Dim ColTourSuiv  As Integer ' colonne 42 = AP (n° terrain 2ème Tour)
Dim i As Integer, AM As Integer, AP As Integer
Dim DerLig As Long, Derlig2 As Long
Dim TabTerrain()
Dim NoTerrain As String
Dim TabNo()
Dim alea
Dim Fin As Boolean, Trouve As Boolean

    ' En fonction du Tour en paramètre de la macro, on recalcule les colonnes
    ColTour = 34 + 8 * (pNoTour - 2)
    ''''ColJoue = 39 + 8 * (pNoTour - 2)
    ColJoue = 38 + 8 * (pNoTour - 2)
    ColJoueSuiv = 44 + 8 * (pNoTour - 2)
    ColTourSuiv = 42 + 8 * (pNoTour - 2)

EDIT :
Une suggestion pour éviter les erreurs de calcul de colonnes :
Code: 
    ColTour =ActiveSheet.Range("AH").Column + 8 * (pNoTour - 2)
    ColJoue = ActiveSheet.Range("AL").Column+ 8 * (pNoTour - 2)
    ColJoueSuiv = ActiveSheet.Range("AR").Column + 8 * (pNoTour - 2)
    ColTourSuiv = ActiveSheet.Range("AP").Column + 8 * (pNoTour - 2)
 
Dernière édition:
Vote positif 0 Vote négatif
B

berru76

XLDnaute Occasionnel
Bonsoir
j'ai modifier comme indiqué les terrains s'affiche tous même avec un résultat
il semblerait que la valeur 13 <13 ne soit pas prise en compte
Merci de votre aide
 

Pièces jointes

  • GG goal 13 .xlsm
    252.8 KB · Affichages: 0
Vote positif 0 Vote négatif
C

crocrocro

XLDnaute Impliqué
berru76 à dit:
Bonsoir
j'ai modifier comme indiqué les terrains s'affiche tous même avec un résultat
il semblerait que la valeur 13 <13 ne soit pas prise en compte
Merci de votre aide
Cliquez pour agrandir...
Je ne comprends pas votre remarque. Pourriez-vous donner un exemple précis avec au moins une ligne concernée (capture d'écran) avec :
- situation avant
- action effectuée
- situation après

Rappel des règles proposées et donc mises en place :
 
Vote positif 0 Vote négatif
B

berru76

XLDnaute Occasionnel
Re
La macro n'est pas mise en cause dans le fichier G/P fonctionne très bien

Je pense que cela vient de ma formule qui place les équipes dans le tour suivant selon résultats 13/?

"Attribution du terrain seulement si les 2 joueurs ont gagné le tour précédent"
Apres nouveau essai
Si je met 2 dans un coté tout les perdants s'affiche et la macro affiche les terrains des perdants (image 1)
Si je met 13 dans un coté toutes les équipes s'affiche (image 2)
Si je met 13 dans un coté toutes les équipes s'affiche et la macro affiche tout les terrains (image 3)
Si je note13 / 2 cela fonctionne correctement ( image 4 )
D'où mes erreurs
Je vais adapter le fichier 13/? avec la macro
Merci pour votre patience
 

Pièces jointes

  • 4.PNG
    67.6 KB · Affichages: 3
  • 3.PNG
    71 KB · Affichages: 1
  • 2.PNG
    52.2 KB · Affichages: 1
  • 1.PNG
    68.8 KB · Affichages: 3
Vote positif 0 Vote négatif
C

crocrocro

XLDnaute Impliqué
Bonjour,
une suggestion pour avoir des scores cohérents :
compléter vos MFC en ajoutant (ici pou les scores du 2ème tour)
VB: 
=OU(ET(ESTVIDE($AQ4);NON(ESTVIDE($AU4)));ET(ESTVIDE($AU4);NON(ESTVIDE($AQ4))))
ce qui permet de mettre en évidence les scores incomplets (seulement gagnant ou perdant renseigné)
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.

Discussions similaires

B
  • Résolu(e)
XL 2019 Concours / MFC de mise en surbrillance de numéro selon résultats 13 ou <13
Réponses
4
Affichages
174
berru76
B
I
  • Question
XL 2019 Suite à une formule, enlever le doublon dans le résultat avec fonction SI
Réponses
2
Affichages
347
IderMTC
I
X
  • Résolu(e)
Microsoft 365 VBA code qui efface un commentaire écrit dans une cellule, suivant le résultat d'une autre
2
Réponses
18
Affichages
1 K
xxexcel
X
G
  • Résolu(e)
Microsoft 365 Formule avec pour référence le résultat d'une autre formule pour indiquer la colonne de référence
Réponses
1
Affichages
589
JHA
J
S
  • Question
Microsoft 365 Afficher dans un tableau les noms des feuilles d'un fichier excel ainsi que le nombre de lignes renseignées pour chacune d'elle.
Réponses
2
Affichages
558
chris
B
  • Résolu(e)
XL 2016 Pétanques G contre G replacer les équipes selon les résultats
Réponses
10
Affichages
2 K
berru76
B
  • Résolu(e)
XL 2016 Créer un hyperlien pour accéder à une autre feuille selon le résultat d'une formule
Réponses
5
Affichages
997
AlainMarchildon
J
  • Résolu(e)
XL 2016 Appliquez une croix ou reprendre le statut , en allant chercher les infos dans uen autre base selon un code projet.
Réponses
4
Affichages
879
jamy
J
  • Question
Formule trop compliquée pour moi LOL
Réponses
5
Affichages
1 K
Usine à gaz
F
  • Question
derminer la plage contenant des valeurs et en fonction renvoyer un résultat
Réponses
3
Affichages
6 K
CISCO
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…