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

[amkh90]

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.

 

[fanfan38]

Bonjour
Un fichier est TOUJOURS le bienvenu...
Ci joint ma proposition par macro

A+ François

 

[amkh90]

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 ++++++