XL 2016 Transfert de valeur avec lignes et colonnes

julien741 · 19 Janvier 2022

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.

sylvanu · 19 Janvier 2022

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 · 19 Janvier 2022

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

julien741 · 19 Janvier 2022

Bonjour Sylvanu,

C'est ce que je voulais faire.
Merci.
Je vais tester.

XL 2016 Transfert de valeur avec lignes et colonnes

julien741

XLDnaute Nouveau

Pièces jointes

sylvanu

sylvanu

XLDnaute Barbatruc

Pièces jointes

julien741

XLDnaute Nouveau

Discussions similaires