list box+feuille en fond d'écran

list box+feuille en fond d'écran - VB/VBA/VBS - Programmation

Marsh Posté le 03-05-2005 à 08:55:53    

:hello: Bonjour,:hello:  
 
J'ai deux petits problèmes à résoudre.
 
Le premier : quand je lance mon prog vba, les userforms s'affichent par dessus des feuilles excel ce qui n'est pas tres joli joli. J'ai donc crée une feuille excel jolie jolie et je voulais savoir s'il existe un code qui me permette de passer d'un userfom a un autre en gardant toujours cette feuille en arriere plan??
 
Le second: sur une userform j'ai une zone de texte qui me permet de saisir des noms que l'on retrouve dans une list box sur un autre formulaire. Les noms s'enregistrent sur une feuille excel.Pour les 100 premiers noms saisis dans ma list box je rentre feuille!a1:a100
jusque la tout est ok. Le probleme est que quand je rajoute un nom, la ligne 101 n'est pas prise en compte dans la list box. Je sais que je pourrai un peu tricher en rentrant dans mon row source feuille!a1:a200 mais cette solution ne me plait pas.Je voulais savoir s'il existe une méthode pour que a chaque fois que jerentre un nouveau nom la row source se modifie et prenne une ligne de plus en compte??
 
Merci beaucoup de votre aide :wahoo:  

Reply

Marsh Posté le 03-05-2005 à 08:55:53   

Reply

Marsh Posté le 03-05-2005 à 19:46:36    

Petit bout de code:

Private Sub UserForm_Activate()
  Dim sLastRow As String
  Dim sSource As String
  Sheets("Feuille" ).Activate
  sLastRow = Trim(Str$([A1].End(xlDown).Row))
  sSource = "Feuille!A1:B" & sLastRow
  Me.ListBox1.RowSource = sSource
End Sub


Personnellement, je n'aime pas travailler par la propriété RowSource dont la syntaxe me paraît limite.
Je trouve plus propre de faire une boucle de remplissage de la ListBox par AddItem.


---------------
Si on vous donne une info qui marche, DITES-LE!!!! ------ Si vous trouvez seul, AUSSI, votre solution peut servir à d'autres! ------ Je dois la majorité de mes connaissances à mes erreurs!
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed