copier coler x fois....

[grisland]

bonjours a tous...



je dois coller (A3) en (B35) x fois(x= B3) ( x maxi 1000)...
âpres avoir coller A3 je coller A4 jusqu’à' A29....

et je passe a la colonne C3 ... la première valeur de de C3 doit doit être collée a la suite de la dernière valeur de A29
en la colone C ... ainsi de suite jusqu’à a M 12....

J'ai joint un tableau pour être plus claire sur la demande....

j ai déjà effectuer le travail avec des teste LOGIQUE mais excel rame trop Il lui faut de du VBA....

par avance merci pour votre aide...

ps : si possible un bouton pour faire fonctionne la macro...

 

[Robert]

Re : copier coler x fois....

Bonsoir Grisland et bienvenu, bonsoir le fourm,

Peut-être comme ça :

Sub Macro1()
Dim cel As Range 'déclare la variable cel (CELlule)
Dim col As Byte 'déclare la variable col (COLonne)
Dim dl As Long 'déclare la variable dl (Dernière Ligne)

For col = 2 To 13 'boucle 1 : sur les colonnes 2 à 13
    'définit la dernière ligne dl (si col=2, dl =35, sinon, la ligne suivante la dernière ligné éditée de la colonne précédente)
    dl = IIf(col = 2, 35, Cells(Application.Rows.Count, col - 1).End(xlUp).Row + 1)
    For Each cel In Range("A3:A29") 'boucle 2 : sur toutes les cellules de la plage A3:A29
        If cel.Offset(0, col - 1) <> 0 Then 'condition : si la cellule de la colonne col n'est pas vide
            cel.Copy 'copie la cellule
            'la colle dans la cellule (ligne dl, colonne col) agrandie d'autant de lignes que la valeur de la colonne col
            Cells(dl, col).Resize(cel.Offset(0, col - 1).Value).PasteSpecial
            dl = dl + cel.Offset(0, col - 1).Value 'redéfinit la dernière ligne dl
        End If 'fin de la colndition
    Next cel 'prochaine cellule de la boucle 2
Next col 'prochaine colonne de la boucle 1
End Sub

 

[Papou-net]

Re : copier coler x fois....

Bonsoir grisland, et bienvenue,
Bonsoir Robert,
Bonsoir le forum,

Comme je l'ai fait, je le transmets. Solution équivalente à celle de Robert, je n'ai pas testé laquelle est la plus rapide (mais je doute que ce soit la mienne).

Cordialement.

 

[grisland]

Re : copier coler x fois....

Bonsoir grisland, et bienvenue,
Bonsoir Robert,
Bonsoir le forum,

Comme je l'ai fait, je le transmets. Solution équivalente à celle de Robert, je n'ai pas testé laquelle est la plus rapide (mais je doute que ce soit la mienne).

Cordialement.

mille merci a vous deux .... sa fonctionne

ps: géniale le bouton.....

 

[grisland]

Re : copier coler x fois....

c'est encore moi ......


le tableau fonctionne bien ..... mais....
on colle la cellule A1 N fois.....

je voudrais non plus A1..... mais A1 , A2 , et A3

un tableau ci joint sur la feuille1 il colle N fois A1....
sur la feuille2 c'est ce que je voudrais....

par avance merci pour votre aide....