Contenu récent par bsalv

quand je vois le capture d'écran du #22, alors ces macros ne sont plus dans le PJ de mon poste #21. Je pense que vous utilisez un mauvais fichier.

le clicque droit et les modifications fait au tableau à gauche sont détectés dans le module de la feuille "Feuil1". Donc si vous clicquez avec la souris sur le tab de cette feuille et vous choississez "programmacode ...", vous les trouvez. le "Worksheet_BeforeRightClick" filtre les...

vous n'avez qu'à modifier le tableau à gauche (ajouter/supprimer des lignes, modifier des chiffres) et puis clicquer les 25 chiffres en haut et à droit vous aurez le résultat. La même macro avec une pause de quelque secondes entre chaque phase. Ce n'est pas une autre histoire.

c'est 2016 (=alors, cela ne fonctionne pas) ou 2021 (je suppose que cela fonctionne, moi, j'ai 365) ??? Les boutons sont inutiles, il faut clicquer avec la souris droite sur une des 25 cellules avec des chiffres de B2:L4

un essai, on clicque avec la souris droite sur un des 25 chiffres et cette cellule change entre vert et orange et le reste s'adapte.

avec une fonction personnalisée

voir dans le module de la feuille Formulaire, mais il faut encore adapter les conditions, parce que je ne le comprenais pas.

je ne comprends pas bien le but et si je lance cette macro, c'est douteux ... une proposition Sub Calculdate2() Dim cl, N, i, aSeq With Selection N = .Cells.Count 'nombre de cellules aSeq = Evaluate(Replace("row(offset(a1,today()-#/2,,#))", "#"...

avec 90% des équipes connu .... Votre fichier, il est combien de MB ?

moi aussi avoir problème. Poubelle plein. Où jeter alors ...

aussi pour le fun Private Sub UserForm_Initialize() Dim i, Temp, s As String, sp Temp = Evaluate("transpose(unique(IFERROR(WEEKDAY(T_Data[date],2)+7,99)))") 'les n° des weekdays + 99 en cas d'erreur For i = 1 To UBound(Temp) If WorksheetFunction.Small(Temp, i) > 7...

Vue le nombre des MFCs dans cette feuille "101" et le nombre des feuilles, je pense que votre fichier est colossale, assez sensible à des erreurs et difficile à gérer/maintenir. Bon, plusieurs modifications dans le module1. une macro pour remettre les terrains à zéro on ne peut plus modifier...

Le match sans "adversaire" ( ces "X") n'a pas un terrain, cette cellule est vide et donc il n'a rien à cacher. 101 equipes = 50 terrains. Si ce n'est pas cela que vous voulez dire, voulez-vous le montrer dans le fichier, parce que je le comprends pas. PS. La macro vérifie les terrains pour les 4...

un essai, mais je ne comprends pas ceci : donc même si un tour n'est pas fini je peut rentrer les résultats des suivant Normallement, on ne sait pas encore leur terrain 😇

un essai avec seulement une feuille. on ajoute les équipes dans le tableau "Tabel1" à gauche. Puis on pousse la flèche "Tour1". La macro crée les matchs et les terrains.Un "BYE", c'est quand une équipe n'a pas d'adversaire. On ajoute "P" ou "G" dans la 3ième colonne et la 5ième colonne s'adapte...