Microsoft 365 copier/coller en fonction d'un résultat

[all019]

Bonjour,
après beaucoup de recherche et n'ayant pas réussi, je vous sollicite
a l'aide dune macro, je souhaite copier la colonne de F5 a F32 de la feuille "cab "dans la feuille "données" en fonction du N° de semaine correspondant
merci

 

[sylvanu]

Bonjour All,
Ayant peu de données à transférer, une simple boucle est suffisante :

Sub Transfert()
    Dim NoSem$, C%, L%
    On Error GoTo Fin                                               ' Utile si NoSem absent
    NoSem = "S" & Val(Right(Sheets("cab").Range("F4"), 2))          ' Construction du No de semaine
    C = Application.Match(NoSem, Sheets("données").Range("1:1"), 0) ' Où trouve t on le NoSem
    For L = 5 To 32                                                 ' Tranfert dse valeurs
        Sheets("données").Cells(L - 3, C) = Sheets("cab").Cells(L, "F")
    Next L
Fin:
End Sub

 

[all019]

Bonjour,
ça fonctionne super bien.
un grand merci a vous