Coller x fois des cellules dans un tableau à la suite

Bonjour,

tout nouveau en VBA je n'arrive pas à créer un tableau prévisionnel.

pour chaque mois j'ai un certains nombre

janvier : 6, février : 7 ....Décembre : 12

si j'ai 6 en janvier alors je voudrais coller 6 fois Trois valeur X, Y, Z fixe

janvier a b

puis dans le même tableau à suite les données de février 7 fois B, C, D et ainsi de suite jusque fin décembre.

les données étant sur deux feuilles différentes et le tableau sur une troisième feuille

merci de votre aide !

je vous joins le fichier

Bonjour

je n'ai rien compris.

peux-tu expliquer les données dont tu disposes et le résultat que tu veux avoir en expliquant comment l'obtenir en précisant bien pour chaque donnée la feuille et la cellule ?

Désolée vais essayer d'être plus clair.

dans la feuille prévision de personnel pour chaque mois j'un un nombre de personnes

feuilles prev personnel B3:M3

je veux coller dans le tableau de la feuille prev salaires

X fois(X = B3 pour janvier) la cellule B2 de prev personnel janvier dans la colonne E et les cellules C3 et B3 de la feuille paramètres dans le colonnes F et colonne G

puis à la suite Y fois (C3 pour février) la cellule C2 de prev personnel février dans la colonne E et les cellules C3 et B3 de la feuille paramètres dans le colonnes F et colonne G

les cellules C3 et B3 ne change pas.

et ainsi de suite pour les 12 mois.

merci

Bonjour,

une proposition

Sub aargh()
    Set wsps = Sheets("prev. salaries")
    Set wspp = Sheets("prev personnel")
    Set wsp = Sheets("parametres")
    k = 2
    For Each v In wspp.Range("B3:M3")
        For i = 1 To v.Value
            k = k + 1
            wsps.Cells(k, "E") = v.Offset(-1).Value
            wsps.Cells(k, "F") = wsp.Range("B29")
            wsps.Cells(k, "G") = wsp.Range("C29")
        Next i
    Next v
End Sub

merci beaucoup

cela fonctionne