copier cellule supérieure si vide

PascalXLD

XLDnaute Barbatruc

Modérateur

• 16 Mai 2009

• #2

Re : copier cellule supérieure si vide

Bonjour

un essai

Code:

Sub toto()
x = Range("B65536").End(xlUp).Row
For y = 2 To x
If Range("A" & y) = "" Then Range("A" & y) = Range("a" & y - 1)
Next

End Sub

 

Vote positif 0 Vote négatif

Cousinhub

XLDnaute Barbatruc

• 16 Mai 2009

• #3

Re : copier cellule supérieure si vide

Bonjour,

Bonjour Pascal

une autre solution :

Code:

Sub Macro1()
With Range("A2:A" & [B65000].End(xlUp).Row)
    .SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "=R[-1]C"
    .Value = .Value
End With
End Sub

 

Vote positif -1 Vote négatif

M

Michel_D

XLDnaute Nouveau

• 16 Mai 2009

• #4

Re : copier cellule supérieure si vide

Bonjour,

Merci pour vos réponses.
La solution de PascalXld fonctionne à merveille.
j'essaie encore la solution de bhbh qui elle ne fonctionne pas (peut-être que je l'ai mal copié dans mon classeur) mais au lieu de copier la valeur de la cellule sup il met =R[-1]C.

Michel

 

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 16 Mai 2009

• #5

Re : copier cellule supérieure si vide

Bonjour à tous,

Tu as mal recopié le code de BH²

Fais un Copier / Coller de ce code et tu verras qu'il fonctionne parfaitement (tu as oublié un =)

A+ à tous

 

Vote positif 0 Vote négatif

Cousinhub

XLDnaute Barbatruc

• 16 Mai 2009

• #6

Re : copier cellule supérieure si vide

Re-,

Coucou, JC

Tu m'enlèves une belle épine du pied, je commençais à croire que je donnais des codes erronés.....

Bonne soirée

 

Vote positif 0 Vote négatif

M

Michel_D

XLDnaute Nouveau

• 16 Mai 2009

• #7

Re : copier cellule supérieure si vide

Ouf, bhbh...cela marche !
Ce serait dommage, qu'à cause d'une petite épine, tu te mettais à boiter
Merci encore et à bientôt

Michel

 

Vote positif 0 Vote négatif

A

Amrane

XLDnaute Junior

• 17 Mai 2009

• #8

Re : copier cellule supérieure si vide

Cher bhbh

Un chapeau pour cette solution rapide, mais malhereusement j'ai pas compris comment sa se passe!!!!

merci, d'avance

bhbh à dit:

Bonjour,

Bonjour Pascal

une autre solution :

Code:

Sub Macro1()
With Range("A2:A" & [B65000].End(xlUp).Row)
    .SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "=R[-1]C"
    .Value = .Value
End With
End Sub

Cliquez pour agrandir...

 

Vote positif 0 Vote négatif

PascalXLD

XLDnaute Barbatruc

Modérateur

• 17 Mai 2009

• #9

Re : copier cellule supérieure si vide

Re

En fait il met dans les cellules vides la formule
=cellule au dessus

 

Vote positif 0 Vote négatif

J

jhwin

XLDnaute Nouveau

• 2 Février 2012

• #10

Re : copier cellule supérieure si vide

Bonsoir

Je reviens 3 années plus tard avec le même souci

J'ai intégré la Macro suivante dans mon fichier :

Sub Macro1()
With Range("A2:A" & [B65000].End(xlUp).Row)
.SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "=R[-1]C"
.Value = .Value
End With
End Sub

Mais lorsque j’exécute la macro cela ne fait que remplir les cellules vides qui ont été remplies manuellement lors de l'enregistrement de la macro mais pas les autres.

Ca doit fonctionner mais comme il s'agit de ma première macro j'ai du faire une boulette

Qui pourrait m'aider svp ?
Merci d'avance

 

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 2 Février 2012

• #11

Re : copier cellule supérieure si vide

Bonjour à tous,
Bienvenue sur XLD

jhwin à dit:

Mais lorsque j’exécute la macro cela ne fait que remplir les cellules vides qui ont été remplies manuellement lors de l'enregistrement de la macro mais pas les autres.

Cliquez pour agrandir...

Ce code ne remplit que les cellules vides avec la formule située à la ligne au dessus.

Que souhaites tu exactement ?

A + à tous

 

Vote positif 0 Vote négatif

J

jhwin

XLDnaute Nouveau

• 2 Février 2012

• #12

Re : copier cellule supérieure si vide

"Ce code ne remplit que les cellules vides avec la formule située à la ligne au dessus. Que souhaites tu exactement ?"

Exactement cela mais j'ai environ 50.000 lignes et environ 1/3 de rempli donc j'aimerai que cela s'execute automatiquement.

Merci bcp d'avoir répondu si vite

 

Vote positif 0 Vote négatif

J

jhwin

XLDnaute Nouveau

• 3 Février 2012

• #13

Re : copier cellule supérieure si vide

Quelqu'un peut il m'aider rapidement ?

 

Vote positif 0 Vote négatif