Macro pour dupliquer 5, 3 ou 2 fois

Y compris Power BI, Power Query et toute autre question en lien avec Excel
n
norberlingo
Membre fidèle
Membre fidèle
Messages : 453
Appréciation reçue : 1
Inscrit le : 13 décembre 2013
Version d'Excel : 2007

Message par norberlingo » 18 décembre 2019, 16:04

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
Macro Dupliquer plusiurs sois .xlsm
(14.05 Kio) Téléchargé 6 fois
Avatar du membre
GVIALLES
Membre dévoué
Membre dévoué
Messages : 816
Appréciations reçues : 73
Inscrit le : 28 novembre 2017
Version d'Excel : 2016, 360
Téléchargements : Mes applications

Message par GVIALLES » 20 décembre 2019, 15:34

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.
Macro Dupliquer plusiurs sois_GVS .xlsm
(21.27 Kio) Téléchargé 2 fois
Cordialement,

Gérard
Avatar du membre
Jean-Eric
Fanatique d'Excel
Fanatique d'Excel
Messages : 16'399
Appréciations reçues : 671
Inscrit le : 27 août 2012
Version d'Excel : 365 Personnel

Message par Jean-Eric » 20 décembre 2019, 22:25

Bonjour,
Une autre proposition.
Cdlt.
Macro Dupliquer plusiurs sois .xlsm
(20.79 Kio) Téléchargé 2 fois
Jean-Eric

Je ne réponds pas aux M.P. non sollicités.
n
norberlingo
Membre fidèle
Membre fidèle
Messages : 453
Appréciation reçue : 1
Inscrit le : 13 décembre 2013
Version d'Excel : 2007

Message par norberlingo » 22 décembre 2019, 22:00

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
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message