XL 2016 Transfert de valeur avec lignes et colonnes

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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

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
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

- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
7
Affichages
720
Retour