copier contenu de plusieurs cellules en dessous Fermé

Question

Bonjour, 


(je simplifie pour l'exemple) J'ai 3 lignes, chacune à une ligne d'intervalle. Je souhaiterais savoir s'il serait possible de faire en sorte que le contenu de chaque ligne se copie en dessous, sans devoir le faire manuellement bien sûr.

merci ;) 

 https://www.cjoint.com/c/EAsswExfNuh

Configuration: Windows / Firefox 35.0

via55 · Answer

Bonsoir

Si toutes les données sont en ligne paire et à recopier sur la ligne impaire en dessous tu peux le faire par macro de ce style, à adapter à tes besoins :

Sub copie()
For n=2 to 100 step 2 'boucle sur les lignes paires de 2 à 100
Rows(n & ":" & n).Select ' selectionne puis copie la ligne
Selection.Copy
 Rows(n+1 & ":" & n+1).Select ' selectionne la ligne en dessous et colle la ligne copiée
 ActiveSheet.Paste
End sub

ALT + F11 pour ouvrir l'editeur VBA pusi Onglet Insertion  Module pusi copier coller macro dans page blanche et fermer editeur

Pour lancer la macro Onglet Developpeur Macros la selectionner et Executer

Cdlmnt

Raymond PENTIER · Answer

... ou plus simplement en F2 saisir la formule =A2
en F3 saisir la formule =SI(A3="";F2;A3) et recopier F3 vers le bas.

Copier contenu de plusieurs cellules en dessous

2 réponses

Discussions similaires