Discussion :

[1MrchB]

Bonjour,

J'aurais aimé avoir un renseignement sur la possibilité de modifier l'interface hta.
Je recherche à ajouter dans ma fenetre, un nouveau champ de texte lorsque l'on choisit une option particulière dans une liste déroulante (voir qu'on clique sur un bouton).

Merci pour cette précision.

[ProgElecT]

Salut

Ajouter, je ne sais pas faire , mais rendre visible ou non oui, txtAjout.style.display = ""pour rendre visible, et txtAjout.style.display = "none" pour rendre invisible.
txtAjout etant l'ID du champs texte.
Dans Donner une interface à vos script VBS , HTA : Html Application tutoriel de bbil, tu trouveras des astuces pour ce genre de choses.

[hackoofr]

Vous pouvez regarder ceci aussi formulaire pour envoyer des mails avec pièce jointe

[1MrchB]

Bonjour,

Pour le moment cela ne fonctionne pas (et un autre pb est venu se greffer...). Je joins un dessous le Sub incriminé.
Lorsque je clique sur le bouton AddComp, je rempli un tableau dont le nombre de ligne s'incrémente de 1 à chaque fois. Dans la première colonne est indiqué le numéro de ligne et dans la deuxième, une valeur récuperée d'un précédent InputBox.
Les problèmes :
- lorsque j'affiche chaque case du tableau via la dernière boucle (après ajout de la ligne n): les MsgBox affichées sont vides pour les lignes n-1, et correctes pour la ligne n ;
- je n'arrive pas à afficher chaque ligne du tableau dans ma fenetre graphique (avec actualisation à chaque nouvelle ligne ajoutée).

Pouvez vous me mettre sur la voie?Merci.

Code :

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

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
 
a = -1
b = 0
c = 0	
Dim tableau(0,1)
 
Sub AddComp
     a = a + 1
     c = b + 1
     ReDim Preserve tableau(b,1)
     For i = a to a
          For j = 0 to 1
               'indication du numéro de ligne du tableau
               If j=0 Then
                    tableau(i,j) = c
               End If
               If j=1 Then
                    tableau(i,j) = NameComp.value
               End If	
          Next
          For i = 0 to Ubound(tableau)
               For j = 0 to 1
                    msgbox(tableau(i,j))
               Next
          Next
          b = b +1
          End Sub

[ProgElecT]

Salut

Code :

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

1
2
3
4
5
Sub AddComp
      a = a + 1 '<**************
     c = b + 1
     ReDim Preserve tableau(b,1)
     For i = a to a '<**** ???? *****

a étant égal à a pourquoi une boucle For ... Next ?
Tu ne boucles pas, les instruction dans For i ... Next ne s'execute qu'une fois par appel de ta Sub.

Ta boucle For j .... Next me semble inutile

Code :

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

1
2
tableau(i, 0) = c
tableau(i, 1) = NameComp.Value

[1MrchB]

En effet, ces boucles For...Next sur les i et j sont inutile. Le prog a le même comportement sans cette boucle.