XL 2016 Transfert de valeur avec lignes et colonnes

julien741

XLDnaute Nouveau
Bonjour,

Je recherche a crée un bouton me permettant de renvoyer les valeurs d'un tableau dans un autre sur la même feuille.
Dans le fichier joint je souhaite dans l'onglet "activite SEM" que le bouton réalise quand on entre en B4 le numéro de la semaine/annee (exemple : 2/2022) :
- recherche cette valeur dans la colonne "N"
- et qu'il renvoie les différentes moyenne de D20:L20 dans le tableau Q5:AF56 dans la cellule qui correspond entre la ligne ou l'on trouve la valeur B4 et la colonne de la moyenne.
Exemple :
On rentre 2/2022
Dans la cellule Q6 on retrouve la valeur H20, en S6 on retrouve la valeur D20,.....

Et ceci pour l'ensemble du tableau.

J'ai commencé un code mais je n'arrive pas a décrire complément la formule.

Merci par avance de votre aide.

Cdt.
 

Pièces jointes

  • actsemaine.xlsx
    31.7 KB · Affichages: 3
Solution
Bonjour Julien,
Comme tout est en vrac, guère le choix que de copier cellule par cellule. En PJ, si j'ai bien compris, un essai avec :
VB:
Sub Export()
    Dim L%
    L = Application.Match([B4], [N:N], 0)
    Cells(L, "Q") = [H20]
    Cells(L, "S") = [D20]
    Cells(L, "T") = [F20]
    Cells(L, "U") = [E20]
    Cells(L, "V") = [G20]
    Cells(L, "AE") = [K20]
    Cells(L, "AF") = [L20]
End Sub

sylvanu

XLDnaute Barbatruc
Supporter XLD
Bonjour Julien,
Comme tout est en vrac, guère le choix que de copier cellule par cellule. En PJ, si j'ai bien compris, un essai avec :
VB:
Sub Export()
    Dim L%
    L = Application.Match([B4], [N:N], 0)
    Cells(L, "Q") = [H20]
    Cells(L, "S") = [D20]
    Cells(L, "T") = [F20]
    Cells(L, "U") = [E20]
    Cells(L, "V") = [G20]
    Cells(L, "AE") = [K20]
    Cells(L, "AF") = [L20]
End Sub
 

Pièces jointes

  • actsemaine.xlsm
    36.3 KB · Affichages: 0

Discussions similaires

Réponses
7
Affichages
322

Statistiques des forums

Discussions
312 103
Messages
2 085 319
Membres
102 862
dernier inscrit
Emma35400