Discussion :

[mahdiweb]

Bonjour tout le monde;

Pour manipuler une liste déroulante en HTML sous Internet Explorer j'ai une fonction javascript que je veux la convertir en VBA si c'est possible et merci d'avance. :

Le code HTML

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
<select id="select1">
<option value="1" selected="selected">1</option>
<option value="2">2</option>
<option value="3">3</option>
<option value="4">4</option>
</select> - 
<select id="select2" disabled="disabled">
<option value="1" selected="selected">1</option>
<option value="2">2</option>
<option value="3">3</option>
<option value="4">4</option>
</select>

Le code javascript

Code :

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

1
2
3
4
5
6
7
8
9
10
11
const select1 = document.getElementById('select1');
const select2 = document.getElementById('select2');
 
select1.addEventListener('change', () => {
select2.removeAttribute('disabled');
});
 
setTimeout(() => {
select1.value = 2;
select1.dispatchEvent(new Event("change"));
}, 1E3);

Voici le lien de l'exemple sous : https://codepen.io/Mahdiweb/pen/OJwVoRp

[Valtrase]

Salut,

j'ai une fonction javascript que je veux la convertir en VBA si c'est possible et merci d'avance.

Tu veux manipuler le Html depuis VBA ou tu veux l'équivalent en VBA sur un formulaire ?

[mahdiweb]

Salut,

Tu veux manipuler le Html depuis VBA ou tu veux l'équivalent en VBA sur un formulaire ?

Oui je veux manipuler une liste déroulante web depuis VBA, j'ai déjà essaie de faire comme ça

Code :

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

1
2
3
4
Application.Wait Now + TimeValue("00:00:01")
.document.getElementById("select_1").Value = "2"
Application.Wait Now + TimeValue("00:00:05")
.document.getElementById("select_2").Value = "1"

mais ça ne marche pas

[mahdiweb]

Merci à tous ceux qui ont essayé de m'aider voici la solution :

Code :

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

1
2
3
4
5
6
7
8
    Set evt = .Document.createEvent("HTMLEvents")
    evt.initEvent "change", True, False
    Set lst = .Document.getElementById("select1")
    lst.selectedIndex = 2
    lst.dispatchEvent evt
    Set lst = .Document.getElementById("select2")
    lst.selectedIndex = 1
    lst.dispatchEvent evt