Utilisation de la boucle For..to...next..

[herkules]

Bonjour tout le monde 😉 ,

Je voudrais savoir comment copier-coller la mise d'une plage de cellule ("J13:J14") et le faire autant de fois que la valeur indiquer en "J11" - 1.
Exemple si J11 = 2 alors je copie-colle la mise en page de "J13 : K14" soit je copie colle 1fois
si J11 = 3 alors je copie-colle la mise en page de "J13 : L14" soit je copie colle 2foisJe pensais utiliser une boucle "for next".

Voici mon code:

Dim k%, l%
l = CInt(Range("J11")) - 1

If l > 0 Then
For k = 1 To l
Range("J13:J14").Select
Selection.AutoFill Destination:=Range(Cells(13, k + 9), Cells(14, k + 10)), Type:=xlFillDefault
Next
End If

Cordialement 🙂

 

[Victor21]

Re : Utilisation de la boucle For..to...next..

Bonjour, herkules, et bienvenue sur XLD.

Vous augmenterez vos chances d'obtenir une réponse en joignant un fichier Excel, et en y indiquant ce que vous ne parvenez pas à réaliser.