recopie d'une cellule sous condition

[rice]

Bonjour au forum
J'ai une lise avec des lignes vides
Je souhaite recopier la ligne du dessus autant de fois que la ligne est vide
Si j'ai une succession de lignes vides, je veux le contenu de la derniere ligne pleine
Un petit fichier pour mieux comprendre...
Merci à tous [file name=test_20050921161505.zip size=2468]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/test_20050921161505.zip[/file]

 

[Gérard DEZAMIS]

Bonjour Rice

Essaye avec

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim x As Integer
For x = Range('A1').End(xlDown).Row To 1000 Step 1
If Range('A' & x) = '' Then Range('A' & x).Value = Range('A' & x - 1).Value
Next
End Sub

A placer dans le code de ta feuille

J'ai mis 'to 1000' mais tu peux mettre la valeur qui t'interesse 65536 si tu veux toute la colonne

@+ GD

 

[rice]

Merci Gerard
ça marche au poil
Bonne soirée

 

[rice]

Sorry
juste un petit truc bizarre, la cellule A1 n'est pas recopiée
C'est pas tres grave car je peux la recopier à la main mais j'aime bien comprendre
A+

 

[Gérard DEZAMIS]

Sorry too

Replace please with

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim x As Integer
For x = 1 To 100 Step 1
If Range('A' & x) = '' Then Range('A' & x).Value = Range('A' & x - 1).Value
Next
End Sub

5 iou verre y mouche....
@+ GD

 

[Monique]

Bonjour,

Par formule
En insérant 1 ligne au dessus de ta liste.

En B2 :
=SI(A2='';B1;A2)

 

[rice]

Merci à tous les deux pour ces solutions et bonne journée à tous