TCD dans listbox

Résolu
Co_nexion Messages postés 328 Date d'inscription   Statut Membre Dernière intervention   -  
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,

Jusqu'à maintenant tous mes "problèmes" ont trouvé solutions grâce à vous j'espère qu'il en sera de même avec celui-ci :)

J'ai cherché à de moults endroits pour trouver une solution mais je vous avoue que je coince...

Voici mon problème : je souhaite afficher un tcd dans une listbox mais avec certaines conditions :
- En entete la ligne 4
- En pied de page la ligne totale (actuellement 19 mais susceptible de bouger à cause des rajouts)
- que l'entete et le pied de page ne bouge jamais (alors
- ce tcd sera alimenté avec un userform (voir fichier ci-dessous) donc que la listbox se mettent à jour avec (ligne surtout et colonne [si possible])
- Des lignes "(vides)" apparaissent dans le tcd et je souhaiterais qu'elles n'apparaissent pas dans la listbox

Voici le fichier : https://www.cjoint.com/?BDfratMgU0C

Vos lumières seraient un soulagement car je me prends la tête depuis plusieurs jours sur ce problème. Merci par avance

Bien à vous

2 réponses

f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 
Bonjour,

Remplissage listbox (avec ligne vide pour l'instant)

https://www.cjoint.com/?BDfst3Jd4yU
0
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 
Re,

sans ligne et colonne vide

https://www.cjoint.com/?BDftcUXDr3H
0
Co_nexion Messages postés 328 Date d'inscription   Statut Membre Dernière intervention  
 
t'es un chef f894009 :)
Merci pour ce tableau qui fonctionne parfaitement !
J'ai une petite dernière question : quand tu es dans le userform heure sup, la combobox 'nom de la personne' a une molette qui va beaucoup plus loin que le dernier nom (du au fait que je laisse de l'espace pour rentrer les prochains noms), saurait tu comment faire pour qu'elle s'arrete au dernier nom et ainsi éviter le blanc dessous ?
0
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 
Bonjour,
Combobox: je regarde.
0
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 
Re,

Placez le code dans UserFormHS

Private Sub UserForm_Activate()
Sheets("FTP").Activate
'derniere ligne utilisée colonne de la feuille FTP
D_L = Cells.Find("A", , , , xlByRows, xlPrevious).Row
'Definition liste combo
ComboBox1.RowSource = Sheets("FTP").Range(Cells(2, 1), Cells(D_L, 1)).Address
End Sub

ComboBox1, propriete--->enlever ce qui est pour RowSource

Bonne suite
0
Co_nexion Messages postés 328 Date d'inscription   Statut Membre Dernière intervention  
 
Re,

merci pour le code ci-dessus.
Cependant je rencontre un problème pour adapter ce que tu as fait pour le tcd. En effet cela ne marche pas dans mon fichier intégral. J'ai eu beau vérifier les modules, les propriétés, adapter le code... Rien ne marche lorsque je veux afficher le userform...

Voici mon fichier intégral, si vous pouvez m'indiquer ou est-ce que le problème se situe parce que j'y ai passé la matinée mais sans succès et je ne vois vraiment pas pourquoi. Encore un grand merci pour le temps que vous m'avez accordé
https://www.cjoint.com/?BDgowFnilUL
0
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 
Re,
Je recupere et vous rend compte
0