Les meilleurs sources pour ExcelConsultez toutes les FAQ

Nombre d'auteurs : 10, nombre de questions : 65, dernière mise à jour : 8 février 2020 

 
OuvrirSommaireUserForms et Contrôles

Un Exemple illustrant l'utilisation du contrôle ProgressBar.

Testé sous XL97/XL2000/XL2002 (Windows XP ou 2000).


Tutoriel: Utiliser les contrôles dans un UserForm, en VBA Excel.

Créé le 15 mai 2007  par SilkyRoad

Téléchargement : Exemple

Lister les fichiers d'un répertoire dans un contrôle ListView.

Testé sous XL97/XL2000/XL2002 (Windows XP ou 2000).


Tutoriel: Utiliser le contrôle ListView en VBA Excel.

Créé le 15 mai 2007  par SilkyRoad

Téléchargement : Exemple

Il est possible d'animer l'affichage d'un UserForm.
Cet exemple affiche l'USF progressivement lors de son lancement.

Créé le 15 mai 2007  par SilkyRoad

Téléchargement : Exemple

Utilisez un contrôle ChartSpace dans l'UserForm, afin de créer le graphique dynamiquement et d'interagir avec celui-ci.
Le complément Microsoft Office Web Components (Composants Web) est une collection de contrôles pour modèles d'objets composants (Component Object Model ou COM) permettant de publier sur le Web des feuilles de calcul, des graphiques et des bases de données. Ces contrôles peuvent aussi être utilisés dans vos classeurs Excel.

Complément d'Office 2003: composants Web Office.

Office XP Tool: Web Components.

Créé le 16 mai 2007  par SilkyRoad

Téléchargement : Exemple

Placez un contrôle TreeView et un bouton dans un UserForm pour visualiser la structure du fichier xml.

Nécessite d'activer la référence Microsoft XML, vx.x.

Vba
Sélectionnez
Option Explicit
Dim oDoc As MSXML2.DOMDocument


Private Sub CommandButton1_Click()
    Set oDoc = New DOMDocument
    
    oDoc.async = False
    oDoc.Load "C:\NomFichier.xml"
    
    TreeView1.Nodes.Clear
    AddNode oDoc.DocumentElement
End Sub
Vba
Sélectionnez
Private Function AddNode(ByRef oElem As MSXML2.IXMLDOMNode, _
        Optional ByRef oTreeNode As MSComctlLib.Node)
    Dim oNewNode As MSComctlLib.Node
    Dim oNodeList As MSXML2.IXMLDOMNodeList
    Dim i As Long
      
    If oTreeNode Is Nothing Then
        Set oNewNode = TreeView1.Nodes.Add  'Creation du noeud racine
        oNewNode.Expanded = True
        Else
        Set oNewNode = TreeView1.Nodes.Add(oTreeNode, tvwChild) 'Ajout d'un noeud enfant
        oNewNode.Expanded = True
    End If
      
    Select Case oElem.NodeType
        Case MSXML2.NODE_ELEMENT 'type Element
        oNewNode.Text = oElem.nodeName & " (" & GetAttributes(oElem) & ")"
        Set oNewNode.Tag = oElem
        
        Case MSXML2.NODE_TEXT 'type texte
        oNewNode.Text = "Text: " & oElem.NodeValue
        Set oNewNode.Tag = oElem
        
        Case MSXML2.NODE_CDATA_SECTION 'type Cdata
        oNewNode.Text = "CDATA: " & oElem.NodeValue
        Set oNewNode.Tag = oElem
        
        Case Else
        oNewNode.Text = oElem.NodeType & ": " & oElem.nodeName
        Set oNewNode.Tag = oElem
    End Select
      
      
    Set oNodeList = oElem.ChildNodes 'boucle récursive pour ajouter tous les noeuds enfants
    
    For i = 0 To oNodeList.Length - 1
        AddNode oNodeList.Item(i), oNewNode
    Next i
End Function
Vba
Sélectionnez
Private Function GetAttributes(ByRef oElm As MSXML2.IXMLDOMNode) As String
    Dim sAttr As String
    Dim i As Long
    
    sAttr = ""
    
    For i = 0 To oElm.Attributes.Length - 1 'boucle sur tous les attributs
        sAttr = sAttr & oElm.Attributes.Item(i).nodeName & "='" & _
            oElm.Attributes.Item(i).NodeValue & "' "
    Next i
    
    GetAttributes = sAttr
End Function
Créé le 17 juin 2007  par SilkyRoad

Cet exemple rend le Frame d'un UserForm transparent afin de voir l'image située en arrière plan.

Créé le 17 juin 2007  par jmfmarques, Bbil, ThierryAIM

Téléchargement : Exemple

Le classeur montre comment identifier la prise ou la perte de focus du contrôle TextBox, dans un UserForm.

Un deuxième exemple montre comment procéder si les TextBox sont placés dans des Frames.

Créé le 17 juin 2007  par SilkyRoad

Téléchargement : Exemple

Le complément Microsoft Office Web Components (Composants Web) est une collection de contrôles pour modèles d'objets composants (Component Object Model ou COM), permettant de publier sur le Web des feuilles de calcul, des graphiques et des bases de données.

Complément d'Office 2003 : composants Web Office
Office XP Tool: Web Components


Le fichier Zip contient deux classeurs:
Une version Excel2007-OWC11
Une version Excel2002-OWC10

La démo utilise le contrôle PivotTable afin de créer et manipuler un tableau croisé dynamique dans un UserForm.
Dans cet exemple, les données sources sont stockées dans la Feuil2 du même classeur, mais vous pouvez facilement l'adapter et utiliser une source externe (table Access, fichier texte, feuille d'un classeur Excel fermé ...)


Le tutoriel associé.

Créé le 17 juin 2007  par SilkyRoad

Téléchargement : Exemple

Cette démo permet de paramétrer un niveau de transparence (de 0 à 100%) dans un UserForm.

Créé le 20 juin 2007  par Starec

Téléchargement : Exemple

La procédure remplit chaque Combobox en fonction de la sélection précédente, et sans doublon:
La sélection du ComboBox1 définit le contenu du ComboBox2. La sélection du ComboBox2 définit le contenu du ComboBox3 ?etc...

Créé le 8 juillet 2007  par SilkyRoad

Téléchargement : Exemple

  

Les sources présentées sur cette page sont libres de droits et vous pouvez les utiliser à votre convenance. Par contre, la page de présentation constitue une œuvre intellectuelle protégée par les droits d'auteur. Copyright © 2007 Developpez Developpez LLC. Tous droits réservés Developpez LLC. Aucune reproduction, même partielle, ne peut être faite de ce site ni de l'ensemble de son contenu : textes, documents et images sans l'autorisation expresse de Developpez LLC. Sinon vous encourez selon la loi jusqu'à trois ans de prison et jusqu'à 300 000 € de dommages et intérêts.