Partager via


Add, méthode (VBA)

Ajoute un membre à un objet Collection .

Syntaxe

objet . Ajouter unélément, une clé, avant, après

La syntaxe de la méthode Add a le qualificateur d’objet et les arguments nommés suivants :

Élément Description
object Obligatoire. Expression d’objet qui prend la valeur d’un objet dans la liste S’applique à.
item Obligatoire. Expression de tout type qui spécifie le membre à ajouter à la collection.
key Facultatif. Expression String qui spécifie une chaîne de clé pouvant être utilisée, à la place d’un index positionnel, pour accéder à un membre de la collection.
Avant Facultatif. Expression qui spécifie une position relative dans la collection. Le membre à ajouter est placé dans la collection avant le membre identifié par l’argumentbefore. S’il s’agit d’une expression numérique, before doit être un nombre compris entre 1 et la valeur de la propriété Count de la collection. S’il s’agit d’une expression String, before doit correspondre à la clé spécifiée lorsque le membre auquel il est fait référence a été ajouté à la collection. Vous pouvez spécifier une position before ou une position after, mais pas les deux.
Après Facultatif. Expression qui spécifie une position relative dans la collection. Le membre à ajouter est placé dans la collection après le membre identifié par l’argument after. S’il s’agit d’une expression numérique, after doit être un nombre compris entre 1 et la valeur de la propriété Count de la collection. S’il s’agit d’une chaîne, after doit correspondre à la key spécifiée lorsque le membre auquel il est fait référence a été ajouté à la collection. Vous pouvez spécifier une position before ou une position after, mais pas les deux.

Remarques

Que l’argument before ou after soit une expression String ou numérique, il doit faire référence à un membre existant de la collection, sinon une erreur se produit.

Une erreur se produit également si une key spécifiée duplique la key pour un membre existant de la collection.

Exemple

Cet exemple utilise la méthode Add pour ajouter Inst des objets (instances d’une classe appelée Class1 contenant une variable InstanceNamePublic ) à une collection appelée MyClasses. Pour voir comment cela fonctionne, insérez un module de classe et déclarez une variable publique appelée InstanceName au niveau du module de Class1 (type Public InstanceName) pour contenir les noms de chaque instance. Conservez le nom par défaut .Class1 Copiez et collez le code suivant dans la Form_Load procédure événementielle d’un module de formulaire.

Dim MyClasses As New Collection    ' Create a Collection object.
Dim Num As Integer    ' Counter for individualizing keys.
Dim Msg
Dim TheName    ' Holder for names user enters.
Do
    Dim Inst As New Class1    ' Create a new instance of Class1.
    Num = Num + 1    ' Increment Num, then get a name.
    Msg = "Please enter a name for this object." & Chr(13) _
     & "Press Cancel to see names in collection."
    TheName = InputBox(Msg, "Name the Collection Items")
    Inst.InstanceName = TheName    ' Put name in object instance.
    ' If user entered name, add it to the collection.
    If Inst.InstanceName <> "" Then
        ' Add the named object to the collection.
        MyClasses. Add item := Inst, key := CStr(Num)
    End If
    ' Clear the current reference in preparation for next one.
    Set Inst = Nothing
Loop Until TheName = ""
For Each x In MyClasses
    MsgBox x.instancename, , "Instance Name"
Next

Voir aussi

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.