Déplacer des cellules
Bonjour,
Bonjour
voilà , j'ai une colonne d'environ 200 lignes avec des codes ,
des prix , des produits etc.. qui se présente ainsi:
A1 74782
A2 3561920734057
A3 BEAUX ROUGE CARNETS CA TP LP REFLETS - PAYSAGES DU MONDE 12
A4 TP 20G
A5 22
A6 0
A7 10,2
A8 75928
A9 3561920761206
A10 BEAUX ROUGE CARNETS UNE MOISSON DE CEREALES 12 TP 20G BLOC
A11 2
A12 0
A13 10,2
A14 63362
A15 3561920660363
A16 BEAUX ROUGE TIMBRES MARIANNE MN DM EUROPE 1 TP 20G
A17 34
A18 0
A19 1,1
donc j'aurai voulu une macro pour déplacer les cellules A1 A2
A4 A5 A6 A7 successivement à droite de la cellule A3 ou se trouve le nom du produit ensuite déplacer les
cellules A8 A9 A11 A12 A13 successivement à doite de la cellule A10 ensuite
deplacer A14 A15 A17 A18 A19 successivement à droite de la cellule A16 etc...
et enfin supprimer toutes les lignes vides
je vous en remercie par avance
Bonne journée
Bonjour
voilà , j'ai une colonne d'environ 200 lignes avec des codes ,
des prix , des produits etc.. qui se présente ainsi:
A1 74782
A2 3561920734057
A3 BEAUX ROUGE CARNETS CA TP LP REFLETS - PAYSAGES DU MONDE 12
A4 TP 20G
A5 22
A6 0
A7 10,2
A8 75928
A9 3561920761206
A10 BEAUX ROUGE CARNETS UNE MOISSON DE CEREALES 12 TP 20G BLOC
A11 2
A12 0
A13 10,2
A14 63362
A15 3561920660363
A16 BEAUX ROUGE TIMBRES MARIANNE MN DM EUROPE 1 TP 20G
A17 34
A18 0
A19 1,1
donc j'aurai voulu une macro pour déplacer les cellules A1 A2
A4 A5 A6 A7 successivement à droite de la cellule A3 ou se trouve le nom du produit ensuite déplacer les
cellules A8 A9 A11 A12 A13 successivement à doite de la cellule A10 ensuite
deplacer A14 A15 A17 A18 A19 successivement à droite de la cellule A16 etc...
et enfin supprimer toutes les lignes vides
je vous en remercie par avance
Bonne journée
2 réponses
-
ContributeurBonjour Pactoine2
Sans macro
colonne B mettre cette formule =INDIRECT("A"&LIGNE())
colonne C =INDIRECT("A"&LIGNE()-2)
colonne D =INDIRECT("A"&LIGNE()-1)
colonne E =INDIRECT("A"&LIGNE()+1)
colonne F =INDIRECT("A"&LIGNE()+2)
colonne G =INDIRECT("A"&LIGNE()+3)
colonne H =INDIRECT("A"&LIGNE()+4)
tirer la ligne de formules vers le bas
Sélectionner l'ensemble des lignes avec les formules et faire un copier coller valeurs
Sélectionner les lignes inutiles et supprimer
-
Bonjour
Pas vraiment besoin de macro
http://www.cjoint.com/c/GIvmmrAtwWB
Cdlmnt
