Copier contenu de plusieurs cellules en dessous

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

A voir également:

2 réponses

Réponse 1 / 2
via55 Messages postés 14512 Date d'inscription   Statut Membre Dernière intervention   2 746
 
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
Réponse 2 / 2
Raymond PENTIER Messages postés 58987 Date d'inscription   Statut Contributeur Dernière intervention   17 350
 
... 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

Discussions similaires

dessin avec symbole clavier
JSS -
Adraen -

79 réponses
Excel : colorer une cellule sous condition d'une autre ?
KAKEPATHEL -
Pascal -

15 réponses
Changer la couleur d'une cellule en fonction d'une autre cellule
Emilie9457 -
Mike-31 -

3 réponses