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 🙂
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 🙂