Error 424 Objet requis pour un simple copier/coller la cellule au-dessus ?

Bonjour à tous,

Je n'arrive décidément pas à obtenir le résultat que je veux pour quelquechose qui est pourtant simple:

Dans une plage avec des cellules pleines et des vides, j'aimerais simplement lorsque je rencontre une cellule vide copier le texte du dessus.

Le code ci-dessous ne fonctionne pas et renvoie systématiquement à l'erreur d'exécution 424 Objet requis

Code:

---

1 2 3 4 5 6

MyRange = Range("A1", Range("A1").EntireColumn.Find(What:="*", SearchDirection:=xlPrevious)) For Each c In MyRange If c = "" Then c.Value = Cells(c.Row - 1, c.Column).Value End If Next

---

ça bloque à c.Value = Cells(c.Row - 1, c.Column).Value
J'ai essayé les dérivé....
Cells(c.Row, c.Column) = Cells(c.Row - 1, c.Column).Value
c = Cells(c.Row - 1, c.Column).Value
....
Je ne trouve pas la bonne formulation et je ne comprend pas cette histoire d'objet..

Merci pour votre grande aide par avance

Bonjour,

Je vais regarder ça, mais pourquoi n'utilises-tu pas :

Code:

---

C.value = C.Offset(-1,0).value

---

Remarque...

Pourquoi :

Code:

---

MyRange = Range("A1", Range("A1").EntireColumn.Find(What:="*", SearchDirection:=xlPrevious))

---

Je trouve ça un peu compliqué, non ?

En plus, tu n'as pas défini MyRange comme étant une Variable objet, tu aurais dû écrire :

Code:

---

Set MyRange = Range(...)

---

Je pense qu'il vaut mieux faire :

Code:

---

1 2 3 4

DernièreLigne = cells(rows.count,"A").end(xlup).row Set MyRange = Range("A1:A" & DernièreLigne) For each c in MyRange.Cells '...

---

EDIT :
Je n'ai pas essayé, mais ton problème d'objet venait très probablement du fait que MyRange étant une variable et non une variable objet... Tu y affectais une valeur et non un objet, le Set va régler ce problème-là, c'est sûr.

1ère réponse et strike!
ça marche avec cette synthaxe offset:merci:

Oui le "Set" résout aussi le problème
Merci!