Macro pour dupliquer 5, 3 ou 2 fois

Bonjour

Un fichier dans lequel je cherche une macro qui me permette de dupliquer soit 5 fois , 3 fois ou 2 fois le contenu de la cellule.....

Merci pour cette nouvelle aide

Berlingo

Bonjour Norbert

Une proposition de code :

Sub DupliquerNom()
    'On constitue une liste des occurrences
    Const cOccurrences = "4,9,13,18,22"
    Dim oCell As Range
    Dim aOccurrences() As String
    Dim sNom As String, i As Integer

    'On transforme la liste en tableau
    aOccurrences = Split(cOccurrences, ",")

    'On affecte la cellule à copier
    Set oCell = ActiveSheet.Cells(10, 5)
    sNom = oCell.Value

    'On boucle sur les occurences du tableau
    For i = 0 To UBound(aOccurrences)
        'On utilise le déplacement à partir de la cellule initiale
        oCell.Offset(CInt(aOccurrences(i))).Value = sNom
    Next
End Sub

Je joins mon classeur de test.

Bonjour,

Une autre proposition.

Cdlt.

Bonjour le Forum

Un merci tardif pour les réponses, désolé

J'ai testé celle de Jean Eric qui fonctionne parfaitement, pour celle de G , seule le dupliquer de 5 fonctionne....

Merci encore

No

Rechercher des sujets similaires à "macro dupliquer fois"