Vous devez être membre et vous identifier pour publier un article.
Les visiteurs peuvent toutefois commenter chaque article par une réponse.

Modifier la clé de Windows XPAccélérer l'arrêt du système [Windows XP/2000/2003]

Liste déroulante modifiable en VBA

Table des matières
Astuces de l’Infobrol (Développement)Article publié le 27/10/2005 10:11:20


Les contrôles



Nom de la ComboBox = Constructeur
Nom du CommandButton "Valider Choix" = OK
Nom du CommandButton "Annuler" = Annuler


Le code



Code lançant l'ouverture de la boîte de dialogue 
  1. Sub AfficheListeDeroulanteModifiable()
  2.       ListeDeroulanteModifiable.Show
  3. End Sub


Code d'initialisation du formulaire 

  1. Private Sub UserForm_Initialize()
  2.         Me.Constructeur.RowSource = "Feuil1!A1:A" & Sheets("Feuil1").Cells(1, 1).End(xlDown).Row 
  3. End Sub


Code d'activation du formulaire 

  1. Private Sub UserForm_Activate()
  2.         Me.Constructeur.ListIndex = -1 
  3. End Sub


Code des boutons

1 / Bouton OK 
  1. Private Sub OK_Click()
  2.       Me.Hide
  3.       If Me.Constructeur.ListIndex = -1 Then
  4.             Sheets("Feuil1").Cells(1, 1).End(xlDown).Offset(1, 0).Value = Me.Constructeur.Value
  5. ' Tri de la plage de données suite à l'ajout d'un élément
  6.             Sheets("Feuil1").Range([A1], [A1].End(xlDown)).Select
  7.             Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _
  8.                OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
  9.       Else
  10.       End If
  11. ' Mise en place de la valeur choisie en D2
  12.       Sheets("Feuil1").Cells(2, 4).Value = Me.Constructeur.Value
  13. End Sub

2 / Bouton Annuler 
  1. Private Sub Annuler_Click()
  2.       ListeDeroulanteModifiable.Hide
  3. End Sub




Avatar :: sysprep Un article de sysprep

Source : ericrenaud.free.fr


Commenter l'article

Modifier la clé de Windows XPAccélérer l'arrêt du système [Windows XP/2000/2003]

Sélection, tri et recherche d'articles
FILTRER :
TRIER :1er critère : 2e critère :
CHERCHER : Dans les titres Dans le contenu


[Afficher les liens en fonction des critères du formulaire ci-dessus]

Version en cache

21/11/2024 09:55:21 Cette version de la page est en cache (à la date du 21/11/2024 09:55:21) afin d'accélérer le traitement. Vous pouvez activer le mode utilisateur dans le menu en haut pour afficher la dernère version de la page.

Document créé le 13/09/2004, dernière modification le 26/10/2018
Source du document imprimé : https://www.gaudry.be/ast-rf-251.html

L'infobrol est un site personnel dont le contenu n'engage que moi. Le texte est mis à disposition sous licence CreativeCommons(BY-NC-SA). Plus d'info sur les conditions d'utilisation et sur l'auteur.