Recopie cellule vers le bas

[François Hediger]

Bonjour,

Je recherche un moyen de recopier vers le bas des cellules excel jusqu'à la prochaine cellule pleine et recommencer avec la cellule d'après jusqu'au bout du fichier.
Exemple:

Situation de départ:

Client

Mr Morand
Cellule vide
Cellule vide
Mme Dupont
Cellule vide
Cellule vide
Cellule vide


Situation d'arrivée souhaitée:

Client

Mr Morand
Mr Morand
Mr Morand
Mme Dupont
Mme Dupont
Mme Dupont
Mme Dupont


Merci beaucoup pour votre aide.

François

 

[@+Thierry]

Bonjour François, le Forum


Voici un petite macro toute bête qui devrait te sortir d'affaire :

Sub CopieSiVide()
Dim Cell As Range
Dim Plage As Range

Set Plage = Range("A2:A100") '<<< A adapter à ta plage de cellule

&nbsp;&nbsp;&nbsp;For Each Cell In Plage
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;If Cell = "" Then
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Cell = Cell.Offset(-1, 0)
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;End If
&nbsp;&nbsp;&nbsp;Next
End Sub

Bonne Fin de Journée
@+Thierry

 

[Pat5]

Bonsoir François Hédiger

Grand plaisir de vous retrouver

Selection.SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "=R[-1]C"

Salut Thierry, toujours en poste, lol ;o)

Pat5 ;o)

 

[andré]

Salut à vous,

Si la macro ne convient pas (cela m 'étonnerait dès qu'elle porte la signature de qui vous savez !), jai une solution par formule, mais avec une colonne supplémentaire.

Mais pourquoi faire compliqué, alors que la principauté est de mise !
Zut, encore une faute de frappe, lisez la simplicité.

Ândré

 

[andré]

Au nom de nous tous, heureux de te revoir (de te relire) Pat !

Ândré.

 

[Pat5]

Re

Merçi Ändré. Idem pour moi. Petits problèmes pour être là souvent mais quand je peux !!!!!!!

Pat5 ;o)

 

[François Hediger]

Bonjour Thierry,

Merci beaucoup pour ces conseils...très utiles.

Bonne journée et à bientôt pour de nouvelles aventures

Cordialement

 

[François Hediger]

Merci André pour le coup de main.

A bientôt