Traitement dans noms et nombre de feuilles variable

Bonjour

Dans le classeur joint, dans la feuille "PARAM", la liste des feuilles à traiter (leur nom est listé à partir de la cellule C3 jusqu'à dernière ligne non vide de la colonne C.

Dans chaque feuille concernée par le traitement souhaité (et uniquement ces feuilles), j'aurai voulu qu'une plage de cellule (fixe), en jaune dans le classeur joint, se remplisse automatiquement de la valeur du nom de l'onglet.

Voir onglet "EXEMPLE" comme exemple pour le résultat attendu si c'est marqué "Exemple" en C3

En VBA vraiment débutant, ça donnerai ça :

Sheets("Exemple").Range("E5:E35,E40:E70,E75:E105,E110:E140,E145:E175,E180:E210,E215:E245,E250:E280,E285:E315,E320:E350,E355:E385,E390:E420") = Sheets("PARAM").Cells(3, 3) 

Sauf que "Exemple" est variable (à la fois comme feuille de destination et comme valeur dans colonne C dans feuille "PARAM")

D'ailleurs il y aurait également une boucle à écrire car le report doit s'effectuer sur 35 lignes, puis 4 lignes vides, à nouveau report sur 35 lignes, etc … mais je n'y arrive pas.

Et ceci sur toutes les feuilles concernées par le listing dans la feuille PARAM

C'est vraiment pas facile de s'expliquer clairement parfois …

Merci d'avance

Bonjour,

voilà une macro à mettre sur un bouton.

Sub exemple()

Dim Param, Wk_s As Worksheet
Set Param = Sheets("PARAM")
derlig = Param.Range("C" & Rows.Count).End(xlUp).Row
    For Each cel In Param.Range("C3:C" & derlig)
        nom_feuil = cel.Value
        Set Wk_s = Sheets(nom_feuil)
        For Each lig In Wk_s.Range("A5:A420")
            If lig <> "" Then
                lig.Offset(0, 4) = Wk_s.Name
            End If
        Next lig
    Next cel
End Sub

A plus !

Bonjour Braters

Merci beaucoup, les premiers tests sont concluants.

C'est parfait.

Encore merci et bonne journée