Copier contenu de plusieurs cellules en dessous

yumi_b17 Messages postés 57 Statut Membre -  
Raymond PENTIER Messages postés 58226 Date d'inscription   Statut Contributeur Dernière intervention   -
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

2 réponses

  1.
    via55 Messages postés 14393 Date d'inscription   Statut Membre Dernière intervention   2 759
     
    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
    0
  2. Raymond PENTIER Messages postés 58226 Date d'inscription   Statut Contributeur Dernière intervention   17 490
     
    ... ou plus simplement en 
    F2
    saisir la formule =A2
    en 
    F3
    saisir la formule =SI(A3="";F2;A3) et recopier F3 vers le bas.
    0