Recupérer feuille dans listbox sans la première ligne
Bonjour,
Mon soucis est le suivant:
J'aimerais récupérer les données d'une feuille et la mettre dans ma listbox
Pour cela j'utilise ce code:
ListBox1.List = Range("A2:D" & Cells(Application.Rows.Count, 1).End(xlUp).Row).Value
Ca marche mais si ma feuille est vide, elle me mets les titres de la première ligne de la feuille et j'aimerais ne pas les avoirs
Exemple:
si dans ma feuille
en A1 Nom B1 Prénom
en A2 toto B2 toto
avec le code pas de soucis, ça me marque toto et toto dans ma listbox
Ou j'ai mon problème, c'est si
en A1 Nom B1 Prénom
A2 rien d'écrit B2 rien d'écrit
la sa me marque Nom Prénom
J'aimerais si rien n'ai encore écris dans ma feuille que ma listbox sois vide
J'espère m'être fais bien comprendre
En vous remerciant
Bonjour,
Je me permets de joindre un fichier pour mieux comprendre mon soucis
Comme vous pouvez le constater:
En appuyant sur test1, ma feuille Test1 à des information donc pour mon code pas de soucis, il ne me marque pas la première ligne A1 et B2
En appuyant sur test2, ma feuille Test2 est vide, c'est la mon soucis, il me marque la première ligne A1 et B2
J'aimerais que si ma feuille est vide que ma listbox soit vide (que le code ne marque A1 et B2: la ligne titre)
J'espère m'être mieux fais comprendre
En vous remerciant
Bonjour,
Il suffit de tester la cellule A2. Si non-vide on effectue le transfert vers la ListBox :
If Range("A2").Value <> vbNullString Then ListBox1.List = Range("A2:D" & Cells(Application.Rows.Count, 1).End(xlUp).Row).ValueBonjour pijaku,
ça l'aire tous simple en vous lisant.
Je vous remercie de votre réponse, c'est SUPER
Mille merci