copier/coller autant de fois qu'une celulle l'indique Résolu

Question

bonjours mon problème est tout simple j'ai un tableau et je voudrais simplement que si b2 = 50 par exemple qu'il me copie la valeur 50 50 fois sur les autres ligne c'est a dire c2 d2 etc.
merci d'avance pour votre aide

Mike-31 · Answer

Bonjour,

regarde comme cela voir si c'est ce que tu cherches

Option Explicit

Sub Copier_Coller_X_Fois()
Dim Val, Cop As Integer
        Val = Range("B2").Value
        Range("B2").Copy
    With ActiveSheet
        For Cop = 1 To Val
            .Paste Destination:=.Range("B2").Offset(0, Cop)
        Next Cop
    End With
    Application.CutCopyMode = False
 End Sub

Mike-31 · Answer

Re,

initialement il s'agissait de copier la cellule B2 autant de fois que la valeur contenue, ce qui change tout
regarde ce code pour la plage B2 à B100

Option Explicit

Sub Copier_Coller_X_Fois()
Dim Val, Cop As Integer
For i = 2 To 100
Val = Cells(i, 2).Value
Cells(i, 2).Copy
With ActiveSheet
For Cop = 1 To Val
.Paste Destination:=.Cells(i, 2).Offset(0, Cop)
Next Cop
End With
Next i
Application.CutCopyMode = False
End Sub

Copier/coller autant de fois qu'une celulle l'indique

2 réponses

Votre réponse

Discussions similaires