Modification de liste déroulante

Pierrot93

XLDnaute Barbatruc

• 11 Juillet 2012

• #2

Re : Modification de liste déroulante

Bonjour,

modifie les 2 procédures comme suit :

Code:

Private Sub CommandButton1_Click()
With ComboBox1
Cells(1, 5) = .Text
    If .ListIndex <> -1 Then .RemoveItem .ListIndex
End With
End Sub
Private Sub UserForm_Initialize()
    Me.ComboBox1.List = Sheets("Feuil1").Range("Liste").Value
End Sub

bon après midi
@+

 

Vote positif 0 Vote négatif

A

adr99

Guest

• 11 Juillet 2012

• #3

Re : Modification de liste déroulante

Bonjour Pierrot93,

Merci pour ta réponse mais en réalité l'userform se ferme lorsqu'on ajoute un chiffre et quand je clique à nouveau dessus pour rajouter un chiffre j'ai toute la liste comment faire pour qu'elle soit supprimer lorsqu'on reclique sur le bouton 1 ?

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 11 Juillet 2012

• #4

Re : Modification de liste déroulante

Re,

pour garder le combo à jour tant que le classeur est ouvert, modifie cette procédure également :

Code:

Private Sub CommandButton2_Click()
Me.Hide
End Sub

 

Vote positif 0 Vote négatif

A

adr99

Guest

• 11 Juillet 2012

• #5

Re : Modification de liste déroulante

Ok merci beaucoup même si lorsque je l'ai mis dans le bouton 2 ça ne marchait pas mais en le mettant dans le bouton 1 c'est bon.

Encore merci

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 11 Juillet 2012

• #6

Re : Modification de liste déroulante

Re,

attention ne pas fermer l'usf par la croix.... contrôler la fermeture ainsi :

Code:

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
Cancel = True
Me.Hide
End Sub

 

Vote positif 0 Vote négatif

A

adr99

Guest

• 11 Juillet 2012

• #7

Re : Modification de liste déroulante

Re,

Merci oui effectivement si je laissais dans le bouton 1 ça pouvait poser problème mais par contre je ne comprends pas du tout le code que tu viens de rajouter

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 11 Juillet 2012

• #8

Re : Modification de liste déroulante

Re,

pour le cas ou tu click sur la croix blanche sur fond rouge, cela déchargerait l'usf et les items "removed" seraient à nouveau présents.....

 

Vote positif 0 Vote négatif

A

adr99

Guest

• 11 Juillet 2012

• #9

Re : Modification de liste déroulante

J'ai une nouvelle question car en réalité je peux avoir plusieurs bouton pour la même chose et je souhaiterai que la liste de choix évolue en fonction du bouton sur lequel on a cliqué car actuellement si je clique sur le bouton 1 puis après sur le bouton 2 le choix que j'ai effectué sur le bouton 1 n'apparait pas sur le bouton 2.

 

Pièces jointes

• test2.xlsm

  21.1 KB · Affichages: 51
• test2.xlsm

  21.1 KB · Affichages: 52
• test2.xlsm

  21.1 KB · Affichages: 53

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 11 Juillet 2012

• #10

Re : Modification de liste déroulante

Re,

oui et ensuite si tu re-click sur le bouton 1, il s'affiche quoi ??? regarde peut être du coté des tableaux virtuels, ces derniers déclarés "public" dans un module standard... A voir... mais plus difficile à gérer....

 

Vote positif 0 Vote négatif

A

adr99

Guest

• 11 Juillet 2012

• #11

Re : Modification de liste déroulante

Re,

Oui si je reclique sur le bouton 1 je n'ai pas la valeur que je viens d'ajouter mais ce que je voudrais c'est que si je clique sur le bouton 1 ça soit uniquement sur la liste déroulante de ce bouton que le choix "disparaisse".
Je suis encore débutant et je ne connais pas les tableaux virtuels

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 11 Juillet 2012

• #12

Re : Modification de liste déroulante

Re,

et tu vas en ajouter combien de boutons ??? peut être réfléchir à une autre méthode..... fonction de la finalité de tout ceci...

 

Vote positif 0 Vote négatif

A

adr99

Guest

• 11 Juillet 2012

• #13

Re : Modification de liste déroulante

Je ne sais pas beaucoup c'est laissé libre normalement

 

Vote positif 0 Vote négatif