Discussion :

[Sparfell29]

Bonjour,
J'aurai voulu faire apparaître une nouvelle textbox en sélectionnant l'item "Autre" dans ma combobox "Oui", "Non", "Autre" afin d'apporter une précision.
J'ai pensé à qqchose du style

Code :

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

1
2
If Combobox item = "X" 
 then showtextbox1= TRUE

Sans certitude aucune sur la manière d'écrire cela vu que je débute en VBA.
Merci d'avance,
Erwan.

[MarcelG]

Bonjour Erwan,

A ta place, je commencerais par consulter les 2 tutoriels de Silkyroad
- les formulaires
- les contrôles

Ensuite, et ensuite seulement, tu pourras t'intéresser aux propriétés des contrôles et aux évènements les concernant.

[patricktoulon]

bonjour
et même sans aller jusqu'à un textbox supplémentaire, tu tape directement l'expression dans la ComboBox
le .value de la ComboBox te donnera ce que tu a tapé

[Sparfell29]

Bonjour Marcel =D !
J'ai déjà pas mal parcouru Silkyroad et le site free de Jacques Boisgontier mais je ne comprends pas tout (j'ai un master en phytochimie et je suis pas très bon en informatique). J'ai cherché dans le guide d'utilisation des boucles vu que j'y ai aperçu du "If mais je n'ai rien trouvé à la portée de ma compréhension ou qui réponde à mon "problème".
Je voulais un exemple que je puisse adapter, genre un truc tout simple avec des pommes et des oranges comme Pierre Fauconnier m'avait fait. Ou simplement la syntaxe de ce que je cherche à faire et ensuite à moi de m'en débrouiller. J'ai l'impression d'être un gros assisté mais même en cherchant en anglais je n'ai pas trouvé sur la toile de problème semblable au mien. En effet le seul résultat de recherche correspondant à "How to make a listbox item cause a new textbox to appear?" c'est un mec qui code en HTML

[Sparfell29]

Je ne suis pas sûr d'avoir saisi Patrick, il faut lors du remplissage du formulaire que je saisisse du texte la combobox plutôt que de sélectionner "Autre" ?

[patricktoulon]

re
si tu y tiens et que ton textbox existe déjà et masqué
dans le ComboBox X_change

Code :

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

if comboboxX.value="Autre" then TextBox1.visible=true

si il n'existe pas

[CODE]

Code :

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

1
2
3
4
5
6
7
8
if comboboxX.value="Autre" then

set Tbox= Me.Controls.Add("forms.Textbox.1", "Autre")
with Tbox
.left=.....
.top=.....
end with
' et tu te sert de me.Autre.text pour exploiter sa valeur

'et après son exploitation me.autre.delete


la solution du textbox existant et invisible reste une solution plus simple

[Sparfell29]

Merci beaucoup Patrick je vais tester ça.

Demat Menhir ! Merci pour ce cours qui m'a l'air des plus complet. Dès la lecture de la table des matières j'ai pu corriger une de mes erreurs que tu soulignais : If est une structure décisionnelle et pas une boucle

Je vais me plonger la dedans je pense que gagner en autonomie et en vocabulaire serait une bonne nouvelle corde à mon arc ! Au boulot je suis le seul en dehors du service informatique à m’intéresser à ce genre de choses et ces derniers n'ont pas le temps de se pencher sur mes "problèmes". Je vous suis très reconnaissant de ce que vous faites ici sur votre temps libre et bénévolement.

[Menhir]

Code :

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

1
2
If Combobox item = "X" 
 then showtextbox1= TRUE

Dans une structure If, le Then doit être sur la même ligne que le If.
https://docs.microsoft.com/fr-fr/off...else-statement

J'ai cherché dans le guide d'utilisation des boucles vu que j'y ai aperçu du "If

If n'est pas une boucle.

mais je n'ai rien trouvé à la portée de ma compréhension ou qui réponde à mon "problème".

Essaye la base : http://bidou.developpez.com/article/VBA/

Ou simplement la syntaxe de ce que je cherche à faire et ensuite à moi de m'en débrouiller.

Et pour crocheter une serrure, il te faut le bon outil : la clé correspondant à la serrure.