Recopie cellule vers le bas

@

@+Thierry

Guest

• 17 Août 2004

• #2

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

 

Vote positif 0 Vote négatif

P

Pat5

Guest

• 17 Août 2004

• #3

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)

 

Vote positif 0 Vote négatif

A

andré

Guest

• 17 Août 2004

• #4

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é

 

Vote positif 0 Vote négatif

A

andré

Guest

• 17 Août 2004

• #5

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

Ândré.

 

Vote positif 0 Vote négatif

P

Pat5

Guest

• 17 Août 2004

• #6

Re

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

Pat5 ;o)

 

Vote positif 0 Vote négatif

F

François Hediger

Guest

• 18 Août 2004

• #7

Bonjour Thierry,

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

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

Cordialement

 

Vote positif 0 Vote négatif

F

François Hediger

Guest

• 18 Août 2004

• #8

Merci André pour le coup de main.

A bientôt

 

Vote positif 0 Vote négatif