-VBA Boucle-Variable copcoll cells

Bonjour à tous,

Un petit post sur un problème qui, je pense, est assez simple à résoudre.

En colonne A, se trouve un certain nombre de cellules remplies et d'autres vides.

Je souhaite faire un script VBA sous Excel pour que les cellules remplies se copie/colle dans les cellules vides suivantes.

Illustration ci-dessous.

Après plusieurs tentatives, je n'y arrive pas du tout ! help

Merci beaucoup : )

Exemple :

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

Bonjour,

Une piste à adapter, valeurs en colonne A :

Sub Test()

    Dim Plage As Range
    Dim I As Long

    With ActiveSheet: Set Plage = .Range(.Cells(1, 1), .Cells(.Rows.Count, 1).End(xlUp)): End With

    Application.ScreenUpdating = False

    For I = Plage.Count To 1 Step -1

        If Plage(I) = "" Then Plage(I).EntireRow.Delete

    Next I

    Application.ScreenUpdating = True

End Sub

Merci pour ton retour (très astucieux) !

Malheureusement je ne peux procéder de la sorte... pas de suppression de ligne possible/pas possibilité de bouger les lignes.

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, ici Cellule 7.

Il faudrait je pense une Boucle avec une variable pour identifier le bloc à copier, et une autre pour identifier où copier le Bloc.

Je n'y arrive malheureusement pas , je me perds ....

De nouveau merci beaucoup ! ; )

Je suis maintenant en vacances et je n’ai pas de PC pour faire des tests mais pour qu’un intervenant puisse t’aider, je te conseille de poster un fichier avec avant et après afin de ne pas perdre de temps en Ping Pong inutile !