Copier/coller autant de fois qu'une celulle l'indique
Résolu
Monsieur_Malik
Messages postés
17
Date d'inscription
Statut
Membre
Dernière intervention
-
Monsieur_Malik Messages postés 17 Date d'inscription Statut Membre Dernière intervention -
Monsieur_Malik Messages postés 17 Date d'inscription Statut Membre Dernière intervention -
A voir également:
- Copier/coller autant de fois qu'une celulle l'indique
- Historique copier coller - Guide
- Copier coller pdf - Guide
- Copier-coller - Accueil - Informatique
- Style d'écriture a copier coller - Guide
- Comment copier une vidéo youtube - Guide
2 réponses
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
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
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
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
Merci