Bonjour !
Je cherche à rendre deux combobox dépendants l'un de l'autre, avec des
données variant selon le choix sélectionné dans le 1er combobox (je désire
que la liste s'actualise dans le 2ème combobox en fonction de ce que je
sélectionne dans le 1er combobox).
Pouvez-vous m'aider ?
Merci bcp !
Bonjour !
Je cherche à rendre deux combobox dépendants l'un de l'autre, avec des
données variant selon le choix sélectionné dans le 1er combobox (je désire
que la liste s'actualise dans le 2ème combobox en fonction de ce que je
sélectionne dans le 1er combobox).
Pouvez-vous m'aider ?
Merci bcp !
Bonjour !
Je cherche à rendre deux combobox dépendants l'un de l'autre, avec des
données variant selon le choix sélectionné dans le 1er combobox (je désire
que la liste s'actualise dans le 2ème combobox en fonction de ce que je
sélectionne dans le 1er combobox).
Pouvez-vous m'aider ?
Merci bcp !
Bonjour !
Je cherche à rendre deux combobox dépendants l'un de l'autre, avec des
données variant selon le choix sélectionné dans le 1er combobox (je désire
que la liste s'actualise dans le 2ème combobox en fonction de ce que je
sélectionne dans le 1er combobox).
Pouvez-vous m'aider ?
Merci bcp !
Bonjour !
Je cherche à rendre deux combobox dépendants l'un de l'autre, avec des
données variant selon le choix sélectionné dans le 1er combobox (je désire
que la liste s'actualise dans le 2ème combobox en fonction de ce que je
sélectionne dans le 1er combobox).
Pouvez-vous m'aider ?
Merci bcp !
Bonjour !
Je cherche à rendre deux combobox dépendants l'un de l'autre, avec des
données variant selon le choix sélectionné dans le 1er combobox (je désire
que la liste s'actualise dans le 2ème combobox en fonction de ce que je
sélectionne dans le 1er combobox).
Pouvez-vous m'aider ?
Merci bcp !
Bonjour,
Faudrait quelques infos en +... Tu parles
"actualise dans le 2ème combobox en fonction de ce que je sélectionne dans
le 1er combobox"
C'est quoi actualiser, modifier l'ordre, supprimer, ajouter???
Les combo sont triés, non triés ???
Un petit exp pratique ???
:o)
--------------------
"Jennifer" a écrit dans le message de
news:
> Bonjour !
> Je cherche à rendre deux combobox dépendants l'un de l'autre, avec des
> données variant selon le choix sélectionné dans le 1er combobox (je désire
> que la liste s'actualise dans le 2ème combobox en fonction de ce que je
> sélectionne dans le 1er combobox).
> Pouvez-vous m'aider ?
> Merci bcp !
>
>
Bonjour,
Faudrait quelques infos en +... Tu parles
"actualise dans le 2ème combobox en fonction de ce que je sélectionne dans
le 1er combobox"
C'est quoi actualiser, modifier l'ordre, supprimer, ajouter???
Les combo sont triés, non triés ???
Un petit exp pratique ???
:o)
--------------------
"Jennifer" <Jennifer@discussions.microsoft.com> a écrit dans le message de
news: 6D61E212-DE64-45D7-916E-460DAB1C04C9@microsoft.com...
> Bonjour !
> Je cherche à rendre deux combobox dépendants l'un de l'autre, avec des
> données variant selon le choix sélectionné dans le 1er combobox (je désire
> que la liste s'actualise dans le 2ème combobox en fonction de ce que je
> sélectionne dans le 1er combobox).
> Pouvez-vous m'aider ?
> Merci bcp !
>
>
Bonjour,
Faudrait quelques infos en +... Tu parles
"actualise dans le 2ème combobox en fonction de ce que je sélectionne dans
le 1er combobox"
C'est quoi actualiser, modifier l'ordre, supprimer, ajouter???
Les combo sont triés, non triés ???
Un petit exp pratique ???
:o)
--------------------
"Jennifer" a écrit dans le message de
news:
> Bonjour !
> Je cherche à rendre deux combobox dépendants l'un de l'autre, avec des
> données variant selon le choix sélectionné dans le 1er combobox (je désire
> que la liste s'actualise dans le 2ème combobox en fonction de ce que je
> sélectionne dans le 1er combobox).
> Pouvez-vous m'aider ?
> Merci bcp !
>
>
En fait, disons que dans mon premier combobox, je choisis un pays dans la
liste. cf. Liste :
Allemagne
France
Suisse
Apparâit automatiquement alors dans la 2ème liste une ville de ce pays:
liste du 2ème combo :
si France est choisie alors villes qui apparaissent dans le 2nd combo :
Paris
Rodez
Strasbourg
Donc je veux que s'effacent les données du 2ème combo quand je change les
données du 1er combobox.
Globalement mes bases se présentent comme suit :
Allemagne Karlsruhe
Allemagne Stuttgart
France Paris
France Rodez
France Strasbourg
Suisse Berne
Suisse Genève
Suisse Zurich
Le 2nd combo cherche la ville dans la base par un tri du pays.
J'espère avoir été claire. J'ai un fichier constitué comme ça, je peux
l'envoyer à votre adresse si vous le voulez.
Merci d'avance à tous ceux qui pourront m'aider.
Bonne soirée,
Jennifer
"X" a écrit :
> Bonjour,
>
> Faudrait quelques infos en +... Tu parles
>
> "actualise dans le 2ème combobox en fonction de ce que je sélectionne
> le 1er combobox"
>
> C'est quoi actualiser, modifier l'ordre, supprimer, ajouter???
> Les combo sont triés, non triés ???
> Un petit exp pratique ???
> :o)
>
> --------------------
>
> "Jennifer" a écrit dans le message
> news:
> > Bonjour !
> > Je cherche à rendre deux combobox dépendants l'un de l'autre, avec des
> > données variant selon le choix sélectionné dans le 1er combobox (je
> > que la liste s'actualise dans le 2ème combobox en fonction de ce que
> > sélectionne dans le 1er combobox).
> > Pouvez-vous m'aider ?
> > Merci bcp !
> >
> >
>
>
>
En fait, disons que dans mon premier combobox, je choisis un pays dans la
liste. cf. Liste :
Allemagne
France
Suisse
Apparâit automatiquement alors dans la 2ème liste une ville de ce pays:
liste du 2ème combo :
si France est choisie alors villes qui apparaissent dans le 2nd combo :
Paris
Rodez
Strasbourg
Donc je veux que s'effacent les données du 2ème combo quand je change les
données du 1er combobox.
Globalement mes bases se présentent comme suit :
Allemagne Karlsruhe
Allemagne Stuttgart
France Paris
France Rodez
France Strasbourg
Suisse Berne
Suisse Genève
Suisse Zurich
Le 2nd combo cherche la ville dans la base par un tri du pays.
J'espère avoir été claire. J'ai un fichier constitué comme ça, je peux
l'envoyer à votre adresse si vous le voulez.
Merci d'avance à tous ceux qui pourront m'aider.
Bonne soirée,
Jennifer
"X" a écrit :
> Bonjour,
>
> Faudrait quelques infos en +... Tu parles
>
> "actualise dans le 2ème combobox en fonction de ce que je sélectionne
> le 1er combobox"
>
> C'est quoi actualiser, modifier l'ordre, supprimer, ajouter???
> Les combo sont triés, non triés ???
> Un petit exp pratique ???
> :o)
>
> --------------------
>
> "Jennifer" <Jennifer@discussions.microsoft.com> a écrit dans le message
> news: 6D61E212-DE64-45D7-916E-460DAB1C04C9@microsoft.com...
> > Bonjour !
> > Je cherche à rendre deux combobox dépendants l'un de l'autre, avec des
> > données variant selon le choix sélectionné dans le 1er combobox (je
> > que la liste s'actualise dans le 2ème combobox en fonction de ce que
> > sélectionne dans le 1er combobox).
> > Pouvez-vous m'aider ?
> > Merci bcp !
> >
> >
>
>
>
En fait, disons que dans mon premier combobox, je choisis un pays dans la
liste. cf. Liste :
Allemagne
France
Suisse
Apparâit automatiquement alors dans la 2ème liste une ville de ce pays:
liste du 2ème combo :
si France est choisie alors villes qui apparaissent dans le 2nd combo :
Paris
Rodez
Strasbourg
Donc je veux que s'effacent les données du 2ème combo quand je change les
données du 1er combobox.
Globalement mes bases se présentent comme suit :
Allemagne Karlsruhe
Allemagne Stuttgart
France Paris
France Rodez
France Strasbourg
Suisse Berne
Suisse Genève
Suisse Zurich
Le 2nd combo cherche la ville dans la base par un tri du pays.
J'espère avoir été claire. J'ai un fichier constitué comme ça, je peux
l'envoyer à votre adresse si vous le voulez.
Merci d'avance à tous ceux qui pourront m'aider.
Bonne soirée,
Jennifer
"X" a écrit :
> Bonjour,
>
> Faudrait quelques infos en +... Tu parles
>
> "actualise dans le 2ème combobox en fonction de ce que je sélectionne
> le 1er combobox"
>
> C'est quoi actualiser, modifier l'ordre, supprimer, ajouter???
> Les combo sont triés, non triés ???
> Un petit exp pratique ???
> :o)
>
> --------------------
>
> "Jennifer" a écrit dans le message
> news:
> > Bonjour !
> > Je cherche à rendre deux combobox dépendants l'un de l'autre, avec des
> > données variant selon le choix sélectionné dans le 1er combobox (je
> > que la liste s'actualise dans le 2ème combobox en fonction de ce que
> > sélectionne dans le 1er combobox).
> > Pouvez-vous m'aider ?
> > Merci bcp !
> >
> >
>
>
>
En fait, disons que dans mon premier combobox, je choisis un pays dans la
liste. cf. Liste :
Allemagne
France
Suisse
Apparâit automatiquement alors dans la 2ème liste une ville de ce pays:
liste du 2ème combo :
si France est choisie alors villes qui apparaissent dans le 2nd combo :
Paris
Rodez
Strasbourg
Donc je veux que s'effacent les données du 2ème combo quand je change les
données du 1er combobox.
Globalement mes bases se présentent comme suit :
Allemagne Karlsruhe
Allemagne Stuttgart
France Paris
France Rodez
France Strasbourg
Suisse Berne
Suisse Genève
Suisse Zurich
Le 2nd combo cherche la ville dans la base par un tri du pays.
J'espère avoir été claire. J'ai un fichier constitué comme ça, je peux
l'envoyer à votre adresse si vous le voulez.
Merci d'avance à tous ceux qui pourront m'aider.
Bonne soirée,
Jennifer
"X" a écrit :
> Bonjour,
>
> Faudrait quelques infos en +... Tu parles
>
> "actualise dans le 2ème combobox en fonction de ce que je sélectionne
> le 1er combobox"
>
> C'est quoi actualiser, modifier l'ordre, supprimer, ajouter???
> Les combo sont triés, non triés ???
> Un petit exp pratique ???
> :o)
>
> --------------------
>
> "Jennifer" a écrit dans le message
> news:
> > Bonjour !
> > Je cherche à rendre deux combobox dépendants l'un de l'autre, avec des
> > données variant selon le choix sélectionné dans le 1er combobox (je
> > que la liste s'actualise dans le 2ème combobox en fonction de ce que
> > sélectionne dans le 1er combobox).
> > Pouvez-vous m'aider ?
> > Merci bcp !
> >
> >
>
>
>
En fait, disons que dans mon premier combobox, je choisis un pays dans la
liste. cf. Liste :
Allemagne
France
Suisse
Apparâit automatiquement alors dans la 2ème liste une ville de ce pays:
liste du 2ème combo :
si France est choisie alors villes qui apparaissent dans le 2nd combo :
Paris
Rodez
Strasbourg
Donc je veux que s'effacent les données du 2ème combo quand je change les
données du 1er combobox.
Globalement mes bases se présentent comme suit :
Allemagne Karlsruhe
Allemagne Stuttgart
France Paris
France Rodez
France Strasbourg
Suisse Berne
Suisse Genève
Suisse Zurich
Le 2nd combo cherche la ville dans la base par un tri du pays.
J'espère avoir été claire. J'ai un fichier constitué comme ça, je peux
l'envoyer à votre adresse si vous le voulez.
Merci d'avance à tous ceux qui pourront m'aider.
Bonne soirée,
Jennifer
"X" a écrit :
> Bonjour,
>
> Faudrait quelques infos en +... Tu parles
>
> "actualise dans le 2ème combobox en fonction de ce que je sélectionne
> le 1er combobox"
>
> C'est quoi actualiser, modifier l'ordre, supprimer, ajouter???
> Les combo sont triés, non triés ???
> Un petit exp pratique ???
> :o)
>
> --------------------
>
> "Jennifer" <Jennifer@discussions.microsoft.com> a écrit dans le message
> news: 6D61E212-DE64-45D7-916E-460DAB1C04C9@microsoft.com...
> > Bonjour !
> > Je cherche à rendre deux combobox dépendants l'un de l'autre, avec des
> > données variant selon le choix sélectionné dans le 1er combobox (je
> > que la liste s'actualise dans le 2ème combobox en fonction de ce que
> > sélectionne dans le 1er combobox).
> > Pouvez-vous m'aider ?
> > Merci bcp !
> >
> >
>
>
>
En fait, disons que dans mon premier combobox, je choisis un pays dans la
liste. cf. Liste :
Allemagne
France
Suisse
Apparâit automatiquement alors dans la 2ème liste une ville de ce pays:
liste du 2ème combo :
si France est choisie alors villes qui apparaissent dans le 2nd combo :
Paris
Rodez
Strasbourg
Donc je veux que s'effacent les données du 2ème combo quand je change les
données du 1er combobox.
Globalement mes bases se présentent comme suit :
Allemagne Karlsruhe
Allemagne Stuttgart
France Paris
France Rodez
France Strasbourg
Suisse Berne
Suisse Genève
Suisse Zurich
Le 2nd combo cherche la ville dans la base par un tri du pays.
J'espère avoir été claire. J'ai un fichier constitué comme ça, je peux
l'envoyer à votre adresse si vous le voulez.
Merci d'avance à tous ceux qui pourront m'aider.
Bonne soirée,
Jennifer
"X" a écrit :
> Bonjour,
>
> Faudrait quelques infos en +... Tu parles
>
> "actualise dans le 2ème combobox en fonction de ce que je sélectionne
> le 1er combobox"
>
> C'est quoi actualiser, modifier l'ordre, supprimer, ajouter???
> Les combo sont triés, non triés ???
> Un petit exp pratique ???
> :o)
>
> --------------------
>
> "Jennifer" a écrit dans le message
> news:
> > Bonjour !
> > Je cherche à rendre deux combobox dépendants l'un de l'autre, avec des
> > données variant selon le choix sélectionné dans le 1er combobox (je
> > que la liste s'actualise dans le 2ème combobox en fonction de ce que
> > sélectionne dans le 1er combobox).
> > Pouvez-vous m'aider ?
> > Merci bcp !
> >
> >
>
>
>
Bonjour Jennifer, dans le message
news:
tu disais :
> En fait, disons que dans mon premier combobox, je choisis un pays
> dans la liste. cf. Liste :
> Allemagne
> France
> Suisse
essaie ce code
(la gestion d'erreur est très sommaire ...
'---8<----
'Dans une form qui comporte 2 combo, combo1 et combo2
Option Explicit
Private Declare Function GetPrivateProfileString Lib "kernel32" Alias
"GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal
lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As
String, ByVal nSize As Long, ByVal lpFileName As String) As Long
Private sPath As String
'Fonction lecture fichier ini
Public Function ReadIni(ByVal Section As String, ByVal Entry As String,
ByVal Path As String) As String
Dim Value As String
Dim boucle As Boolean
Dim nSize As Byte, NC As Byte
nSize = 255
boucle = True
Do While boucle
Value = String(nSize, 0)
NC = GetPrivateProfileString(Section, Entry, 0, Value, nSize, Path)
If NC = nSize - 1 And Right(Value, 1) = vbNullChar Then
nSize = nSize + 256
Else
ReadIni = Left(Value, NC)
boucle = False
End If
Loop
'ReadIni = Value
End Function
Private Sub Combo1_Click()
Dim sCity As String, tblCity() As String
Dim i As Byte
'récupère les infos stockées dans le fichier ini
sCity = ReadIni(Combo1.Text, "City", sPath)
'Intercepte l'absence de fichier, ou d'entrée
If sCity = "0" Then sCity = "(Vide ...)"
'Vide le combo 2
Combo2.Clear
'Vérifie si plusieurs villes renseignées
If InStr(1, sCity, ",") > 0 Then
tblCity = Split(sCity, ",")
For i = 0 To UBound(tblCity)
Combo2.AddItem tblCity(i)
Next
Else
Combo2.AddItem sCity
End If
If Combo2.ListCount > 0 Then Combo2.ListIndex = 0
End Sub
Private Sub Form_Load()
Dim sCountry As String, tblCountry() As String
Dim i As Byte
'Définit le chemin du fichier ini contenant les données
sPath = App.Path & "City.ini"
'récupère les infos de villes à charger
sCountry = ReadIni("Country", "Name", sPath)
'Intercepte l'absence de fichier, ou d'entrée
If sCountry = "0" Then sCountry = "(Vide ...)"
'Vérifie si plusieurs pays à charger
If InStr(1, sCountry, ",") > 0 Then
tblCountry = Split(sCountry, ",")
For i = 0 To UBound(tblCountry)
Combo1.AddItem tblCountry(i)
Next
Else
Combo1.AddItem sCountry
End If
If Combo1.ListCount > 0 Then Combo1.ListIndex = 0
End Sub
>
'---8<-----
dans l'emplacement de ton choix, place un fichier City.ini tel que ci
dessous (n'oublie pas de modifier en conséquences la variable sPath du code)
'-----8<-----
'Fichier City.ini
[Country]
Name=France,Allemagne,Suisse
[France]
City=Paris,Rodez,Strasbourg
[Allemagne]
City=Karlsruhe,Stuttgart
[Suisse]
City¾rne,Genève,Zurich
'---8<----
je te joins les fichiers en zip, vu leur faible poids ...
--
Adresse invalide
Merci de répondre sur le forum ...
http://scraper.chez-alice.fr
scraper
Bonjour Jennifer, dans le message
news:996AEAB9-FFB8-41B5-BE45-A5D4AD573877@microsoft.com
tu disais :
> En fait, disons que dans mon premier combobox, je choisis un pays
> dans la liste. cf. Liste :
> Allemagne
> France
> Suisse
essaie ce code
(la gestion d'erreur est très sommaire ...
'---8<----
'Dans une form qui comporte 2 combo, combo1 et combo2
Option Explicit
Private Declare Function GetPrivateProfileString Lib "kernel32" Alias
"GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal
lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As
String, ByVal nSize As Long, ByVal lpFileName As String) As Long
Private sPath As String
'Fonction lecture fichier ini
Public Function ReadIni(ByVal Section As String, ByVal Entry As String,
ByVal Path As String) As String
Dim Value As String
Dim boucle As Boolean
Dim nSize As Byte, NC As Byte
nSize = 255
boucle = True
Do While boucle
Value = String(nSize, 0)
NC = GetPrivateProfileString(Section, Entry, 0, Value, nSize, Path)
If NC = nSize - 1 And Right(Value, 1) = vbNullChar Then
nSize = nSize + 256
Else
ReadIni = Left(Value, NC)
boucle = False
End If
Loop
'ReadIni = Value
End Function
Private Sub Combo1_Click()
Dim sCity As String, tblCity() As String
Dim i As Byte
'récupère les infos stockées dans le fichier ini
sCity = ReadIni(Combo1.Text, "City", sPath)
'Intercepte l'absence de fichier, ou d'entrée
If sCity = "0" Then sCity = "(Vide ...)"
'Vide le combo 2
Combo2.Clear
'Vérifie si plusieurs villes renseignées
If InStr(1, sCity, ",") > 0 Then
tblCity = Split(sCity, ",")
For i = 0 To UBound(tblCity)
Combo2.AddItem tblCity(i)
Next
Else
Combo2.AddItem sCity
End If
If Combo2.ListCount > 0 Then Combo2.ListIndex = 0
End Sub
Private Sub Form_Load()
Dim sCountry As String, tblCountry() As String
Dim i As Byte
'Définit le chemin du fichier ini contenant les données
sPath = App.Path & "City.ini"
'récupère les infos de villes à charger
sCountry = ReadIni("Country", "Name", sPath)
'Intercepte l'absence de fichier, ou d'entrée
If sCountry = "0" Then sCountry = "(Vide ...)"
'Vérifie si plusieurs pays à charger
If InStr(1, sCountry, ",") > 0 Then
tblCountry = Split(sCountry, ",")
For i = 0 To UBound(tblCountry)
Combo1.AddItem tblCountry(i)
Next
Else
Combo1.AddItem sCountry
End If
If Combo1.ListCount > 0 Then Combo1.ListIndex = 0
End Sub
>
'---8<-----
dans l'emplacement de ton choix, place un fichier City.ini tel que ci
dessous (n'oublie pas de modifier en conséquences la variable sPath du code)
'-----8<-----
'Fichier City.ini
[Country]
Name=France,Allemagne,Suisse
[France]
City=Paris,Rodez,Strasbourg
[Allemagne]
City=Karlsruhe,Stuttgart
[Suisse]
City¾rne,Genève,Zurich
'---8<----
je te joins les fichiers en zip, vu leur faible poids ...
--
Adresse invalide
Merci de répondre sur le forum ...
http://scraper.chez-alice.fr
scraper
Bonjour Jennifer, dans le message
news:
tu disais :
> En fait, disons que dans mon premier combobox, je choisis un pays
> dans la liste. cf. Liste :
> Allemagne
> France
> Suisse
essaie ce code
(la gestion d'erreur est très sommaire ...
'---8<----
'Dans une form qui comporte 2 combo, combo1 et combo2
Option Explicit
Private Declare Function GetPrivateProfileString Lib "kernel32" Alias
"GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal
lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As
String, ByVal nSize As Long, ByVal lpFileName As String) As Long
Private sPath As String
'Fonction lecture fichier ini
Public Function ReadIni(ByVal Section As String, ByVal Entry As String,
ByVal Path As String) As String
Dim Value As String
Dim boucle As Boolean
Dim nSize As Byte, NC As Byte
nSize = 255
boucle = True
Do While boucle
Value = String(nSize, 0)
NC = GetPrivateProfileString(Section, Entry, 0, Value, nSize, Path)
If NC = nSize - 1 And Right(Value, 1) = vbNullChar Then
nSize = nSize + 256
Else
ReadIni = Left(Value, NC)
boucle = False
End If
Loop
'ReadIni = Value
End Function
Private Sub Combo1_Click()
Dim sCity As String, tblCity() As String
Dim i As Byte
'récupère les infos stockées dans le fichier ini
sCity = ReadIni(Combo1.Text, "City", sPath)
'Intercepte l'absence de fichier, ou d'entrée
If sCity = "0" Then sCity = "(Vide ...)"
'Vide le combo 2
Combo2.Clear
'Vérifie si plusieurs villes renseignées
If InStr(1, sCity, ",") > 0 Then
tblCity = Split(sCity, ",")
For i = 0 To UBound(tblCity)
Combo2.AddItem tblCity(i)
Next
Else
Combo2.AddItem sCity
End If
If Combo2.ListCount > 0 Then Combo2.ListIndex = 0
End Sub
Private Sub Form_Load()
Dim sCountry As String, tblCountry() As String
Dim i As Byte
'Définit le chemin du fichier ini contenant les données
sPath = App.Path & "City.ini"
'récupère les infos de villes à charger
sCountry = ReadIni("Country", "Name", sPath)
'Intercepte l'absence de fichier, ou d'entrée
If sCountry = "0" Then sCountry = "(Vide ...)"
'Vérifie si plusieurs pays à charger
If InStr(1, sCountry, ",") > 0 Then
tblCountry = Split(sCountry, ",")
For i = 0 To UBound(tblCountry)
Combo1.AddItem tblCountry(i)
Next
Else
Combo1.AddItem sCountry
End If
If Combo1.ListCount > 0 Then Combo1.ListIndex = 0
End Sub
>
'---8<-----
dans l'emplacement de ton choix, place un fichier City.ini tel que ci
dessous (n'oublie pas de modifier en conséquences la variable sPath du code)
'-----8<-----
'Fichier City.ini
[Country]
Name=France,Allemagne,Suisse
[France]
City=Paris,Rodez,Strasbourg
[Allemagne]
City=Karlsruhe,Stuttgart
[Suisse]
City¾rne,Genève,Zurich
'---8<----
je te joins les fichiers en zip, vu leur faible poids ...
--
Adresse invalide
Merci de répondre sur le forum ...
http://scraper.chez-alice.fr
scraper
Tiens, envoici un avec la saisie et l'impression, complet (livré
clef en main), ci-joint fichier à copier avec le code:
' lecture entre 2 combo : form 1
'
' ---> http://irolog.free.fr/ecrire/index.htm
'
' OBJETS = 15
' - combo1 + combo2 à style = 2
' - Text1 + text2 + text3 + text4
' - list1 à sorted=true
' - command1 + command2
' - label1 + 2 + 3 + 4 + 5 + 6
'
Option Explicit
Dim p1a As Long
Dim p1b As Long
Dim p1c As Long
Dim p1d As Long
Dim ligne As String
Dim pays As String
Dim ville As String
Dim i As Long
Dim j As Long
Dim k As Long
'
Sub Form_Load()
ChDrive App.Path ' mettre fichier dans même répertoire que programme
ChDir App.Path
Combo1.Clear
Combo2.Clear
Text1 = ""
Text2 = ""
Text3 = ""
List1.Clear
End Sub
Sub Form_Activate()
Dim ou As Integer
'
p1a = FreeFile ' on assigne 1 pointeur
On Error GoTo erreur ' inexistant
Open "pays_ville.txt" For Input As p1a ' on ouvre
'
Do While EOF(p1a) <> True ' tant que pas vide
If EOF(p1a) = True Then Exit Do
Line Input #p1a, ligne ' etraction lecture
List1.AddItem ligne
ou = InStr(1, ligne, " ", 1) ' localisation pays
pays = Mid(ligne, 1, ou - 1) ' extraction
Combo1.AddItem pays ' on met tout dans le combo
Loop
Close p1a
'
For i = (Combo1.ListCount - 2) To 0 Step -1 ' enlève doublons
If Combo1.List(i) = Combo1.List(i + 1) Then Combo1.RemoveItem i + 1
Next i
'
Combo1.Refresh
For i = 0 To Combo1.ListCount - 1 ' affiche "fr..." par défaut
If Combo1.List(i) = "France" Then
Combo1.ListIndex = i
Exit For
End If
Next i
'
List1.ListIndex = 0
Text4 = List1.ListCount
Call Combo1_Click ' appel choix combo2
Exit Sub
'
erreur:
Close p1a
On Error Resume Next
MsgBox Err.Number & vbLf & Err.Description & vbLf & Err.Source
End Sub
Sub Combo1_Click() ' click combo1
Dim lgr_pays As Byte
'
Combo2.Clear
pays = Combo1.List(Combo1.ListIndex)
lgr_pays = Len(pays)
p1b = FreeFile
Open "pays_ville.txt" For Input As p1b
'
Do While EOF(p1b) <> True
If EOF(p1b) = True Then Exit Do
Line Input #p1b, ligne
If pays = Mid(ligne, 1, lgr_pays) Then ' si trouvé pays = ramasse ville
ville = Mid(ligne, lgr_pays + 1, Len(ligne) - lgr_pays)
ville = Trim(ville) 'retasse
Combo2.AddItem ville
End If
Loop
'
Close p1b
Combo2.ListIndex = 0 'début liste
Text1 = Combo1.Text & " = " & Combo2.Text
End Sub
Sub Combo2_Click() ' click combo2
Text1 = Combo1.Text & " = " & Combo2.Text
End Sub
Sub Command1_Click() 'ajout
Dim rep
Dim octet As String * 1
Dim reste As String
'
Text2 = Trim(Text2)
Text3 = Trim(Text3)
If Len(Text2) < 2 Or Len(Text3) < 2 Then
erreur:
MsgBox "Saisie invalide ", vbExclamation
Exit Sub
End If
'
For i = 1 To Len(Text2)
If Mid(Text2, i, 1) = " " Then GoTo erreur
Next i
'
For i = 1 To Len(Text3)
If Mid(Text3, i, 1) = " " Then GoTo erreur
Next i
'
reste = LCase(Text2) ' 1ere majuscule, le reste en minuscules
octet = Mid(reste, 1, 1)
i = Len(reste)
reste = Mid(reste, 2, i - 1)
ligne = UCase(octet)
ligne = ligne & reste
Text2 = ligne
'
reste = LCase(Text3)
octet = Mid(reste, 1, 1)
i = Len(reste)
reste = Mid(reste, 2, i - 1)
ligne = UCase(octet)
ligne = ligne & reste
Text3 = ligne
'
ligne = Text2 & " " & Text3
For i = 0 To List1.ListCount - 1
If ligne = List1.List(i) Then
MsgBox "Existe déjà ", vbExclamation
Exit Sub
End If
Next i
'
rep = ""
rep = MsgBox("Confirmer l'ajout ", vbQuestion + vbDefaultButton2 +
vbYesNo)
If rep <> vbYes Then Exit Sub
'
List1.AddItem ligne 'rajout pays-ville
List1.Refresh
'
p1c = FreeFile
Open "pays_ville.tmp" For Output As p1c
For i = 0 To List1.ListCount - 1
ligne = List1.List(i)
Print #p1c, ligne
Next i
Close p1c
'
Kill "pays_ville.txt" ' double, protège d'une coupure jus ou système
FileCopy "pays_ville.tmp", "pays_ville.txt"
Kill "pays_ville.tmp"
Text2 = ""
Text3 = ""
Text4 = List1.ListCount
MsgBox "Ajour effectué ", vbInformation
End Sub
Sub List1_DblClick() 'suppression
Dim rep
'
If List1.ListIndex < 0 Then Exit Sub
rep = ""
rep = MsgBox("Confirmer la suppression ", vbQuestion + vbYesNo +
vbDefaultButton2)
If rep <> vbYes Then Exit Sub
'
List1.RemoveItem List1.ListIndex
List1.Refresh
'
p1d = FreeFile
Open "pays_ville.tmp" For Output As p1d
For i = 0 To List1.ListCount - 1
ligne = List1.List(i)
Print #p1d, ligne
Next i
Close p1d
'
Kill "pays_ville.txt"
FileCopy "pays_ville.tmp", "pays_ville.txt"
Kill "pays_ville.tmp"
Text4 = List1.ListCount
MsgBox "Suppression effectué ", vbInformation
End Sub
Sub Command2_Click() 'imprime
Dim rep
Dim fin As Boolean
'
If List1.ListCount < 1 Then Exit Sub
rep = ""
rep = MsgBox("Confirmer l'impression ", vbQuestion + vbDefaultButton2 +
vbYesNo)
If rep <> vbYes Then Exit Sub
'
Printer.FontName = "courier new"
Printer.FontSize = 10
Printer.Orientation = 1
Printer.Print ""
Printer.Print ""
j = 1
k = 1
'
For i = 0 To List1.ListCount - 1
fin = False
Printer.Print " " & List1.List(i)
j = j + 1
If j = 58 Then ' fin page
j = 0
Printer.Print " " & k
k = k + 1
Printer.NewPage
Printer.Print ""
Printer.Print ""
fin = True
End If
Next i
'
If fin = False Then
Printer.Print ""
Printer.Print " " & k
End If
Printer.EndDoc
End Sub
'---------------FIN----------------
"Jennifer" a écrit dans le message de
news:
> En fait, disons que dans mon premier combobox, je choisis un pays dans la
> liste. cf. Liste :
> Allemagne
> France
> Suisse
>
> Apparâit automatiquement alors dans la 2ème liste une ville de ce pays:
> liste du 2ème combo :
> si France est choisie alors villes qui apparaissent dans le 2nd combo :
> Paris
> Rodez
> Strasbourg
>
> Donc je veux que s'effacent les données du 2ème combo quand je change les
> données du 1er combobox.
> Globalement mes bases se présentent comme suit :
> Allemagne Karlsruhe
> Allemagne Stuttgart
> France Paris
> France Rodez
> France Strasbourg
> Suisse Berne
> Suisse Genève
> Suisse Zurich
>
> Le 2nd combo cherche la ville dans la base par un tri du pays.
>
> J'espère avoir été claire. J'ai un fichier constitué comme ça, je peux
> l'envoyer à votre adresse si vous le voulez.
> Merci d'avance à tous ceux qui pourront m'aider.
>
> Bonne soirée,
> Jennifer
>
>
>
>
> "X" a écrit :
>
> > Bonjour,
> >
> > Faudrait quelques infos en +... Tu parles
Tiens, envoici un avec la saisie et l'impression, complet (livré
clef en main), ci-joint fichier à copier avec le code:
' lecture entre 2 combo : form 1
'
' ---> http://irolog.free.fr/ecrire/index.htm
'
' OBJETS = 15
' - combo1 + combo2 à style = 2
' - Text1 + text2 + text3 + text4
' - list1 à sorted=true
' - command1 + command2
' - label1 + 2 + 3 + 4 + 5 + 6
'
Option Explicit
Dim p1a As Long
Dim p1b As Long
Dim p1c As Long
Dim p1d As Long
Dim ligne As String
Dim pays As String
Dim ville As String
Dim i As Long
Dim j As Long
Dim k As Long
'
Sub Form_Load()
ChDrive App.Path ' mettre fichier dans même répertoire que programme
ChDir App.Path
Combo1.Clear
Combo2.Clear
Text1 = ""
Text2 = ""
Text3 = ""
List1.Clear
End Sub
Sub Form_Activate()
Dim ou As Integer
'
p1a = FreeFile ' on assigne 1 pointeur
On Error GoTo erreur ' inexistant
Open "pays_ville.txt" For Input As p1a ' on ouvre
'
Do While EOF(p1a) <> True ' tant que pas vide
If EOF(p1a) = True Then Exit Do
Line Input #p1a, ligne ' etraction lecture
List1.AddItem ligne
ou = InStr(1, ligne, " ", 1) ' localisation pays
pays = Mid(ligne, 1, ou - 1) ' extraction
Combo1.AddItem pays ' on met tout dans le combo
Loop
Close p1a
'
For i = (Combo1.ListCount - 2) To 0 Step -1 ' enlève doublons
If Combo1.List(i) = Combo1.List(i + 1) Then Combo1.RemoveItem i + 1
Next i
'
Combo1.Refresh
For i = 0 To Combo1.ListCount - 1 ' affiche "fr..." par défaut
If Combo1.List(i) = "France" Then
Combo1.ListIndex = i
Exit For
End If
Next i
'
List1.ListIndex = 0
Text4 = List1.ListCount
Call Combo1_Click ' appel choix combo2
Exit Sub
'
erreur:
Close p1a
On Error Resume Next
MsgBox Err.Number & vbLf & Err.Description & vbLf & Err.Source
End Sub
Sub Combo1_Click() ' click combo1
Dim lgr_pays As Byte
'
Combo2.Clear
pays = Combo1.List(Combo1.ListIndex)
lgr_pays = Len(pays)
p1b = FreeFile
Open "pays_ville.txt" For Input As p1b
'
Do While EOF(p1b) <> True
If EOF(p1b) = True Then Exit Do
Line Input #p1b, ligne
If pays = Mid(ligne, 1, lgr_pays) Then ' si trouvé pays = ramasse ville
ville = Mid(ligne, lgr_pays + 1, Len(ligne) - lgr_pays)
ville = Trim(ville) 'retasse
Combo2.AddItem ville
End If
Loop
'
Close p1b
Combo2.ListIndex = 0 'début liste
Text1 = Combo1.Text & " = " & Combo2.Text
End Sub
Sub Combo2_Click() ' click combo2
Text1 = Combo1.Text & " = " & Combo2.Text
End Sub
Sub Command1_Click() 'ajout
Dim rep
Dim octet As String * 1
Dim reste As String
'
Text2 = Trim(Text2)
Text3 = Trim(Text3)
If Len(Text2) < 2 Or Len(Text3) < 2 Then
erreur:
MsgBox "Saisie invalide ", vbExclamation
Exit Sub
End If
'
For i = 1 To Len(Text2)
If Mid(Text2, i, 1) = " " Then GoTo erreur
Next i
'
For i = 1 To Len(Text3)
If Mid(Text3, i, 1) = " " Then GoTo erreur
Next i
'
reste = LCase(Text2) ' 1ere majuscule, le reste en minuscules
octet = Mid(reste, 1, 1)
i = Len(reste)
reste = Mid(reste, 2, i - 1)
ligne = UCase(octet)
ligne = ligne & reste
Text2 = ligne
'
reste = LCase(Text3)
octet = Mid(reste, 1, 1)
i = Len(reste)
reste = Mid(reste, 2, i - 1)
ligne = UCase(octet)
ligne = ligne & reste
Text3 = ligne
'
ligne = Text2 & " " & Text3
For i = 0 To List1.ListCount - 1
If ligne = List1.List(i) Then
MsgBox "Existe déjà ", vbExclamation
Exit Sub
End If
Next i
'
rep = ""
rep = MsgBox("Confirmer l'ajout ", vbQuestion + vbDefaultButton2 +
vbYesNo)
If rep <> vbYes Then Exit Sub
'
List1.AddItem ligne 'rajout pays-ville
List1.Refresh
'
p1c = FreeFile
Open "pays_ville.tmp" For Output As p1c
For i = 0 To List1.ListCount - 1
ligne = List1.List(i)
Print #p1c, ligne
Next i
Close p1c
'
Kill "pays_ville.txt" ' double, protège d'une coupure jus ou système
FileCopy "pays_ville.tmp", "pays_ville.txt"
Kill "pays_ville.tmp"
Text2 = ""
Text3 = ""
Text4 = List1.ListCount
MsgBox "Ajour effectué ", vbInformation
End Sub
Sub List1_DblClick() 'suppression
Dim rep
'
If List1.ListIndex < 0 Then Exit Sub
rep = ""
rep = MsgBox("Confirmer la suppression ", vbQuestion + vbYesNo +
vbDefaultButton2)
If rep <> vbYes Then Exit Sub
'
List1.RemoveItem List1.ListIndex
List1.Refresh
'
p1d = FreeFile
Open "pays_ville.tmp" For Output As p1d
For i = 0 To List1.ListCount - 1
ligne = List1.List(i)
Print #p1d, ligne
Next i
Close p1d
'
Kill "pays_ville.txt"
FileCopy "pays_ville.tmp", "pays_ville.txt"
Kill "pays_ville.tmp"
Text4 = List1.ListCount
MsgBox "Suppression effectué ", vbInformation
End Sub
Sub Command2_Click() 'imprime
Dim rep
Dim fin As Boolean
'
If List1.ListCount < 1 Then Exit Sub
rep = ""
rep = MsgBox("Confirmer l'impression ", vbQuestion + vbDefaultButton2 +
vbYesNo)
If rep <> vbYes Then Exit Sub
'
Printer.FontName = "courier new"
Printer.FontSize = 10
Printer.Orientation = 1
Printer.Print ""
Printer.Print ""
j = 1
k = 1
'
For i = 0 To List1.ListCount - 1
fin = False
Printer.Print " " & List1.List(i)
j = j + 1
If j = 58 Then ' fin page
j = 0
Printer.Print " " & k
k = k + 1
Printer.NewPage
Printer.Print ""
Printer.Print ""
fin = True
End If
Next i
'
If fin = False Then
Printer.Print ""
Printer.Print " " & k
End If
Printer.EndDoc
End Sub
'---------------FIN----------------
"Jennifer" <Jennifer@discussions.microsoft.com> a écrit dans le message de
news: 996AEAB9-FFB8-41B5-BE45-A5D4AD573877@microsoft.com...
> En fait, disons que dans mon premier combobox, je choisis un pays dans la
> liste. cf. Liste :
> Allemagne
> France
> Suisse
>
> Apparâit automatiquement alors dans la 2ème liste une ville de ce pays:
> liste du 2ème combo :
> si France est choisie alors villes qui apparaissent dans le 2nd combo :
> Paris
> Rodez
> Strasbourg
>
> Donc je veux que s'effacent les données du 2ème combo quand je change les
> données du 1er combobox.
> Globalement mes bases se présentent comme suit :
> Allemagne Karlsruhe
> Allemagne Stuttgart
> France Paris
> France Rodez
> France Strasbourg
> Suisse Berne
> Suisse Genève
> Suisse Zurich
>
> Le 2nd combo cherche la ville dans la base par un tri du pays.
>
> J'espère avoir été claire. J'ai un fichier constitué comme ça, je peux
> l'envoyer à votre adresse si vous le voulez.
> Merci d'avance à tous ceux qui pourront m'aider.
>
> Bonne soirée,
> Jennifer
>
>
>
>
> "X" a écrit :
>
> > Bonjour,
> >
> > Faudrait quelques infos en +... Tu parles
Tiens, envoici un avec la saisie et l'impression, complet (livré
clef en main), ci-joint fichier à copier avec le code:
' lecture entre 2 combo : form 1
'
' ---> http://irolog.free.fr/ecrire/index.htm
'
' OBJETS = 15
' - combo1 + combo2 à style = 2
' - Text1 + text2 + text3 + text4
' - list1 à sorted=true
' - command1 + command2
' - label1 + 2 + 3 + 4 + 5 + 6
'
Option Explicit
Dim p1a As Long
Dim p1b As Long
Dim p1c As Long
Dim p1d As Long
Dim ligne As String
Dim pays As String
Dim ville As String
Dim i As Long
Dim j As Long
Dim k As Long
'
Sub Form_Load()
ChDrive App.Path ' mettre fichier dans même répertoire que programme
ChDir App.Path
Combo1.Clear
Combo2.Clear
Text1 = ""
Text2 = ""
Text3 = ""
List1.Clear
End Sub
Sub Form_Activate()
Dim ou As Integer
'
p1a = FreeFile ' on assigne 1 pointeur
On Error GoTo erreur ' inexistant
Open "pays_ville.txt" For Input As p1a ' on ouvre
'
Do While EOF(p1a) <> True ' tant que pas vide
If EOF(p1a) = True Then Exit Do
Line Input #p1a, ligne ' etraction lecture
List1.AddItem ligne
ou = InStr(1, ligne, " ", 1) ' localisation pays
pays = Mid(ligne, 1, ou - 1) ' extraction
Combo1.AddItem pays ' on met tout dans le combo
Loop
Close p1a
'
For i = (Combo1.ListCount - 2) To 0 Step -1 ' enlève doublons
If Combo1.List(i) = Combo1.List(i + 1) Then Combo1.RemoveItem i + 1
Next i
'
Combo1.Refresh
For i = 0 To Combo1.ListCount - 1 ' affiche "fr..." par défaut
If Combo1.List(i) = "France" Then
Combo1.ListIndex = i
Exit For
End If
Next i
'
List1.ListIndex = 0
Text4 = List1.ListCount
Call Combo1_Click ' appel choix combo2
Exit Sub
'
erreur:
Close p1a
On Error Resume Next
MsgBox Err.Number & vbLf & Err.Description & vbLf & Err.Source
End Sub
Sub Combo1_Click() ' click combo1
Dim lgr_pays As Byte
'
Combo2.Clear
pays = Combo1.List(Combo1.ListIndex)
lgr_pays = Len(pays)
p1b = FreeFile
Open "pays_ville.txt" For Input As p1b
'
Do While EOF(p1b) <> True
If EOF(p1b) = True Then Exit Do
Line Input #p1b, ligne
If pays = Mid(ligne, 1, lgr_pays) Then ' si trouvé pays = ramasse ville
ville = Mid(ligne, lgr_pays + 1, Len(ligne) - lgr_pays)
ville = Trim(ville) 'retasse
Combo2.AddItem ville
End If
Loop
'
Close p1b
Combo2.ListIndex = 0 'début liste
Text1 = Combo1.Text & " = " & Combo2.Text
End Sub
Sub Combo2_Click() ' click combo2
Text1 = Combo1.Text & " = " & Combo2.Text
End Sub
Sub Command1_Click() 'ajout
Dim rep
Dim octet As String * 1
Dim reste As String
'
Text2 = Trim(Text2)
Text3 = Trim(Text3)
If Len(Text2) < 2 Or Len(Text3) < 2 Then
erreur:
MsgBox "Saisie invalide ", vbExclamation
Exit Sub
End If
'
For i = 1 To Len(Text2)
If Mid(Text2, i, 1) = " " Then GoTo erreur
Next i
'
For i = 1 To Len(Text3)
If Mid(Text3, i, 1) = " " Then GoTo erreur
Next i
'
reste = LCase(Text2) ' 1ere majuscule, le reste en minuscules
octet = Mid(reste, 1, 1)
i = Len(reste)
reste = Mid(reste, 2, i - 1)
ligne = UCase(octet)
ligne = ligne & reste
Text2 = ligne
'
reste = LCase(Text3)
octet = Mid(reste, 1, 1)
i = Len(reste)
reste = Mid(reste, 2, i - 1)
ligne = UCase(octet)
ligne = ligne & reste
Text3 = ligne
'
ligne = Text2 & " " & Text3
For i = 0 To List1.ListCount - 1
If ligne = List1.List(i) Then
MsgBox "Existe déjà ", vbExclamation
Exit Sub
End If
Next i
'
rep = ""
rep = MsgBox("Confirmer l'ajout ", vbQuestion + vbDefaultButton2 +
vbYesNo)
If rep <> vbYes Then Exit Sub
'
List1.AddItem ligne 'rajout pays-ville
List1.Refresh
'
p1c = FreeFile
Open "pays_ville.tmp" For Output As p1c
For i = 0 To List1.ListCount - 1
ligne = List1.List(i)
Print #p1c, ligne
Next i
Close p1c
'
Kill "pays_ville.txt" ' double, protège d'une coupure jus ou système
FileCopy "pays_ville.tmp", "pays_ville.txt"
Kill "pays_ville.tmp"
Text2 = ""
Text3 = ""
Text4 = List1.ListCount
MsgBox "Ajour effectué ", vbInformation
End Sub
Sub List1_DblClick() 'suppression
Dim rep
'
If List1.ListIndex < 0 Then Exit Sub
rep = ""
rep = MsgBox("Confirmer la suppression ", vbQuestion + vbYesNo +
vbDefaultButton2)
If rep <> vbYes Then Exit Sub
'
List1.RemoveItem List1.ListIndex
List1.Refresh
'
p1d = FreeFile
Open "pays_ville.tmp" For Output As p1d
For i = 0 To List1.ListCount - 1
ligne = List1.List(i)
Print #p1d, ligne
Next i
Close p1d
'
Kill "pays_ville.txt"
FileCopy "pays_ville.tmp", "pays_ville.txt"
Kill "pays_ville.tmp"
Text4 = List1.ListCount
MsgBox "Suppression effectué ", vbInformation
End Sub
Sub Command2_Click() 'imprime
Dim rep
Dim fin As Boolean
'
If List1.ListCount < 1 Then Exit Sub
rep = ""
rep = MsgBox("Confirmer l'impression ", vbQuestion + vbDefaultButton2 +
vbYesNo)
If rep <> vbYes Then Exit Sub
'
Printer.FontName = "courier new"
Printer.FontSize = 10
Printer.Orientation = 1
Printer.Print ""
Printer.Print ""
j = 1
k = 1
'
For i = 0 To List1.ListCount - 1
fin = False
Printer.Print " " & List1.List(i)
j = j + 1
If j = 58 Then ' fin page
j = 0
Printer.Print " " & k
k = k + 1
Printer.NewPage
Printer.Print ""
Printer.Print ""
fin = True
End If
Next i
'
If fin = False Then
Printer.Print ""
Printer.Print " " & k
End If
Printer.EndDoc
End Sub
'---------------FIN----------------
"Jennifer" a écrit dans le message de
news:
> En fait, disons que dans mon premier combobox, je choisis un pays dans la
> liste. cf. Liste :
> Allemagne
> France
> Suisse
>
> Apparâit automatiquement alors dans la 2ème liste une ville de ce pays:
> liste du 2ème combo :
> si France est choisie alors villes qui apparaissent dans le 2nd combo :
> Paris
> Rodez
> Strasbourg
>
> Donc je veux que s'effacent les données du 2ème combo quand je change les
> données du 1er combobox.
> Globalement mes bases se présentent comme suit :
> Allemagne Karlsruhe
> Allemagne Stuttgart
> France Paris
> France Rodez
> France Strasbourg
> Suisse Berne
> Suisse Genève
> Suisse Zurich
>
> Le 2nd combo cherche la ville dans la base par un tri du pays.
>
> J'espère avoir été claire. J'ai un fichier constitué comme ça, je peux
> l'envoyer à votre adresse si vous le voulez.
> Merci d'avance à tous ceux qui pourront m'aider.
>
> Bonne soirée,
> Jennifer
>
>
>
>
> "X" a écrit :
>
> > Bonjour,
> >
> > Faudrait quelques infos en +... Tu parles
Bonjour, bonjour !
Ca fait plaisir comme tout que tu aies une solution !
Je vais recopier tout ça et comprendre (merci pour les commentaires)
comment ça marche. Par contre, le fichier zip n'a pu passer.
Bonjour, bonjour !
Ca fait plaisir comme tout que tu aies une solution !
Je vais recopier tout ça et comprendre (merci pour les commentaires)
comment ça marche. Par contre, le fichier zip n'a pu passer.
Bonjour, bonjour !
Ca fait plaisir comme tout que tu aies une solution !
Je vais recopier tout ça et comprendre (merci pour les commentaires)
comment ça marche. Par contre, le fichier zip n'a pu passer.
Bonjour à toi sauveur !!!!!
Merci beaucoup de m'avoir apporté une solution et de me sortir de mon
pétrin !
Comme j'ai pu le dire auparavant, je vais tenter de comprendre le code
(les
commentaires vont bien m'être utiles, trop bien) !!!!!!
A charge de revanche,
Très bonne soirée et très bon WE,
Jennifer
"X" a écrit :Tiens, envoici un avec la saisie et l'impression, complet (livré
clef en main), ci-joint fichier à copier avec le code:
' lecture entre 2 combo : form 1
'
' ---> http://irolog.free.fr/ecrire/index.htm
'
' OBJETS = 15
' - combo1 + combo2 à style = 2
' - Text1 + text2 + text3 + text4
' - list1 à sorted=true
' - command1 + command2
' - label1 + 2 + 3 + 4 + 5 + 6
'
Option Explicit
Dim p1a As Long
Dim p1b As Long
Dim p1c As Long
Dim p1d As Long
Dim ligne As String
Dim pays As String
Dim ville As String
Dim i As Long
Dim j As Long
Dim k As Long
'
Sub Form_Load()
ChDrive App.Path ' mettre fichier dans même répertoire que programme
ChDir App.Path
Combo1.Clear
Combo2.Clear
Text1 = ""
Text2 = ""
Text3 = ""
List1.Clear
End Sub
Sub Form_Activate()
Dim ou As Integer
'
p1a = FreeFile ' on assigne 1 pointeur
On Error GoTo erreur ' inexistant
Open "pays_ville.txt" For Input As p1a ' on ouvre
'
Do While EOF(p1a) <> True ' tant que pas vide
If EOF(p1a) = True Then Exit Do
Line Input #p1a, ligne ' etraction lecture
List1.AddItem ligne
ou = InStr(1, ligne, " ", 1) ' localisation pays
pays = Mid(ligne, 1, ou - 1) ' extraction
Combo1.AddItem pays ' on met tout dans le combo
Loop
Close p1a
'
For i = (Combo1.ListCount - 2) To 0 Step -1 ' enlève doublons
If Combo1.List(i) = Combo1.List(i + 1) Then Combo1.RemoveItem i + 1
Next i
'
Combo1.Refresh
For i = 0 To Combo1.ListCount - 1 ' affiche "fr..." par défaut
If Combo1.List(i) = "France" Then
Combo1.ListIndex = i
Exit For
End If
Next i
'
List1.ListIndex = 0
Text4 = List1.ListCount
Call Combo1_Click ' appel choix combo2
Exit Sub
'
erreur:
Close p1a
On Error Resume Next
MsgBox Err.Number & vbLf & Err.Description & vbLf & Err.Source
End Sub
Sub Combo1_Click() ' click combo1
Dim lgr_pays As Byte
'
Combo2.Clear
pays = Combo1.List(Combo1.ListIndex)
lgr_pays = Len(pays)
p1b = FreeFile
Open "pays_ville.txt" For Input As p1b
'
Do While EOF(p1b) <> True
If EOF(p1b) = True Then Exit Do
Line Input #p1b, ligne
If pays = Mid(ligne, 1, lgr_pays) Then ' si trouvé pays = ramasse
ville
ville = Mid(ligne, lgr_pays + 1, Len(ligne) - lgr_pays)
ville = Trim(ville) 'retasse
Combo2.AddItem ville
End If
Loop
'
Close p1b
Combo2.ListIndex = 0 'début liste
Text1 = Combo1.Text & " = " & Combo2.Text
End Sub
Sub Combo2_Click() ' click combo2
Text1 = Combo1.Text & " = " & Combo2.Text
End Sub
Sub Command1_Click() 'ajout
Dim rep
Dim octet As String * 1
Dim reste As String
'
Text2 = Trim(Text2)
Text3 = Trim(Text3)
If Len(Text2) < 2 Or Len(Text3) < 2 Then
erreur:
MsgBox "Saisie invalide ", vbExclamation
Exit Sub
End If
'
For i = 1 To Len(Text2)
If Mid(Text2, i, 1) = " " Then GoTo erreur
Next i
'
For i = 1 To Len(Text3)
If Mid(Text3, i, 1) = " " Then GoTo erreur
Next i
'
reste = LCase(Text2) ' 1ere majuscule, le reste en minuscules
octet = Mid(reste, 1, 1)
i = Len(reste)
reste = Mid(reste, 2, i - 1)
ligne = UCase(octet)
ligne = ligne & reste
Text2 = ligne
'
reste = LCase(Text3)
octet = Mid(reste, 1, 1)
i = Len(reste)
reste = Mid(reste, 2, i - 1)
ligne = UCase(octet)
ligne = ligne & reste
Text3 = ligne
'
ligne = Text2 & " " & Text3
For i = 0 To List1.ListCount - 1
If ligne = List1.List(i) Then
MsgBox "Existe déjà ", vbExclamation
Exit Sub
End If
Next i
'
rep = ""
rep = MsgBox("Confirmer l'ajout ", vbQuestion + vbDefaultButton2 +
vbYesNo)
If rep <> vbYes Then Exit Sub
'
List1.AddItem ligne 'rajout pays-ville
List1.Refresh
'
p1c = FreeFile
Open "pays_ville.tmp" For Output As p1c
For i = 0 To List1.ListCount - 1
ligne = List1.List(i)
Print #p1c, ligne
Next i
Close p1c
'
Kill "pays_ville.txt" ' double, protège d'une coupure jus ou système
FileCopy "pays_ville.tmp", "pays_ville.txt"
Kill "pays_ville.tmp"
Text2 = ""
Text3 = ""
Text4 = List1.ListCount
MsgBox "Ajour effectué ", vbInformation
End Sub
Sub List1_DblClick() 'suppression
Dim rep
'
If List1.ListIndex < 0 Then Exit Sub
rep = ""
rep = MsgBox("Confirmer la suppression ", vbQuestion + vbYesNo +
vbDefaultButton2)
If rep <> vbYes Then Exit Sub
'
List1.RemoveItem List1.ListIndex
List1.Refresh
'
p1d = FreeFile
Open "pays_ville.tmp" For Output As p1d
For i = 0 To List1.ListCount - 1
ligne = List1.List(i)
Print #p1d, ligne
Next i
Close p1d
'
Kill "pays_ville.txt"
FileCopy "pays_ville.tmp", "pays_ville.txt"
Kill "pays_ville.tmp"
Text4 = List1.ListCount
MsgBox "Suppression effectué ", vbInformation
End Sub
Sub Command2_Click() 'imprime
Dim rep
Dim fin As Boolean
'
If List1.ListCount < 1 Then Exit Sub
rep = ""
rep = MsgBox("Confirmer l'impression ", vbQuestion + vbDefaultButton2
+
vbYesNo)
If rep <> vbYes Then Exit Sub
'
Printer.FontName = "courier new"
Printer.FontSize = 10
Printer.Orientation = 1
Printer.Print ""
Printer.Print ""
j = 1
k = 1
'
For i = 0 To List1.ListCount - 1
fin = False
Printer.Print " " & List1.List(i)
j = j + 1
If j = 58 Then ' fin page
j = 0
Printer.Print " " & k
k = k + 1
Printer.NewPage
Printer.Print ""
Printer.Print ""
fin = True
End If
Next i
'
If fin = False Then
Printer.Print ""
Printer.Print " " & k
End If
Printer.EndDoc
End Sub
'---------------FIN----------------
"Jennifer" a écrit dans le message
de
news:
> En fait, disons que dans mon premier combobox, je choisis un pays dans
> la
> liste. cf. Liste :
> Allemagne
> France
> Suisse
>
> Apparâit automatiquement alors dans la 2ème liste une ville de ce pays:
> liste du 2ème combo :
> si France est choisie alors villes qui apparaissent dans le 2nd combo :
> Paris
> Rodez
> Strasbourg
>
> Donc je veux que s'effacent les données du 2ème combo quand je change
> les
> données du 1er combobox.
> Globalement mes bases se présentent comme suit :
> Allemagne Karlsruhe
> Allemagne Stuttgart
> France Paris
> France Rodez
> France Strasbourg
> Suisse Berne
> Suisse Genève
> Suisse Zurich
>
> Le 2nd combo cherche la ville dans la base par un tri du pays.
>
> J'espère avoir été claire. J'ai un fichier constitué comme ça, je peux
> l'envoyer à votre adresse si vous le voulez.
> Merci d'avance à tous ceux qui pourront m'aider.
>
> Bonne soirée,
> Jennifer
>
>
>
>
> "X" a écrit :
>
> > Bonjour,
> >
> > Faudrait quelques infos en +... Tu parles
Bonjour à toi sauveur !!!!!
Merci beaucoup de m'avoir apporté une solution et de me sortir de mon
pétrin !
Comme j'ai pu le dire auparavant, je vais tenter de comprendre le code
(les
commentaires vont bien m'être utiles, trop bien) !!!!!!
A charge de revanche,
Très bonne soirée et très bon WE,
Jennifer
"X" a écrit :
Tiens, envoici un avec la saisie et l'impression, complet (livré
clef en main), ci-joint fichier à copier avec le code:
' lecture entre 2 combo : form 1
'
' ---> http://irolog.free.fr/ecrire/index.htm
'
' OBJETS = 15
' - combo1 + combo2 à style = 2
' - Text1 + text2 + text3 + text4
' - list1 à sorted=true
' - command1 + command2
' - label1 + 2 + 3 + 4 + 5 + 6
'
Option Explicit
Dim p1a As Long
Dim p1b As Long
Dim p1c As Long
Dim p1d As Long
Dim ligne As String
Dim pays As String
Dim ville As String
Dim i As Long
Dim j As Long
Dim k As Long
'
Sub Form_Load()
ChDrive App.Path ' mettre fichier dans même répertoire que programme
ChDir App.Path
Combo1.Clear
Combo2.Clear
Text1 = ""
Text2 = ""
Text3 = ""
List1.Clear
End Sub
Sub Form_Activate()
Dim ou As Integer
'
p1a = FreeFile ' on assigne 1 pointeur
On Error GoTo erreur ' inexistant
Open "pays_ville.txt" For Input As p1a ' on ouvre
'
Do While EOF(p1a) <> True ' tant que pas vide
If EOF(p1a) = True Then Exit Do
Line Input #p1a, ligne ' etraction lecture
List1.AddItem ligne
ou = InStr(1, ligne, " ", 1) ' localisation pays
pays = Mid(ligne, 1, ou - 1) ' extraction
Combo1.AddItem pays ' on met tout dans le combo
Loop
Close p1a
'
For i = (Combo1.ListCount - 2) To 0 Step -1 ' enlève doublons
If Combo1.List(i) = Combo1.List(i + 1) Then Combo1.RemoveItem i + 1
Next i
'
Combo1.Refresh
For i = 0 To Combo1.ListCount - 1 ' affiche "fr..." par défaut
If Combo1.List(i) = "France" Then
Combo1.ListIndex = i
Exit For
End If
Next i
'
List1.ListIndex = 0
Text4 = List1.ListCount
Call Combo1_Click ' appel choix combo2
Exit Sub
'
erreur:
Close p1a
On Error Resume Next
MsgBox Err.Number & vbLf & Err.Description & vbLf & Err.Source
End Sub
Sub Combo1_Click() ' click combo1
Dim lgr_pays As Byte
'
Combo2.Clear
pays = Combo1.List(Combo1.ListIndex)
lgr_pays = Len(pays)
p1b = FreeFile
Open "pays_ville.txt" For Input As p1b
'
Do While EOF(p1b) <> True
If EOF(p1b) = True Then Exit Do
Line Input #p1b, ligne
If pays = Mid(ligne, 1, lgr_pays) Then ' si trouvé pays = ramasse
ville
ville = Mid(ligne, lgr_pays + 1, Len(ligne) - lgr_pays)
ville = Trim(ville) 'retasse
Combo2.AddItem ville
End If
Loop
'
Close p1b
Combo2.ListIndex = 0 'début liste
Text1 = Combo1.Text & " = " & Combo2.Text
End Sub
Sub Combo2_Click() ' click combo2
Text1 = Combo1.Text & " = " & Combo2.Text
End Sub
Sub Command1_Click() 'ajout
Dim rep
Dim octet As String * 1
Dim reste As String
'
Text2 = Trim(Text2)
Text3 = Trim(Text3)
If Len(Text2) < 2 Or Len(Text3) < 2 Then
erreur:
MsgBox "Saisie invalide ", vbExclamation
Exit Sub
End If
'
For i = 1 To Len(Text2)
If Mid(Text2, i, 1) = " " Then GoTo erreur
Next i
'
For i = 1 To Len(Text3)
If Mid(Text3, i, 1) = " " Then GoTo erreur
Next i
'
reste = LCase(Text2) ' 1ere majuscule, le reste en minuscules
octet = Mid(reste, 1, 1)
i = Len(reste)
reste = Mid(reste, 2, i - 1)
ligne = UCase(octet)
ligne = ligne & reste
Text2 = ligne
'
reste = LCase(Text3)
octet = Mid(reste, 1, 1)
i = Len(reste)
reste = Mid(reste, 2, i - 1)
ligne = UCase(octet)
ligne = ligne & reste
Text3 = ligne
'
ligne = Text2 & " " & Text3
For i = 0 To List1.ListCount - 1
If ligne = List1.List(i) Then
MsgBox "Existe déjà ", vbExclamation
Exit Sub
End If
Next i
'
rep = ""
rep = MsgBox("Confirmer l'ajout ", vbQuestion + vbDefaultButton2 +
vbYesNo)
If rep <> vbYes Then Exit Sub
'
List1.AddItem ligne 'rajout pays-ville
List1.Refresh
'
p1c = FreeFile
Open "pays_ville.tmp" For Output As p1c
For i = 0 To List1.ListCount - 1
ligne = List1.List(i)
Print #p1c, ligne
Next i
Close p1c
'
Kill "pays_ville.txt" ' double, protège d'une coupure jus ou système
FileCopy "pays_ville.tmp", "pays_ville.txt"
Kill "pays_ville.tmp"
Text2 = ""
Text3 = ""
Text4 = List1.ListCount
MsgBox "Ajour effectué ", vbInformation
End Sub
Sub List1_DblClick() 'suppression
Dim rep
'
If List1.ListIndex < 0 Then Exit Sub
rep = ""
rep = MsgBox("Confirmer la suppression ", vbQuestion + vbYesNo +
vbDefaultButton2)
If rep <> vbYes Then Exit Sub
'
List1.RemoveItem List1.ListIndex
List1.Refresh
'
p1d = FreeFile
Open "pays_ville.tmp" For Output As p1d
For i = 0 To List1.ListCount - 1
ligne = List1.List(i)
Print #p1d, ligne
Next i
Close p1d
'
Kill "pays_ville.txt"
FileCopy "pays_ville.tmp", "pays_ville.txt"
Kill "pays_ville.tmp"
Text4 = List1.ListCount
MsgBox "Suppression effectué ", vbInformation
End Sub
Sub Command2_Click() 'imprime
Dim rep
Dim fin As Boolean
'
If List1.ListCount < 1 Then Exit Sub
rep = ""
rep = MsgBox("Confirmer l'impression ", vbQuestion + vbDefaultButton2
+
vbYesNo)
If rep <> vbYes Then Exit Sub
'
Printer.FontName = "courier new"
Printer.FontSize = 10
Printer.Orientation = 1
Printer.Print ""
Printer.Print ""
j = 1
k = 1
'
For i = 0 To List1.ListCount - 1
fin = False
Printer.Print " " & List1.List(i)
j = j + 1
If j = 58 Then ' fin page
j = 0
Printer.Print " " & k
k = k + 1
Printer.NewPage
Printer.Print ""
Printer.Print ""
fin = True
End If
Next i
'
If fin = False Then
Printer.Print ""
Printer.Print " " & k
End If
Printer.EndDoc
End Sub
'---------------FIN----------------
"Jennifer" <Jennifer@discussions.microsoft.com> a écrit dans le message
de
news: 996AEAB9-FFB8-41B5-BE45-A5D4AD573877@microsoft.com...
> En fait, disons que dans mon premier combobox, je choisis un pays dans
> la
> liste. cf. Liste :
> Allemagne
> France
> Suisse
>
> Apparâit automatiquement alors dans la 2ème liste une ville de ce pays:
> liste du 2ème combo :
> si France est choisie alors villes qui apparaissent dans le 2nd combo :
> Paris
> Rodez
> Strasbourg
>
> Donc je veux que s'effacent les données du 2ème combo quand je change
> les
> données du 1er combobox.
> Globalement mes bases se présentent comme suit :
> Allemagne Karlsruhe
> Allemagne Stuttgart
> France Paris
> France Rodez
> France Strasbourg
> Suisse Berne
> Suisse Genève
> Suisse Zurich
>
> Le 2nd combo cherche la ville dans la base par un tri du pays.
>
> J'espère avoir été claire. J'ai un fichier constitué comme ça, je peux
> l'envoyer à votre adresse si vous le voulez.
> Merci d'avance à tous ceux qui pourront m'aider.
>
> Bonne soirée,
> Jennifer
>
>
>
>
> "X" a écrit :
>
> > Bonjour,
> >
> > Faudrait quelques infos en +... Tu parles
Bonjour à toi sauveur !!!!!
Merci beaucoup de m'avoir apporté une solution et de me sortir de mon
pétrin !
Comme j'ai pu le dire auparavant, je vais tenter de comprendre le code
(les
commentaires vont bien m'être utiles, trop bien) !!!!!!
A charge de revanche,
Très bonne soirée et très bon WE,
Jennifer
"X" a écrit :Tiens, envoici un avec la saisie et l'impression, complet (livré
clef en main), ci-joint fichier à copier avec le code:
' lecture entre 2 combo : form 1
'
' ---> http://irolog.free.fr/ecrire/index.htm
'
' OBJETS = 15
' - combo1 + combo2 à style = 2
' - Text1 + text2 + text3 + text4
' - list1 à sorted=true
' - command1 + command2
' - label1 + 2 + 3 + 4 + 5 + 6
'
Option Explicit
Dim p1a As Long
Dim p1b As Long
Dim p1c As Long
Dim p1d As Long
Dim ligne As String
Dim pays As String
Dim ville As String
Dim i As Long
Dim j As Long
Dim k As Long
'
Sub Form_Load()
ChDrive App.Path ' mettre fichier dans même répertoire que programme
ChDir App.Path
Combo1.Clear
Combo2.Clear
Text1 = ""
Text2 = ""
Text3 = ""
List1.Clear
End Sub
Sub Form_Activate()
Dim ou As Integer
'
p1a = FreeFile ' on assigne 1 pointeur
On Error GoTo erreur ' inexistant
Open "pays_ville.txt" For Input As p1a ' on ouvre
'
Do While EOF(p1a) <> True ' tant que pas vide
If EOF(p1a) = True Then Exit Do
Line Input #p1a, ligne ' etraction lecture
List1.AddItem ligne
ou = InStr(1, ligne, " ", 1) ' localisation pays
pays = Mid(ligne, 1, ou - 1) ' extraction
Combo1.AddItem pays ' on met tout dans le combo
Loop
Close p1a
'
For i = (Combo1.ListCount - 2) To 0 Step -1 ' enlève doublons
If Combo1.List(i) = Combo1.List(i + 1) Then Combo1.RemoveItem i + 1
Next i
'
Combo1.Refresh
For i = 0 To Combo1.ListCount - 1 ' affiche "fr..." par défaut
If Combo1.List(i) = "France" Then
Combo1.ListIndex = i
Exit For
End If
Next i
'
List1.ListIndex = 0
Text4 = List1.ListCount
Call Combo1_Click ' appel choix combo2
Exit Sub
'
erreur:
Close p1a
On Error Resume Next
MsgBox Err.Number & vbLf & Err.Description & vbLf & Err.Source
End Sub
Sub Combo1_Click() ' click combo1
Dim lgr_pays As Byte
'
Combo2.Clear
pays = Combo1.List(Combo1.ListIndex)
lgr_pays = Len(pays)
p1b = FreeFile
Open "pays_ville.txt" For Input As p1b
'
Do While EOF(p1b) <> True
If EOF(p1b) = True Then Exit Do
Line Input #p1b, ligne
If pays = Mid(ligne, 1, lgr_pays) Then ' si trouvé pays = ramasse
ville
ville = Mid(ligne, lgr_pays + 1, Len(ligne) - lgr_pays)
ville = Trim(ville) 'retasse
Combo2.AddItem ville
End If
Loop
'
Close p1b
Combo2.ListIndex = 0 'début liste
Text1 = Combo1.Text & " = " & Combo2.Text
End Sub
Sub Combo2_Click() ' click combo2
Text1 = Combo1.Text & " = " & Combo2.Text
End Sub
Sub Command1_Click() 'ajout
Dim rep
Dim octet As String * 1
Dim reste As String
'
Text2 = Trim(Text2)
Text3 = Trim(Text3)
If Len(Text2) < 2 Or Len(Text3) < 2 Then
erreur:
MsgBox "Saisie invalide ", vbExclamation
Exit Sub
End If
'
For i = 1 To Len(Text2)
If Mid(Text2, i, 1) = " " Then GoTo erreur
Next i
'
For i = 1 To Len(Text3)
If Mid(Text3, i, 1) = " " Then GoTo erreur
Next i
'
reste = LCase(Text2) ' 1ere majuscule, le reste en minuscules
octet = Mid(reste, 1, 1)
i = Len(reste)
reste = Mid(reste, 2, i - 1)
ligne = UCase(octet)
ligne = ligne & reste
Text2 = ligne
'
reste = LCase(Text3)
octet = Mid(reste, 1, 1)
i = Len(reste)
reste = Mid(reste, 2, i - 1)
ligne = UCase(octet)
ligne = ligne & reste
Text3 = ligne
'
ligne = Text2 & " " & Text3
For i = 0 To List1.ListCount - 1
If ligne = List1.List(i) Then
MsgBox "Existe déjà ", vbExclamation
Exit Sub
End If
Next i
'
rep = ""
rep = MsgBox("Confirmer l'ajout ", vbQuestion + vbDefaultButton2 +
vbYesNo)
If rep <> vbYes Then Exit Sub
'
List1.AddItem ligne 'rajout pays-ville
List1.Refresh
'
p1c = FreeFile
Open "pays_ville.tmp" For Output As p1c
For i = 0 To List1.ListCount - 1
ligne = List1.List(i)
Print #p1c, ligne
Next i
Close p1c
'
Kill "pays_ville.txt" ' double, protège d'une coupure jus ou système
FileCopy "pays_ville.tmp", "pays_ville.txt"
Kill "pays_ville.tmp"
Text2 = ""
Text3 = ""
Text4 = List1.ListCount
MsgBox "Ajour effectué ", vbInformation
End Sub
Sub List1_DblClick() 'suppression
Dim rep
'
If List1.ListIndex < 0 Then Exit Sub
rep = ""
rep = MsgBox("Confirmer la suppression ", vbQuestion + vbYesNo +
vbDefaultButton2)
If rep <> vbYes Then Exit Sub
'
List1.RemoveItem List1.ListIndex
List1.Refresh
'
p1d = FreeFile
Open "pays_ville.tmp" For Output As p1d
For i = 0 To List1.ListCount - 1
ligne = List1.List(i)
Print #p1d, ligne
Next i
Close p1d
'
Kill "pays_ville.txt"
FileCopy "pays_ville.tmp", "pays_ville.txt"
Kill "pays_ville.tmp"
Text4 = List1.ListCount
MsgBox "Suppression effectué ", vbInformation
End Sub
Sub Command2_Click() 'imprime
Dim rep
Dim fin As Boolean
'
If List1.ListCount < 1 Then Exit Sub
rep = ""
rep = MsgBox("Confirmer l'impression ", vbQuestion + vbDefaultButton2
+
vbYesNo)
If rep <> vbYes Then Exit Sub
'
Printer.FontName = "courier new"
Printer.FontSize = 10
Printer.Orientation = 1
Printer.Print ""
Printer.Print ""
j = 1
k = 1
'
For i = 0 To List1.ListCount - 1
fin = False
Printer.Print " " & List1.List(i)
j = j + 1
If j = 58 Then ' fin page
j = 0
Printer.Print " " & k
k = k + 1
Printer.NewPage
Printer.Print ""
Printer.Print ""
fin = True
End If
Next i
'
If fin = False Then
Printer.Print ""
Printer.Print " " & k
End If
Printer.EndDoc
End Sub
'---------------FIN----------------
"Jennifer" a écrit dans le message
de
news:
> En fait, disons que dans mon premier combobox, je choisis un pays dans
> la
> liste. cf. Liste :
> Allemagne
> France
> Suisse
>
> Apparâit automatiquement alors dans la 2ème liste une ville de ce pays:
> liste du 2ème combo :
> si France est choisie alors villes qui apparaissent dans le 2nd combo :
> Paris
> Rodez
> Strasbourg
>
> Donc je veux que s'effacent les données du 2ème combo quand je change
> les
> données du 1er combobox.
> Globalement mes bases se présentent comme suit :
> Allemagne Karlsruhe
> Allemagne Stuttgart
> France Paris
> France Rodez
> France Strasbourg
> Suisse Berne
> Suisse Genève
> Suisse Zurich
>
> Le 2nd combo cherche la ville dans la base par un tri du pays.
>
> J'espère avoir été claire. J'ai un fichier constitué comme ça, je peux
> l'envoyer à votre adresse si vous le voulez.
> Merci d'avance à tous ceux qui pourront m'aider.
>
> Bonne soirée,
> Jennifer
>
>
>
>
> "X" a écrit :
>
> > Bonjour,
> >
> > Faudrait quelques infos en +... Tu parles
Bonjour Jennifer, dans le message
news:
tu disais :
> Bonjour, bonjour !
> Ca fait plaisir comme tout que tu aies une solution !
> Je vais recopier tout ça et comprendre (merci pour les commentaires)
> comment ça marche. Par contre, le fichier zip n'a pu passer.
ah ?
et pourquoi ?
as tu eu un message d'erreur ?
bof, pas grave, je te le place là :
http://scraper.chez-alice.fr/tempo/combos.zip
--
Adresse invalide
Merci de répondre sur le forum ...
http://scraper.chez-alice.fr
scraper
Bonjour Jennifer, dans le message
news:593D554D-3C2A-43AF-BA89-9238A775EB65@microsoft.com
tu disais :
> Bonjour, bonjour !
> Ca fait plaisir comme tout que tu aies une solution !
> Je vais recopier tout ça et comprendre (merci pour les commentaires)
> comment ça marche. Par contre, le fichier zip n'a pu passer.
ah ?
et pourquoi ?
as tu eu un message d'erreur ?
bof, pas grave, je te le place là :
http://scraper.chez-alice.fr/tempo/combos.zip
--
Adresse invalide
Merci de répondre sur le forum ...
http://scraper.chez-alice.fr
scraper
Bonjour Jennifer, dans le message
news:
tu disais :
> Bonjour, bonjour !
> Ca fait plaisir comme tout que tu aies une solution !
> Je vais recopier tout ça et comprendre (merci pour les commentaires)
> comment ça marche. Par contre, le fichier zip n'a pu passer.
ah ?
et pourquoi ?
as tu eu un message d'erreur ?
bof, pas grave, je te le place là :
http://scraper.chez-alice.fr/tempo/combos.zip
--
Adresse invalide
Merci de répondre sur le forum ...
http://scraper.chez-alice.fr
scraper
