XL 2016 Lire un range de bas en haut

[Jujube]

Bonjour, j'aimerais être en mesure d'écrire dans mon range en commençant la dernière ligne. Qu'est ce qui ne va pas dans mon code?

For Each c In Range("Range" & (Y)).Cells
For w = 6 To 1 Step -1
If Trim(c.value) = "" Then c.value = Tableau(X, 1)
Next w
Next

Merci beaucoup

 

[soan]

Bonjour Jujube,

vu ton énoncé flou, et le peu d'infos que tu donnes, juste un essai :

Option Explicit

Sub Essai()
  Dim Tableau(), X&, dlg&, lig&: Application.ScreenUpdating = 0
  dlg = Cells(Rows.Count, "Y").End(3).Row
  For lig = dlg To 1 Step -1
    With Cells(lig, "Y")
      If Trim$(.Value) = "" Then .Value = Tableau(X, 1)
    End With
  Next lig
End Sub

questions : est-ce bien la colonne Y ? c'est quoi ton Tableau() ? et X ?

si tu as besoin de plus d'aide, merci de joindre un fichier !
(sans données confidentielles !)

soan

 

[Jujube]

Merci Soan pour ta réponse. Oui j'ai été un peu avare dans ma demande, mais ta réponse me satisfait beaucoup.
Un gros merci.
Bonne fin de journée