petite macro Excel

[A1:A7].SpecialCells(xlCellTypeBlanks) = "=R[-1]C"
[A1:A7] = [A1:A7].Value

AV

--------------------------------------------------------------------------------
J'utilise la version gratuite de SPAMfighter pour utilisateurs privés.
6359 e-mails spam ont été bloqués jusqu'à maintenant.
Les utilisateurs payant n'ont pas ce message dans leurs e-mails.
Essayez SPAMfighter gratuitement maintenant!

Bonjour,

En B2 à recopier vers le bas :
=SI(ET(A2="";A1="");B1;SI(A2="";A1;A2))

Camille

"tchillos@gmail.com" wrote:

bonjour à tous,

J'ai besoin d'aide avec Excel:
J'ai une colonne avec des valeurs
Exemples:
A1 = 200
A2 = Vide
A3 = Vide
A4 = 100
A5 = Vide
A6 = 300
A7 = Vide

Vous l'avez compris je cherche comment est ce que je peux faire une
fonction qui passe sur toute les cellules de la colonne et a chaque
cellule Vide, il reprenne la valeur du dessus. boucle jusqu'à fin
colonne pour compléter les cellules Vide.??????
??? :-| :-s
Je remercie pour l'aide que vous allez m'apporter,

Tchillos.

Bonjour,

Essaie cette macro :
Sub Remplir()
For Each cellule In Range("A1:A12")
If cellule.Value = "" Then cellule.Value = cellule.Offset(-1, 0).Value
Next cellule
End Sub

Serge


<tchillos@gmail.com> a écrit dans le message de news: 1169729788.436063.76010@v33g2000cwv.googlegroups.com...
bonjour à tous,

J'ai besoin d'aide avec Excel:
J'ai une colonne avec des valeurs
Exemples:
A1 = 200
A2 = Vide
A3 = Vide
A4 = 100
A5 = Vide
A6 = 300
A7 = Vide

Vous l'avez compris je cherche comment est ce que je peux faire une
fonction qui passe sur toute les cellules de la colonne et a chaque
cellule Vide, il reprenne la valeur du dessus. boucle jusqu'à fin
colonne pour compléter les cellules Vide.??????
??? :-| :-s
Je remercie pour l'aide que vous allez m'apporter,

Tchillos.