Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
François Picalausa
"Jeff" a écrit dans le message de news:3fd607a1$0$28704$
Bonjour, voilà je souhaite utiliser une collection en lieux et place de plusieurs tableau dynamique.
Private Type Test Name as String Path as String Commande as String RegFile as Boolean end Type
dim MaCollection as Collection
public sub AjouteCollection()
dim MonType as Test
Macollection.Add MonType
Macollection.Item(0).Name = "Le nom" Macollection.Item(0).Path = "Le chemin" Macollection.Item(0).Commande = "($La commande de mon objet)" Macollection.Item(0).RegFile = True
end sub ça ne fonctionne pas impossible de definir la collection en tant que type ??
Bonjour/soir,
Essaye de créer une classe correspondante contenant les propriétés utiles Public Name as String Public Path as String Public Commande as String Public RegFile as Boolean
en supposant que tu nomme cette classe clsMyClass, le code pour l'ajouter à la collection devient: Dim MaClasse As clsMyClass Set MaClasse = New clsMyClass
With MaClasse .Name = "Le nom" .Path = "Le chemin" .Commande = "($La commande de mon objet)" .RegFile = True End With
"Jeff" <mail@free.fr> a écrit dans le message de
news:3fd607a1$0$28704$626a54ce@news.free.fr
Bonjour, voilà je souhaite utiliser une collection en lieux et place
de plusieurs tableau dynamique.
Private Type Test
Name as String
Path as String
Commande as String
RegFile as Boolean
end Type
dim MaCollection as Collection
public sub AjouteCollection()
dim MonType as Test
Macollection.Add MonType
Macollection.Item(0).Name = "Le nom"
Macollection.Item(0).Path = "Le chemin"
Macollection.Item(0).Commande = "($La commande de mon objet)"
Macollection.Item(0).RegFile = True
end sub
ça ne fonctionne pas impossible de definir la collection en tant que
type ??
Bonjour/soir,
Essaye de créer une classe correspondante contenant les propriétés utiles
Public Name as String
Public Path as String
Public Commande as String
Public RegFile as Boolean
en supposant que tu nomme cette classe clsMyClass, le code pour l'ajouter à
la collection devient:
Dim MaClasse As clsMyClass
Set MaClasse = New clsMyClass
With MaClasse
.Name = "Le nom"
.Path = "Le chemin"
.Commande = "($La commande de mon objet)"
.RegFile = True
End With
"Jeff" a écrit dans le message de news:3fd607a1$0$28704$
Bonjour, voilà je souhaite utiliser une collection en lieux et place de plusieurs tableau dynamique.
Private Type Test Name as String Path as String Commande as String RegFile as Boolean end Type
dim MaCollection as Collection
public sub AjouteCollection()
dim MonType as Test
Macollection.Add MonType
Macollection.Item(0).Name = "Le nom" Macollection.Item(0).Path = "Le chemin" Macollection.Item(0).Commande = "($La commande de mon objet)" Macollection.Item(0).RegFile = True
end sub ça ne fonctionne pas impossible de definir la collection en tant que type ??
Bonjour/soir,
Essaye de créer une classe correspondante contenant les propriétés utiles Public Name as String Public Path as String Public Commande as String Public RegFile as Boolean
en supposant que tu nomme cette classe clsMyClass, le code pour l'ajouter à la collection devient: Dim MaClasse As clsMyClass Set MaClasse = New clsMyClass
With MaClasse .Name = "Le nom" .Path = "Le chemin" .Commande = "($La commande de mon objet)" .RegFile = True End With
