Bonsoir a tous
pouvez vous m'aider sur cette marco
elle marche bien je veux la limité a 2 colonnes
la elle est sur 6 colonnes
je ne comprend rien au marco
Option Explicit
Private Sub Bouton1_Clic()
' source Exelabo - Remerciemets également à camarchepas Misange Efge
Dim tblo, i As Byte
tblo = Sheets("DONNEES").Range("A2:G5").Value
For i = 10 To 42 Step 4
Cells(i, 8).Resize(UBound(tblo, 1), UBound(tblo, 2)) = tblo
Next i
MsgBox "Fin du traitement"
End Sub
merci d'avance
cordialement filtre69
pouvez vous m'aider sur cette marco
elle marche bien je veux la limité a 2 colonnes
la elle est sur 6 colonnes
je ne comprend rien au marco
Option Explicit
Private Sub Bouton1_Clic()
' source Exelabo - Remerciemets également à camarchepas Misange Efge
Dim tblo, i As Byte
tblo = Sheets("DONNEES").Range("A2:G5").Value
For i = 10 To 42 Step 4
Cells(i, 8).Resize(UBound(tblo, 1), UBound(tblo, 2)) = tblo
Next i
MsgBox "Fin du traitement"
End Sub
merci d'avance
cordialement filtre69