XL 2016 Lire un range de bas en haut

Jujube · 24 Octobre 2020

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 · 24 Octobre 2020

Bonjour Jujube,

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

VB:

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

soan · 24 Octobre 2020

Bonjour Jujube,

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

VB:

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 · 24 Octobre 2020

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

XL 2016 Lire un range de bas en haut

Jujube

XLDnaute Nouveau

soan

soan

XLDnaute Barbatruc

Jujube

XLDnaute Nouveau

Discussions similaires

XL 2016 Lire un range de bas en haut

Jujube

XLDnaute Nouveau

soan

XLDnaute Barbatruc

Jujube

XLDnaute Nouveau

Discussions similaires

Privacy & Transparency

Privacy & Transparency