Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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.
 

Discussions similaires

Réponses
6
Affichages
452
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…