<shamard@cpr.fr>De: Stephane Hamard 
Objet: Re: Combox me ruine la sant&eacute;
Date : mercredi 28 juin 2000 15:08

Salut,

Voici un exmple. Soit un userForm avec un bouton "Ok" et combobox "Combox1",
la liste des banques (en colonne) se trouve sur la feuille Sheet1 à partir
de la cellule A1.

Ajoute ce code dans Userform_Initialize()

Me.ComboBox1.rowsource = "Sheet1!A1:A" & sheets("Sheet1").Cells(1,
1).End(xldown).Row

Et celui-ci dans Ok_Click()

    If Me.ComboBox1.ListIndex = -1 Then
        sheets("Sheet1").Cells(1, 1).End(xldown).Offset(1, 0).Value =
Me.ComboBox1.Value
        MsgBox "Banque ajout&eacute; à la liste"
    Else
        MsgBox "Banque pr&eacute;sente dans la liste"
    End If


Jos&eacute; Morais a &eacute;crit dans le message <8jcrs3$nah$1@front6m.grolier.fr>...
>Bonjour à vous tous,
>
>J'ai un problème avec un combox. J'ai une boite de dialogue qui me permet
de
>saisir des no de chèques et de les reporter sur une feuille de calcul. Pour
>me faciliter la tache (sachant que les mêmes banques reviennent souvent),
je
>veux placer un combox qui me pemettera de consulter les banques d&eacute;jà saisie
>et d'en ajouter d'autres &eacute;ventuellement.
>.
>C'est là que je crie "AU SECOURS". Je n'y arrive pas.
>
>Un petit coup de main serait le bienvenu !
>
>Merci
>
>
>