Discussion :

[tmlpqsdpmdlc]

Bonjour,

J'aimerai savoir si il y a un équivalent en vba de getElementByID

Ma problématique est d'éditer une classe

Par exemple,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
if cells(1,1).value = "Benjamin" Then
Benjamin.sonAttribut="ok"
endif

mais sans passer par une condition car il y en a beaucoup comme Benjamin ^^

Merci de votre aide

[gnain]

Bonjour,
je ne sais pas si c'est cela que tu recherches

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Application.Run cells(1,1).value

[tmlpqsdpmdlc]

En fait, ce que j'aimerai faire c'est ça:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

getElementById(cells(1,1).value).sonAttribut = "ok"

où la valeur en string de 1,1 comporte le même nom qu'un de mes objets

Pour éviter de faire du if

[Promethee25]

Tous tes objets (Benjamin, ...) sont-ils de la même classe?
Si oui, pourquoi ne passes-tu pas plutôt par une collection d'objets?

Tu pourrais alors récupérer l'objet au sein de la collection via son index "Benjamin".

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

maCollection(cells(1,1).value).sonAttribut = "ok"

[tmlpqsdpmdlc]

Parce-que je suis un noob en vba ? lol

Oui tous mes objets sont issus de la même classe

quoi qu'il en soit ça à l'air de correspondre.

Comment je fais une collection ?

[Promethee25]

Déclaration:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Dim maCollection As New Collection

Ajout d'un objet:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

maCollection.Add(<Objet>, <NomQuiSeraUtiliséCommeIndexPourRetrouverLObjetDansLaCollection>)

Tu peux ensuite accéder à l'objet ainsi:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

maCollection(<NomQuiSeraUtiliséCommeIndexPourRetrouverLObjetDansLaCollection>)

Après, à toi de chercher un peu par toi-même.

[tmlpqsdpmdlc]

Bon, voilà

J'ai beaucoup cherché et il s'avère que ça marche

Merci