Recopier X fois un groupe de cellule (paramètrable)
Bonjour a tous
Premier post sur ce forum qui je l'espère m'apportera la solution à mon problème qui est ma fois simple pour certains d'entre vous je pense .
J'utilise excel pour créer un programme d'automate sur une vielle machine que j'exporte en CSV
mais le nombres de copier coller est enorme et pas toujours égale
En resumé j'ai un groupe de cellule de 5 colones sur 3100 Lignes
Que je souhaiterais recopier en dessous X fois ....
Ce nombre de fois est variable en fonction de ma programmation ( entre 187 et 17542 )
Y a t'il quelques chose de dispo en VBA pour faire ce copier coller ?
Chose que je pourrais ajuster moi meme en fonctione de la demande ( le groupe de cellule fera toujours 3100 ligne )
CI joint le fichier excel ....
Les colones a recopier sont BCDEF avec un groupe de 3100 Ligne ....
Dans le cas présent j'aimerais recopier ce qui est en vert 1074 fois en dessous ( comme l'exemple qui est en jaune )
sans avoir mal doigt a coup de Ctrl+V
Merci a vous d'avance ...
pour les 17542 fois je redecouperais par tranche de pilotage ...
C'était principallement pour présenter le contexte :-)
avec une base de 1074 fois le pourrais faire des cycle qui ce répète ...
Bon j'ai continué d'avancer sur le sujet
J'ai donc créé ma macro de base
Selection des lignes
Copie
Recherche de la prochaine cellule vide
Et recopie
CI joint la macro
Sub
Range("B2:F3101").Select
Selection.Copy
ActiveSheet.Range("B:B").End(xlDown)(2).Select
ActiveSheet.Paste
End Sub
Il me reste maintenant a trouver comment la faire boucler X fois pour aller jusqu'a la partie ou je veux
Peut etre via la fonction For next Avec un chiffre que j'aurais paramétré
Il me reste maintenant a trouver comment la faire boucler X fois pour aller jusqu'a la partie ou je veux
Pourquoi ne pas faire un boucle while() ,
Dim i as Integer
while(i<x){
'faire ce que tu veux
i++
}
je dois pouvoir changer ce nombre car il n'est pas toujours egal ...
Par exemple avec un bouton qui me demandera le nombre de repetition ...
la selection de cellule de ma macro est toujours identique Range("B2:F3101").Select
Mais dans certain cas je dois la recopier 200 fois ... dans d'autre 350 ...
Donc a defaut un cellule ou je met le nombre de fois sera sans doute interessant
Bon et bien l'ensemble fonctionne :-)
Pour certain c'était sans doute quelques clics ... pour moi ca a été un peu plus long ...
Donc pour loopé X fois ma macro j'ai bien utiliser la formule "For Next"
Pour le moment je change la valeur dans la macro mais j'ai potassé pour le rajout d'un bouton par la suite ...
Voici donc ma macro final
Dim x As Integer
For x = 0 To 37
Range("B2:F3102").Select
Selection.Copy
ActiveSheet.Range("B:B").End(xlDown)(2).Select
ActiveSheet.Paste
Next x
Ce qui avec le 0 recopie 38 fois mon cycle de 31 Sec pour venir coller au 1200 de ma page :-)
Merci au forum et a la page internet avec laquelle je me suis aidé :-)