Copie d'une cellule toutes les x lignes

Résolu
bix -  
Theo.R Messages postés 575 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour, je possède une feuille excel une colonne de 5200 données groupées (c'est à dire que la 1ère est dans la cellule A1 et la dernière dans la cellulle A5200). J'aimerais copier ces données sur une autre feuille mais je voudrais qu'il y ait une donnée toutes les 253 lignes. Comment faire pour ne pas faire ce travail donnée par donnée. Existe-t-il par exemple une option de collage "coller toutes les 253 lignes" ?

Merci d'avance

SB
A voir également:

1 réponse

Réponse 1 / 1
Theo.R Messages postés 575 Date d'inscription   Statut Membre Dernière intervention   31
 
Bonjour,

Vous pouvez dans une colonne juxtaposée calculer les lignes pour lesquelles il faudra copier la valeur, ensuite vous filtrez dessus et copier l'ensemble des lignes concernées.

La formule suivante à mettre en B1 puis à étirer affichera "ok" pour les lignes 1, 254, 507, 760, ... (toutes les 253 lignes en commençant par la ligne 1) :

=SI(MOD(LIGNE(A1)-1;9)=0;"ok";"")
-1
bix
 
Bonjour Théo,

Je te remercie pour ta réponse mais ta formule va seulement me permettre de voir marqué "ok" à chaque cellule où je dois rentrer une valeur. Mais ensuite je vais devoir faire à la main le "copier-coller" à chaque fois que ok est affiché. Soit dans mon cas 5199 fois (je ne prends pas en compte la cellule A1). C'est justement cette étape que je cherche à éviter..
0
Theo.R Messages postés 575 Date d'inscription   Statut Membre Dernière intervention   31
 
"ensuite vous filtrez dessus et copier l'ensemble des lignes concernées."

-> Vous n'avez qu'un copié-collé à faire pour avoir l'ensemble des lignes
0
bix
 
Je te remercie beaucoup j'ai compris la manip. Seule chose, je n'arrive pas à étirer la ligne rapidement jusqu'à la ligne 1310400. Une astuce ?
0
bix
 
Ah si c'est bon en fait.
Merci beaucoup pour ton aide :)

A bientôt
0
Theo.R Messages postés 575 Date d'inscription   Statut Membre Dernière intervention   31
 
Alt+F11, en haut à gauche sélectionner la feuille sur laquelle sont vos formules à étirer, puis coller ce code pour étirer la formule qui est en E1 jusqu'en E1310400 : 
Sub test()
    Range("E1").AutoFill Destination:=Range("E1:E1310400"), Type:=xlFillDefault
    Range("E1:E1310400").Value = Range("A1:A1000").Value 'colle en valeurs pour éviter le recalcul trop long
End Sub

Ensuite, en gardant votre clic dans le texte collé (code vba), vous lancer la macro (flèche verte dans la barre d'action : "Exécuter Sub F5"

Attendre que ça traite toutes les lignes et voilà :-), attention ! par de CtrlZ possible, donc faites sur une copie au cas où ;)
0

Discussions similaires

Copier un lien instagram
alaurore -
LEFEUVRE -

7 réponses
Dimensions L x l x H : comment lire ces infos ?
Miss-Curieuse -
valou -

8 réponses
Retrouver liens copiés sur le téléphone
SAMA -
Peterson -

3 réponses
copie d'un lien dans le navigateur internet
Ulysse Orseau -
diamantnoir -

4 réponses
Afficher toutes les lignes masquées excel
livlarsen -
Mehdiiii -

27 réponses