la liste ne démarre pas à partir de la ère cellule vide

[hidozo]

Bonsoir,

J'ai un code qui me permet de récupérer la liste de photos d'un dossier et de me copier dans une colonne :

Sub RecupNomFichier(ByVal chemin As String, ByRef Tableau As Variant)
Dim fichier As String
Dim Compteur As Integer
Dim LigneCompteur As Integer

' récupère le chemin depuis X1
chemin = Range("x1")
chemin = chemin + "\*.jpg"
Compteur = ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Row

' récupère le nom du premier fichier contenu dedans
fichier = Dir(chemin)

Do While (Len(fichier) > 0)
' a l'aide d'une boucle tous les noms de fichiers contenus dans le répertoire _
sont placés dans la colonne Z
ReDim Preserve Tableau(Compteur)
Tableau(Compteur - 1) = fichier
LigneCompteur = Compteur + 1
ActiveSheet.Range("z" & LigneCompteur).Value = Tableau(Compteur - 1)
Compteur = Compteur + 1
fichier = Dir()
Loop

End Sub

Sub RecupFichierTableau()
Application.ScreenUpdating = False
On Error Resume Next
Dim Tableau() As String
Call RecupNomFichier(chemin, Tableau)
FiltreAlpha
End Sub


Ma question : Comment faire pour que les noms des fichiers se mettent à partir de la ère cellule vide ?

Une solution qui me plairait également serait de sélectionner la page de cellule non vide pour qu'elle puisse se mettre dans une listbox.

Une préférence pour la dernière je pense.

Cordialement

 

[GIBI]

Re : la liste ne démarre pas à partir de la ère cellule vide

bonjour,

Si j'ai compris la demande tu veux trouver la 1ere cellule vide de la colonne Z

NumLig= Selection.Range("z1").End(xlDown).Row +1

gibi

 

[hidozo]

Re : la liste ne démarre pas à partir de la ère cellule vide

Bonjour,

Je reprécise,

Je voudrais que dans ma list box, ne s'affichent que les cellules non vides
Mais j'essaierai quand même ta proposition.
Cordialement



Hidozo