recopie d'une cellule sous condition

Gérard DEZAMIS

XLDnaute Accro

• 21 Septembre 2005

• #2

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

 

Vote positif 0 Vote négatif

R

rice

Guest

• 21 Septembre 2005

• #3

Merci Gerard
ça marche au poil
Bonne soirée

 

Vote positif 0 Vote négatif

R

rice

Guest

• 21 Septembre 2005

• #4

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+

 

Vote positif 0 Vote négatif

Gérard DEZAMIS

XLDnaute Accro

• 21 Septembre 2005

• #5

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

 

Vote positif 0 Vote négatif

M

Monique

Nous a quitté

Repose en paix

• 21 Septembre 2005

• #6

Bonjour,

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

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

 

Vote positif 0 Vote négatif

R

rice

Guest

• 22 Septembre 2005

• #7

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

 

Vote positif 0 Vote négatif