Discussion :

[ubuntu666]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Quentin77170]

Bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Quentin77170]

Remarque...

Pourquoi :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

 Set MyRange = Range(...)

Je pense qu'il vaut mieux faire :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[ubuntu666]

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

[ubuntu666]

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