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.

[ProgElecT]

'Si vous utilisez le mot clé Preserve, vous ne pouvez redimensionner que la dernière dimension du tableau.

Donc impossible d'utiliser un tableau a 2 dimensions.

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
Dim TablIdx(), TablName()
Dim a, b, c, i, j
 
b = 0
 
Sub AddComp()
    If b <> 0 Then b = UBound(TablIdx) + 1
 
    ReDim Preserve TablIdx(b)
    ReDim Preserve TablName(b)
    TablIdx(b) = UBound(TablIdx)
    TablName(b) = NameComp.Value
    b = b + 1
    'Provisoir pour debug
    For i = 0 To UBound(TablIdx)
            MsgBox TablIdx(i) & "  /  " & TablName(i)
    Next
End Sub

[1MrchB]

OK merci pour l'info. Le plus simple en fait serait de passer par des fichiers textes temporaires que je viendrais completer et lire.