Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Développement Développement Visual Basic Avec comboBox, écriture en épelé dans un fichier texte.

Avec comboBox, écriture en épelé dans un fichier texte.

24 réponses
Avatar
Guy FALESSE
Bonjour à tous,

Lorsque je clique sur un bouton qui exécute ce code:

Open "c:\Catégories.txt" For Append As #1
Print #1, Combo1.Text
Close #1

j'ai ceci dans mon fichier:

l
la
la
la c
la ch
la cho
la chos
la chose

Je suis novice, d'accord, mais là, je suis bien surpris, comment faire pour
n'avoir que le mot -la chose-
Si je mets le code sur After change du combo1, c'est pareil.
Merci d'éclairer ma lanterne.

@+

Guy FALESSE
Signaler un problème avec ce contenu

10 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
1 2 3
Avatar
LE TROLL
Salut,

Un objet list ("combo" ici), n'est pas une zone de
texte, mais une liste de plusieurs zones (a contrario d'une
TextBox), alors je pense qu'il faut prendre un élément de la
liste pour l'insérer dans ton fichier (comme si tu prenais
un élément indicé dans une boucle), soit:

Open "c:Catégories.txt" For Append As #1

dim variable as string
variable = combo1.list(0)
Print #1, variable
Close #1
--------------



"Guy FALESSE" a écrit dans le
message de news:
Bonjour à tous,

Lorsque je clique sur un bouton qui exécute ce code:

Open "c:Catégories.txt" For Append As #1
Print #1, Combo1.Text
Close #1

j'ai ceci dans mon fichier:

l
la
la
la c
la ch
la cho
la chos
la chose

Je suis novice, d'accord, mais là, je suis bien surpris,
comment faire pour n'avoir que le mot -la chose-
Si je mets le code sur After change du combo1, c'est
pareil.
Merci d'éclairer ma lanterne.

@+

Guy FALESSE




Avatar
Guy FALESSE
Salut Le Troll,

Merci de ta réponse.
Je plaçais ma fonction *sur Change* et bien sûr à chaque foisq ue je
rentrais une lettre, elle était prise en compte.
En plaçant la fonction sur LostFocus, ça marche bien. Mais ta remarque est
justifiée.
@+

Guy FALESSE


"LE TROLL" <le a écrit dans le message de news:

Salut,

Un objet list ("combo" ici), n'est pas une zone de texte, mais une
liste de plusieurs zones (a contrario d'une TextBox), alors je pense qu'il
faut prendre un élément de la liste pour l'insérer dans ton fichier (comme
si tu prenais un élément indicé dans une boucle), soit:

Open "c:Catégories.txt" For Append As #1

dim variable as string
variable = combo1.list(0)
Print #1, variable
Close #1
--------------



"Guy FALESSE" a écrit dans le message de news:

Bonjour à tous,

Lorsque je clique sur un bouton qui exécute ce code:

Open "c:Catégories.txt" For Append As #1
Print #1, Combo1.Text
Close #1

j'ai ceci dans mon fichier:

l
la
la
la c
la ch
la cho
la chos
la chose

Je suis novice, d'accord, mais là, je suis bien surpris, comment faire
pour n'avoir que le mot -la chose-
Si je mets le code sur After change du combo1, c'est pareil.
Merci d'éclairer ma lanterne.

@+

Guy FALESSE








Avatar
LE TROLL
Salut Guy,

Ben voui qu'elle et justifiée, car si tu a plusieurs
éléments dans ton objet, pour y accéder il faut indicer:
objet.list(i)
Mais là, tu sembles n'avoir qu'un élément dans ta liste, si
c'est fait pour être ainsi, il faut utiliser un TextBox, et
alors tu pourras le charger directement...

Et puis, vaut mieux prendre une variable de transfert,
que de charger directement l'objet, sauf peut être pour les
textBox, il me semble avoir déjà eu de problèmes en chargent
directement l'objet...
------------

"Guy FALESSE" a écrit dans le
message de news: %
Salut Le Troll,

Merci de ta réponse.
Je plaçais ma fonction *sur Change* et bien sûr à chaque
foisq ue je rentrais une lettre, elle était prise en
compte.
En plaçant la fonction sur LostFocus, ça marche bien. Mais
ta remarque est justifiée.
@+

Guy FALESSE


"LE TROLL" <le a écrit dans le message de
news:
Salut,

Un objet list ("combo" ici), n'est pas une zone de
texte, mais une liste de plusieurs zones (a contrario
d'une TextBox), alors je pense qu'il faut prendre un
élément de la liste pour l'insérer dans ton fichier
(comme si tu prenais un élément indicé dans une boucle),
soit:

Open "c:Catégories.txt" For Append As #1

dim variable as string
variable = combo1.list(0)
Print #1, variable
Close #1
--------------



"Guy FALESSE" a écrit dans le
message de news:
Bonjour à tous,

Lorsque je clique sur un bouton qui exécute ce code:

Open "c:Catégories.txt" For Append As #1
Print #1, Combo1.Text
Close #1

j'ai ceci dans mon fichier:

l
la
la
la c
la ch
la cho
la chos
la chose

Je suis novice, d'accord, mais là, je suis bien surpris,
comment faire pour n'avoir que le mot -la chose-
Si je mets le code sur After change du combo1, c'est
pareil.
Merci d'éclairer ma lanterne.

@+

Guy FALESSE












Avatar
Guy FALESSE
Salut Le Troll,

Il y avait plusieurs éléments dans ce combo.
D'ailleurs, je "touille" avec ce comboBox, et pour ajouter des éléments et
les écrire dans un fichier texte et même chose pour en effacer et aussi
mettre à jour ce même fichier tecte, je viens d'ailleurs de poster un
nouveau message à ce sujet.
Ça va, j'espère se décanter, mais en attendant, je rame.
Merci pour ta réponse.

Guy FALESSE


"LE TROLL" <le a écrit dans le message de news:

Salut Guy,

Ben voui qu'elle et justifiée, car si tu a plusieurs éléments dans ton
objet, pour y accéder il faut indicer:
objet.list(i)
Mais là, tu sembles n'avoir qu'un élément dans ta liste, si c'est fait
pour être ainsi, il faut utiliser un TextBox, et alors tu pourras le
charger directement...

Et puis, vaut mieux prendre une variable de transfert, que de charger
directement l'objet, sauf peut être pour les textBox, il me semble avoir
déjà eu de problèmes en chargent directement l'objet...
------------

"Guy FALESSE" a écrit dans le message de news:
%
Salut Le Troll,

Merci de ta réponse.
Je plaçais ma fonction *sur Change* et bien sûr à chaque foisq ue je
rentrais une lettre, elle était prise en compte.
En plaçant la fonction sur LostFocus, ça marche bien. Mais ta remarque
est justifiée.
@+

Guy FALESSE


"LE TROLL" <le a écrit dans le message de news:

Salut,

Un objet list ("combo" ici), n'est pas une zone de texte, mais une
liste de plusieurs zones (a contrario d'une TextBox), alors je pense
qu'il faut prendre un élément de la liste pour l'insérer dans ton
fichier (comme si tu prenais un élément indicé dans une boucle), soit:

Open "c:Catégories.txt" For Append As #1

dim variable as string
variable = combo1.list(0)
Print #1, variable
Close #1
--------------



"Guy FALESSE" a écrit dans le message de news:

Bonjour à tous,

Lorsque je clique sur un bouton qui exécute ce code:

Open "c:Catégories.txt" For Append As #1
Print #1, Combo1.Text
Close #1

j'ai ceci dans mon fichier:

l
la
la
la c
la ch
la cho
la chos
la chose

Je suis novice, d'accord, mais là, je suis bien surpris, comment faire
pour n'avoir que le mot -la chose-
Si je mets le code sur After change du combo1, c'est pareil.
Merci d'éclairer ma lanterne.

@+

Guy FALESSE
















Avatar
scraper
Bonjour Guy FALESSE, dans le message
news:%
tu disais :

Je plaçais ma fonction *sur Change* et bien sûr à chaque foisq ue je
rentrais une lettre, elle était prise en compte.



et pourquoi pas Click ?

'---

Private Sub Combo1_Click()

MsgBox Combo1.List(Combo1.ListIndex)

End Sub

'---



--

Attention ! Adresse mail invalide ...
Pour me contacter, cliquez sur le lien ci-dessous:
http://scraper.chez.tiscali.fr/contact.htm

scraper
Avatar
Guy FALESSE
Salut Scraper,

Merci de ta réponse.
Sur clic, ben oui, bien sûr.
@+

Guy FALESSE

"scraper" a écrit dans le message de news:
%
Bonjour Guy FALESSE, dans le message
news:%
tu disais :

Je plaçais ma fonction *sur Change* et bien sûr à chaque foisq ue je
rentrais une lettre, elle était prise en compte.



et pourquoi pas Click ?

'---

Private Sub Combo1_Click()

MsgBox Combo1.List(Combo1.ListIndex)

End Sub

'---



--

Attention ! Adresse mail invalide ...
Pour me contacter, cliquez sur le lien ci-dessous:
http://scraper.chez.tiscali.fr/contact.htm

scraper


Avatar
LE TROLL
T'es vachement intelligent, heureusement que t'es là :o)
-----

"scraper" a écrit dans le message de
news: %
Bonjour Guy FALESSE, dans le message
news:%
tu disais :

Je plaçais ma fonction *sur Change* et bien sûr à chaque
foisq ue je
rentrais une lettre, elle était prise en compte.



et pourquoi pas Click ?

'---

Private Sub Combo1_Click()

MsgBox Combo1.List(Combo1.ListIndex)

End Sub

'---



--

Attention ! Adresse mail invalide ...
Pour me contacter, cliquez sur le lien ci-dessous:
http://scraper.chez.tiscali.fr/contact.htm

scraper


Avatar
scraper
LE TROLL, dans le message
news:ex0Z$
tu disais :


T'es vachement intelligent, heureusement que t'es là :o)



eh toi, l'usurpateur d'identité, lâche moi un peu, et va déblatérer ailleurs
tes salades et autres pseudo citations latines qui fatiguent tout le monde
ici

tu ferais mieux d'apprendre à quoter, du temps ça nous ferait des vacances

fin de ce thread (pollué par ta réponse) en que qui me concerne


--

Attention ! Adresse mail invalide ...
Pour me contacter, cliquez sur le lien ci-dessous:
http://scraper.chez.tiscali.fr/contact.htm

scraper
Avatar
LE TROLL
Vade retro dans tes macros, t'es pas MVP VB, alors tu
connais la sortie, va jouer avec tes macros vbA ou avec
OutLook "petit", c'est pas la peine de répondre un truc
fulgurant du genre "ça aurait pu être mis aussi dans un
évènement click", et puis aussi "triple-click", et cætera...
Ça s'appelle "parler pour ne rien dire", salut :o)
------------------

"scraper" a écrit dans le message de
news:
LE TROLL, dans le message
news:ex0Z$
tu disais :


T'es vachement intelligent, heureusement que t'es là :o)



eh toi, l'usurpateur d'identité, lâche moi un peu, et va
déblatérer ailleurs tes salades et autres pseudo citations
latines qui fatiguent tout le monde ici

tu ferais mieux d'apprendre à quoter, du temps ça nous
ferait des vacances

fin de ce thread (pollué par ta réponse) en que qui me
concerne


--

Attention ! Adresse mail invalide ...
Pour me contacter, cliquez sur le lien ci-dessous:
http://scraper.chez.tiscali.fr/contact.htm

scraper


Avatar
scraper
Bonjour Guy FALESSE, dans le message
news:
tu disais :


Salut Scraper,

Merci de ta réponse.
Sur clic, ben oui, bien sûr.



pour compléter, et vu que tu n'as pas trouvé de réponse *valable* ... ;-)

'----

Private Sub Combo1_Click()

Dim k As Integer, i As Integer
Dim Path as String, Fichier as String

'Path= ' A compléter
'Fichier= ' A compléter

Combo1.RemoveItem Combo1.ListIndex
Combo1.Refresh

k = FreeFile
Open Path & "" & Fichier For Output As #k
For i = 0 To Combo1.ListCount
Print #k, Combo1.List(i)
Next
Close #k

End Sub

Private Sub Form_Load()

Combo1.AddItem "toto"
Combo1.AddItem "titi"
Combo1.AddItem "tata"

End Sub

'---

ce code ci est testé, et il fonctionne chez moi :-)

te reste juste à inscrire le Path et le nom du fichier texte que tu veuxc
écrire/modifier

PS : m'emm*** les TROLLEURS-usurpateurs d'identité qui n'ont, *eux* qu'à
retourner en VBa ;-)
je me suis *jamais* intéressé à VBa :-)


@+

Guy FALESSE

"scraper" a écrit dans le message de news:
%
Bonjour Guy FALESSE, dans le message
news:%
tu disais :

Je plaçais ma fonction *sur Change* et bien sûr à chaque foisq ue je
rentrais une lettre, elle était prise en compte.



et pourquoi pas Click ?

'---

Private Sub Combo1_Click()

MsgBox Combo1.List(Combo1.ListIndex)

End Sub

'---



--

Attention ! Adresse mail invalide ...
Pour me contacter, cliquez sur le lien ci-dessous:
http://scraper.chez.tiscali.fr/contact.htm

scraper





--

Attention ! Adresse mail invalide ...
Pour me contacter, cliquez sur le lien ci-dessous:
http://scraper.chez.tiscali.fr/contact.htm

scraper
1 2 3