XL 2016 [VBA] - Casse-tête copier/coller

amkh90

XLDnaute Nouveau
Bonjour à tous,
Un petit casse-tête à résoudre. Merci à tous pour votre aide ! : D

- Le fichier :

Au départ :

Colonne A
Cellule 1 ="0123"
Cellule 2 ="0569"
Cellule 3 ="0456"
Cellule 4 =""
Cellule 5 =""
Cellule 6 =""
Cellule 7 =""
Cellule 8 ="0989"
Cellule 9 =""
...
Cellule n


Résultat souhaité après exécution du script :

Cellule 1 ="0123"
Cellule 2 ="0569"
Cellule 3 ="0456"
Cellule 4 ="0123"
Cellule 5 ="0569"
Cellule 6 ="0456"
Cellule 7 =""
Cellule 8 ="0989"
Cellule 9 ="0989"
...
Cellule n

[II] - Le script :

Le script doit fonctionner comme suit :
(1) Identifier le premier bloc de cellules non vides, ici Cellule 1 à 3.
(2) Copier le contenu de ces cellules plus bas, ici Cellule 4 à 6.

puis passer au 2ème bloc :
(1) Identifier le deuxième bloc de cellules non vides, ici Cellule 8.
(2) Copier le contenu de ces cellules plus bas, ici Cellule 9.

etc... jusqu'au Nième Bloc de la Colonne A, tout en gardant les lignes vides entre deux blocs s'il y en a, ici Cellule 7 pour le 2ème Bloc.
 

amkh90

XLDnaute Nouveau
Merci Beaucoup François !
C'est exactement ça. J'ai un peu de mal avec les variables... ton code rends les choses beaucoup plus clair !

A ++++++
 

Discussions similaires


Haut Bas