Modification de liste déroulante

[adr99]

Bonjour à tous,

Dans le fichier en annexe j'ai des données dans la colonne A qui sont en réalité une plage de donnée Liste. L'objectif de ma macro est de permettre le choix des valeurs et de les copier pour cela pas de problème.
j'aimerai maintenant que ma liste déroulante dans l'userform se modifie c'est à dire lorsque je sélectionne une valeur et que je clique sur Ok la valeur s'insère mais que si j'ouvre à nouveau la liste déroulante je n'ai plus la valeur que j'ai séléctionner précedement.
Bien évidement je ne souhaite pas lorsque j'ai copier la valeur supprimer la valeur dans la colonne A.

J'espère avoir été clair sinon dite le mois.

 

[Pierrot93]

Re : Modification de liste déroulante

Bonjour,

modifie les 2 procédures comme suit :

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
@+

 

[adr99]

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 ?

 

[Pierrot93]

Re : Modification de liste déroulante

Re,

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

Private Sub CommandButton2_Click()
Me.Hide
End Sub

 

[adr99]

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

 

[Pierrot93]

Re : Modification de liste déroulante

Re,

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

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

 

[adr99]

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

 

[Pierrot93]

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.....

 

[adr99]

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.

 

[Pierrot93]

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....

 

[adr99]

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

 

[Pierrot93]

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...

 

[adr99]

Re : Modification de liste déroulante

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