[VBA-E]nombre qui influe sur une boite de dialogue

**vovor** · 30/05/2006, 15h12

Je bloque sur ceci.

Sur une boite de dialogue A, je fais indiquer une valeur numerique dans un champ "num". C'est un nombre de produits
Quand je clique sur Ok, ça ouvre une boite de dialogue B (ça passe a la suivante, grosso modo..

). Sur celle ci je voudrais qu'il y ait une ligne par nombre de produit, avec sur chaque ligne :
- une zone de liste modifiable (pour qu'ils choissent dans la liste des produits disponibles)
- une zone de texte pour indiquer une quantité.

1.Comment je dois faire pour qu'a chaque ligne, les zones de textes (et les listes modifiables) soient en dessous les uns des autres.
2. Comment dois je faire pour que ceux de la 1ere ligne s'appelle ComboBox1 et TextBox1, ceux de la 2eme ligne ComboBox2 et TextBox2
3. Comment aggrandir automatiquement la boite en fonction du nombre de lignes.

merci

**Theocourant** · 30/05/2006, 15h23

Envoyé par vovor

Je bloque sur ceci.

Sur une boite de dialogue A, je fais indiquer une valeur numerique dans un champ "num". C'est un nombre de produits
Quand je clique sur Ok, ça ouvre une boite de dialogue B (ça passe a la suivante, grosso modo..

). Sur celle ci je voudrais qu'il y ait une ligne par nombre de produit, avec sur chaque ligne :
- une zone de liste modifiable (pour qu'ils choissent dans la liste des produits disponibles)
- une zone de texte pour indiquer une quantité.

1.Comment je dois faire pour qu'a chaque ligne, les zones de textes (et les listes modifiables) soient en dessous les uns des autres.
2. Comment dois je faire pour que ceux de la 1ere ligne s'appelle ComboBox1 et TextBox1, ceux de la 2eme ligne ComboBox2 et TextBox2
3. Comment aggrandir automatiquement la boite en fonction du nombre de lignes.

merci

Bonjour,

Personnellement, je passerais par des groupes de contrôles de Combox et de TextBox que je charge ou décharge suivant le nombre de produits.
Pour l'utilisation, on les appelle par leur index ComboBox(1) ComboBox(2) ...
Cela simplifie grandement les choses.

Regarde dans l'aide du côté de la propriété "Index".
Ainsi que sur le forum, il existe plusieurs sujets concernant les groupes de contrôles.

A plus tard, quand tu auras commencer à coder.

Bonne continuation

Théo

**zazaraignée** · 30/05/2006, 15h28

Salut

1. tu définis la position avec la propriété Top en te basant sur la propriété Top du contrôle précédent et en y ajoutant sa hauteur (Height) et une valeur de marge.

2. Avec les groupes de contrôles tel qu'indiqué par Theo

3. Avec les mêmes valeurs de Hauteur et de marge que tu ajoutes à la hauteur de ta Form.

**vovor** · 30/05/2006, 15h34

ok je vais me lancer la dedans...

sinon je viens de remarquer que lorsque je fais [tab] pour passer d'une zone a une autre... ça me fait tout dans le desordre... comment je rétabli ça?

**Theocourant** · 30/05/2006, 15h35

Envoyé par zazaraignée

Salut

1. tu définis la position avec la propriété Top en te basant sur la propriété Top du contrôle précédent et en y ajoutant sa hauteur (Height) et une valeur de marge.

2. Avec les groupes de contrôles tel qu'indiqué par Theo

3. Avec les mêmes valeurs de Hauteur et de marge que tu ajoutes à la hauteur de ta Form.

Je rajouterais même le tout dans 2 frames pour permettre un scroll en cas de nombreux produits...

La technique :

une frame fixe
une seconde frame avec une taille plus importante que la précédente
une ScrollBar verticale

Et le tour est terminé

Pour plus de détails voir la FAQ ici

+

Théo

**Theocourant** · 30/05/2006, 15h37

Envoyé par vovor

ok je vais me lancer la dedans...

sinon je viens de remarquer que lorsque je fais [tab] pour passer d'une zone a une autre... ça me fait tout dans le desordre... comment je rétabli ça?

Là il faut que tu renumérotes les valeurs de TabIndex de chaque contrôle.

Théo

**vovor** · 30/05/2006, 15h57

c'est ok pour la tabulation...

mais pas pour les groupes de controles.

Pourtant je suis un utilisateur regulier de VBA. Mais là, vous me posez une colle. et j'trouve pas grand chose dans le moteur de recherche.

PS : quand je veux mettre une parenthese à une value, il m'envoi boulet, theoriquement... sinon ça ferait longtemps que j'aurais reussi.

**Theocourant** · 30/05/2006, 16h09

Envoyé par vovor

c'est ok pour la tabulation...

mais pas pour les groupes de controles.

Pourtant je suis un utilisateur regulier de VBA. Mais là, vous me posez une colle. et j'trouve pas grand chose dans le moteur de recherche.

PS : quand je veux mettre une parenthese à une value, il m'envoi boulet, theoriquement... sinon ça ferait longtemps que j'aurais reussi.

Très juste les groupes de contrôles n'existent pas au niveau en VBA...

Pas cool ça ... Je ne sais pas comment faire pour le moment...

+

Théo

**vovor** · 30/05/2006, 16h16

sinon j'avais pensé passer par une feuille excel, puisque c'est de l'appli sur Excel.

Mais franchement ça ferait "sale". Je passe par une serie de boite de dialogue pour arriver a l'edition finale de la feuille, c'est pas pour coller une feuille excel au milieu. C'est ni propre, ni pro ..

Mais puisqu'il n'y a que 5 produits maxi, j'avais pensé passer par la propriété .visible.
Mais comment faire ça?

Code :

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

1
2
3
4
5
6
for i=1 to 5 
if i<=num then
textBox"i".visible= true
else
textBox"i".visible=false
end if

**vovor** · 30/05/2006, 16h51

d'ailleurs, toujours dans le meme genre de soucis, j'ai besoin que tous mes champs soient rempli pour valider la boite et passer a la suite. Comment je fais sans boucle For?

**ouskel'n'or** · 30/05/2006, 17h08

Problème hyper super classique.
Il s'agit de pallier aux groupes de contrôles
Pour tes textbox, tu inclus, dans leurs noms, le même mot pour tous

Code :

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

1
2
3
4
5
6
For each LetxtBox in LaForm.Controls
     i = i + 1
     if instr(LetxtBox.name,"text") <> 0 then     ' tu as un textbox(i)
           NomTxtBox = LaForm.Controls(i).name
     endif
Next

Juste pour le principe mais tu vois qu'on peut récupérer les saisies dans une boucle

Pour l'ordre dans lequel tu souhaites te déplacer d'une txt à une autre, tu fixes ça "en dur" dans les propriétés des textbox
C'est la valeur TabIndex qui t'indique la chronologie des déplacements. Tu indiques simplement le N° d'ordre. Commence par le dernier.

Tu dis

A+

Edit
Vérifie, j'ai corrigé 2 (deux) erreurs dans mon code

**vovor** · 30/05/2006, 17h20

merci.

je teste ça demain et je met en "resolu"

**ouskel'n'or** · 30/05/2006, 17h21

Peut-être bien, où ?

J'ai bien mis "Juste pour le principe"

**vovor** · 30/05/2006, 17h25

rien rien.. j'avais seulement un morceau de ton message, d'abord...

on va arreter de s'editer au fur et a mesure..

**ouskel'n'or** · 30/05/2006, 17h27

Tiens, un exemple concret :

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub CopierHorairesATantôt()
Dim NomContrôle As Control, ok as boolean
    For Each NomContrôle In GrilleDeSaisie.Controls
        ok = InStr(NomContrôle.Name, "TextATantôt") <> 0
        If ok Then
            msg = TextATantôtLundi.Text
            NomContrôle.Text = msg
        End If
    Next NomContrôle
End Sub

Qui copie les horaires du lundi après-midi sur tous les après-midi de la semaine

Tu peux t'en inspirer

A+

**vovor** · 31/05/2006, 09h08

arf je ne les comprend pas tellement, tes fonctions...

tu peux me les expliquer ligne par ligne si ça t'embete pas trop?

**AlainTech** · 31/05/2006, 09h17

Envoyé par vovor

arf je ne les comprend pas tellement, tes fonctions...

tu peux me les expliquer ligne par ligne si ça t'embete pas trop?

On t'a volé la touche F1 de ton clavier???

**vovor** · 31/05/2006, 09h34

aieuhhh

la touche F1 m'aidera pas trop à comprendre quelles sont les variables et les fonctions dans le 1er programme qu'il m'a donné. Je peux passer des heures a chercher une fonction ou une variable interne LetextBox alors qu'il s'agit d'une appelation de sa part.

de plus , c'est la 1ere fois que je vois une conditionnelle si ecrite de la sorte :

Code :

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

If ok Then

**AlainTech** · 31/05/2006, 09h50

Envoyé par ouskel'n'or

Code :

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

1
2
Dim NomContrôle As Control, ok as boolean
      ok = InStr(NomContrôle.Name, "TextATantôt") <> 0

Franchement, je ne vois pas ce qu'il y a de difficile à comprendre...

Si InStr renvoie autre chose que 0, ok (booléen) devient True.

Faudra vraiment t'impliquer un peu plus si tu veux avancer.