XL 2019 Macro pour copier des cellules d'une feuille de barèmes

[berru76]

Bonjour
Dans le fichier ci-joint
J'ai une macro rudimentaire qui copie de la feuille de barèmes "Gains 97 128" des cellules vers "97 128 équipes"
Afin de ne pas avoir 36 macros sur cette feuille est il possible d'en faire une qui sélectionne selon le nombre d'équipes
excuser moi si pas trop clair dans mon explication c'est plus facile dans le fichier joint
Si je dois modifier quelque chose si possible me montrer un exemple

Merci pour votre aide

 

[sousou]

Bonjour
j'ai fais un test sur ce que j'ai compris en regardant ce que tu a fais, (macro test)
en l’occurrence une feuille gains par groupe d'équipe, et ici il n'y a que deux feuille gain
A voir

 

[sylvanu]

Bonjour Berru, Sousou,
... un peu à labour. 🙂
Attention update macro car première incomplète.

Un essai en PJ avec :

Sub Worksheet_Activate()
Dim C%, L%
Application.ScreenUpdating = False
With Sheets("Gains 97 128")
    C = Application.Match([BT1], .[1:1], 0)     ' Colonne à utiliser
    [BU7] = .Cells(7, C)                        ' Gains A
    [BU9] = .Cells(7, C + 1)                    ' Gains B
    For L = 11 To 29                            ' Pour chaque ligne
        Cells(L, "BU") = .Cells(L, C)           ' Ecrire les gains A
        Cells(L + 27, "BU") = .Cells(L, C + 1)  ' Ecrire les gains B
    Next L
End With
End Sub

La macro s'exécute automatiquement lorsqu'on sélectionne la feuille 97 à 128 équipes.
NB: Dans votre fichier n'y a t il pas inversion entre Gain A et Gain B car en feuille de données on a Gain A=2400 et gain B=1440 ?

 

[berru76]

Bonjour
j'ai fais un test sur ce que j'ai compris en regardant ce que tu a fais, (macro test)
en l’occurrence une feuille gains par groupe d'équipe, et ici il n'y a que deux feuille gain
A voir

Bonjour
J'ai testé fonctionne sur 128 équipes mais si le chiffre change selon le nombre inscrits reste sur barème 128
Pour les barèmes il me reste 2 feuilles a préparer
Merci pour votre aide

 

[berru76]

Bonjour Berru, Sousou,
... un peu à labour. 🙂
Attention update macro car première incomplète.

Un essai en PJ avec :

Sub Worksheet_Activate()
Dim C%, L%
Application.ScreenUpdating = False
With Sheets("Gains 97 128")
    C = Application.Match([BT1], .[1:1], 0)     ' Colonne à utiliser
    [BU7] = .Cells(7, C)                        ' Gains A
    [BU9] = .Cells(7, C + 1)                    ' Gains B
    For L = 11 To 29                            ' Pour chaque ligne
        Cells(L, "BU") = .Cells(L, C)           ' Ecrire les gains A
        Cells(L + 27, "BU") = .Cells(L, C + 1)  ' Ecrire les gains B
    Next L
End With
End Sub

La macro s'exécute automatiquement lorsqu'on sélectionne la feuille 97 à 128 équipes.
NB: Dans votre fichier n'y a t il pas inversion entre Gain A et Gain B car en feuille de données on a Gain A=2400 et gain B=1440 ?

Bonjour
Pour info
Le concours commence par des poules / les gagnant vont dans le A et les perdants dans le B d'où la différence de gains
J'ai testé très bien pour l'affichage des le choix de la feuille
Cela fonctionne sur le A j'ai essayé en changeant le nombre d'équipes
Mais sur le B les sommes sont les mêmes gains que sur le A
Merci

 

[sylvanu]

Re,
Oups. Votre fichier prête à confusion.

J'ai pensé qu'en CP il y avait les Gains A et en CQ les gains B.
En PJ c'est rectifié. J'utilise CQ 11:29 pour les gains A et CQ 38:56 pour les gains B.
Sorry.

 

[berru76]

Re,
Oups. Votre fichier prête à confusion.
Regarde la pièce jointe 1226441
J'ai pensé qu'en CP il y avait les Gains A et en CQ les gains B.
En PJ c'est rectifié. J'utilise CQ 11:29 pour les gains A et CQ 38:56 pour les gains B.
Sorry.

Bonjour
J'ai testé fonctionne nickel
Excellent
Un grand merci