Objet class en vba

Version imprimable

12/12/2011, 13h50
Dereck07

Objet class en vba

Bonjour,

Je fais une macro excel ou j'ai met dans un tableau des données.
Parfois je dois en ré-ajouter dans ce tableau et donc le redimensionner.
Pour ca je fais un redim preserve

Je me dis que VBA etant orienté objet il doit etre possible de faire des .add .remove ...
Pouvez vous m'intiquer quel est la class la plus addapter pour faire ca ?
(ce serait pour avoir des string chainé et pouvoir suprimer ou ajouté des élément de la chaine. Je ne sais pas si je suis claire ?)

:D
12/12/2011, 15h02
Daniel.C

Bonjour,
Tu as un tuto sur les variables tableau ici :

http://didier-gonard.developpez.com/...s-tableau-vba/
13/12/2011, 05h26
Invité

Bonjour

Citation:

Envoyé par Dereck07

Je me dis que VBA etant orienté objet il doit etre possible de faire des .add .remove ...

Attention à ne pas mélanger.

Le modèle d'une application Office (Excel, Access, etc..) est bien orienté objet, mais le langage VB (tiré du VB6) tel que déclaration, boucle, tableau etc.. ne l'est pas.

Philippe
13/12/2011, 07h51
Qwazerty

Salut

Tu peux aussi regarder du coté des Collections et du Dictionary.

Pour ce qui est des tableaux tu as également à dispo le tutoriel de Silkyroad à ce sujet.

Ensuite pour des besoins vraiment spécifiques, tu peux regarder la construction d'une class perso avec le tutoriel de Pierre Fauconnier en support.

Il est difficile de t'aiguiller sans réellement comprendre les besoins spécifiques du code que tu veux réaliser.

++
Qwaz

Merci pour vos reponses. :)
Enfaite, je suis habitué à delphi et dans ce langage je suis habitué à manipuler des TstringList
exemple d'utilisation:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 function test(IN2:string):TstringList; var L:TstringList; begin L:=TstringList.create; //Creation de la liste L.Add("Champ1"); // ajoute le premier élément à la liste L.Add(IN2); // ajoute le 2eme élément à la liste L.Add("Champ3"); // ajoute le 3eme élément à la liste if(L.Count==3) then // test le nombre d'élément dans la liste begin L.Strings[3].remove; //sumprime l'élément 3 end; L.Strings[1]="IN1" // renome l'élément 1 result:=L; end;
Est que en VBA il existe une moyen simple de faire cela ?
Les collections ont l'aire de repondre à ce besoin. J'ai cherché un tutorial mais j'en n'est pas trouvé de dédier au collections. quelqu'un a t il un lien a m'envoyer ? :calim2:

Essaie le code suivant :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Sub test()
    Dim L() 'création de la liste
    'ajout d'une rpemière valeur
    ReDim L(0)
    L(0) = "Champ1"
    'ajout d'une seconde valeur
    ReDim Preserve L(1)
    L(1) = "IN2"
    'ajout d'une troisième valeur
    ReDim Preserve L(2)
    L(2) = "Champ3"
    'test le nombre d'élément dans la liste
    If UBound(L) = 2 Then
    End If
    'supprime L 'élément 3
    ReDim Preserve L(1)
    'renome l'élément 1
    L(0) = "IN1"
End Sub

Salut

Pour ma part je pense que le plus proche serait le dictionary, ça fait un moment que je n'ai pas touché à Delphi (je m'y suis remis il a peu et je suis en période de convalescence ^^')

Voila ce qu'il est possible (en partie) de faire et qui correspond à l'utilisation du TStringList que tu utilises dans ton exemple.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 Option Explicit Sub Essai() Dim DicoResultat As Dictionary Set DicoResultat = Teste("Bonjour") End Sub Function Teste(IN2 As String) As Dictionary 'Menu Outils -> Références... et tu coches la case Microsoft scripting runtime 'On déclare le dico = L:TStringList; Dim MonDico As New Dictionary 'le new est l'équivalent du Create 'On renseigne des entrées dans le dico 'On defini a chaque fois une clé et un item(l'item peut être une valeur ou un Object) MonDico.Add "Champs1", 1 MonDico.Add IN2, 2 MonDico.Add "Champs3", 3 'on teste le nombre d'entrées If MonDico.Count = 3 Then MonDico.Remove IN2 'OU Aussi possible par index If MonDico.Count = 3 Then MonDico.Remove MonDico.Keys(1) 'numéroté en partant de 0. Ici de 0 à 2. 'On peut verifier qu'une clé existe et changer l'item qui lui est associé If MonDico.Exists("Champs1") Then MonDico("Champs1") = "IN1" 'On peut faire des totaux MonDico("Champs3") = MonDico("Champs3") + 1 'On peut changer la clé d'une des entrée MonDico.Key("Champs3") = "NewKey" Set Teste = MonDico End Function
Pour le Dico, le petit plus est la fonction Exists, qui te permet de savoir si un élément existe déjà sans avoir à boucler sur son contenu.

Il faut faire attention à (quelques) particularité(s) avec le Dico, si par exemple tu essais d'attribuer un item à une valeur de clé qui n'existe pas, une nouvelle entrée est automatiquement créée contenant la nouvelle clé et son item associé.

Je n'utilise jamais les Collections, je n'en ferais donc pas l'éloge mais tu dois également pouvoir faire des choses similaire.

++
Qwaz