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

sousou à dit:

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

Cliquez pour agrandir...

sylvanu à dit:

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

Un essai en PJ avec :

VB:

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 ?

Cliquez pour agrandir...

sylvanu à dit:

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.

Cliquez pour agrandir...