Mise en forme

[Nicolas]

Bonjour le forum,

J'aimerais savoir comment faire pour recopier le contenu d'une ligne (formules = mise en forme) x fois x ayant pour valeur le contenu de la cellule A2.
En gros j'aimerais que dès que la personne saisisse la valeur de A2 celà recopie la ligne 7 x fois.

Merci

 

[jb59]

Bonjour,

voici un petit bout de code qui pourrais répondre à ta question.

Sub Recopier()
'
Dim intCompteurBoucle As Integer, intValeurSaisie As Integer

Range("A2").Copy
intValeurSaisie = Range("A2")

For intCompteurBoucle = 0 To intValeurSaisie
ActiveCell.PasteSpecial xlPasteAll
ActiveCell.Offset(1, 0).Select
Next
Application.CutCopyMode = False

End Sub

Cette Macro sera lancée manuellement ou placée sur un bouton

Jeannot

 

[Nicolas]

Merci