Bonjour a tous
Soit 2 Combobox dans un UF
Dans la premiere une liste qui determine la liste de la seconde (ceci pour
eviter d'avoir une liste trop longue ,eviter les erreurs de clic lors de
la
saisie etc...)
Jusqu'ici tout va bien
Je voudrai, pour ameliorer le systeme un peu plus, apres la saisie dans la
CBX1 qui determine la liste de la seconde, tester si la liste de la CBX2
contient 1 valeur et si c'est le cas afficher cette valeur dans cette
derniere, sinon ne rien afficher.
est ce possible?
Merci
--
IMER09
Bonjour a tous
Soit 2 Combobox dans un UF
Dans la premiere une liste qui determine la liste de la seconde (ceci pour
eviter d'avoir une liste trop longue ,eviter les erreurs de clic lors de
la
saisie etc...)
Jusqu'ici tout va bien
Je voudrai, pour ameliorer le systeme un peu plus, apres la saisie dans la
CBX1 qui determine la liste de la seconde, tester si la liste de la CBX2
contient 1 valeur et si c'est le cas afficher cette valeur dans cette
derniere, sinon ne rien afficher.
est ce possible?
Merci
--
IMER09
Bonjour a tous
Soit 2 Combobox dans un UF
Dans la premiere une liste qui determine la liste de la seconde (ceci pour
eviter d'avoir une liste trop longue ,eviter les erreurs de clic lors de
la
saisie etc...)
Jusqu'ici tout va bien
Je voudrai, pour ameliorer le systeme un peu plus, apres la saisie dans la
CBX1 qui determine la liste de la seconde, tester si la liste de la CBX2
contient 1 valeur et si c'est le cas afficher cette valeur dans cette
derniere, sinon ne rien afficher.
est ce possible?
Merci
--
IMER09
Bonjour.
Poste ton code.
--
Cordialement.
Daniel
"IMER09" a écrit dans le message de news:
> Bonjour a tous
>
> Soit 2 Combobox dans un UF
> Dans la premiere une liste qui determine la liste de la seconde (ceci pour
> eviter d'avoir une liste trop longue ,eviter les erreurs de clic lors de
> la
> saisie etc...)
> Jusqu'ici tout va bien
> Je voudrai, pour ameliorer le systeme un peu plus, apres la saisie dans la
> CBX1 qui determine la liste de la seconde, tester si la liste de la CBX2
> contient 1 valeur et si c'est le cas afficher cette valeur dans cette
> derniere, sinon ne rien afficher.
> est ce possible?
>
> Merci
> --
> IMER09
Bonjour.
Poste ton code.
--
Cordialement.
Daniel
"IMER09" <toto@discussions.microso.com> a écrit dans le message de news:
6055347A-0902-49D1-8EE1-4539C4E2771E@microsoft.com...
> Bonjour a tous
>
> Soit 2 Combobox dans un UF
> Dans la premiere une liste qui determine la liste de la seconde (ceci pour
> eviter d'avoir une liste trop longue ,eviter les erreurs de clic lors de
> la
> saisie etc...)
> Jusqu'ici tout va bien
> Je voudrai, pour ameliorer le systeme un peu plus, apres la saisie dans la
> CBX1 qui determine la liste de la seconde, tester si la liste de la CBX2
> contient 1 valeur et si c'est le cas afficher cette valeur dans cette
> derniere, sinon ne rien afficher.
> est ce possible?
>
> Merci
> --
> IMER09
Bonjour.
Poste ton code.
--
Cordialement.
Daniel
"IMER09" a écrit dans le message de news:
> Bonjour a tous
>
> Soit 2 Combobox dans un UF
> Dans la premiere une liste qui determine la liste de la seconde (ceci pour
> eviter d'avoir une liste trop longue ,eviter les erreurs de clic lors de
> la
> saisie etc...)
> Jusqu'ici tout va bien
> Je voudrai, pour ameliorer le systeme un peu plus, apres la saisie dans la
> CBX1 qui determine la liste de la seconde, tester si la liste de la CBX2
> contient 1 valeur et si c'est le cas afficher cette valeur dans cette
> derniere, sinon ne rien afficher.
> est ce possible?
>
> Merci
> --
> IMER09
Voici une partie de mon code
Private Sub ComboBox1_Change()
Sheets("Feuil1").Select
Range("D3", Range("D65536").End(xlUp)).AdvancedFilter _
Action:=xlFilterCopy, CopyToRange:=Range( _
"BA1"), Unique:=True
Range("BA2:BA65536").Select
Selection.Sort Key1:=Range("BA2"), Order1:=xlAscending,
Header:=xlNo, _
OrderCustom:=1, Orientation:=xlTopToBottom
For Each c In Range("BA2", Range("BA65536").End(xlUp))
Me.ComboBox2.AddItem c.Value
Next c
[BA:BA].ClearContents
En y reflechissant plutot que de tester si la liste de ma CBX ne contient
qu'une seul
ligne je pourrai tester si la cellules en BA3 est vide, auquel cas je
donne
Me.ComboBox2 = c.Value.
Je n'ai pas encore essaye, ou alors peut etre une solution plus simple!
Merci
--
IMER09
"Daniel.C" wrote:Bonjour.
Poste ton code.
--
Cordialement.
Daniel
"IMER09" a écrit dans le message de news:
> Bonjour a tous
>
> Soit 2 Combobox dans un UF
> Dans la premiere une liste qui determine la liste de la seconde (ceci
> pour
> eviter d'avoir une liste trop longue ,eviter les erreurs de clic lors
> de
> la
> saisie etc...)
> Jusqu'ici tout va bien
> Je voudrai, pour ameliorer le systeme un peu plus, apres la saisie dans
> la
> CBX1 qui determine la liste de la seconde, tester si la liste de la
> CBX2
> contient 1 valeur et si c'est le cas afficher cette valeur dans cette
> derniere, sinon ne rien afficher.
> est ce possible?
>
> Merci
> --
> IMER09
Voici une partie de mon code
Private Sub ComboBox1_Change()
Sheets("Feuil1").Select
Range("D3", Range("D65536").End(xlUp)).AdvancedFilter _
Action:=xlFilterCopy, CopyToRange:=Range( _
"BA1"), Unique:=True
Range("BA2:BA65536").Select
Selection.Sort Key1:=Range("BA2"), Order1:=xlAscending,
Header:=xlNo, _
OrderCustom:=1, Orientation:=xlTopToBottom
For Each c In Range("BA2", Range("BA65536").End(xlUp))
Me.ComboBox2.AddItem c.Value
Next c
[BA:BA].ClearContents
En y reflechissant plutot que de tester si la liste de ma CBX ne contient
qu'une seul
ligne je pourrai tester si la cellules en BA3 est vide, auquel cas je
donne
Me.ComboBox2 = c.Value.
Je n'ai pas encore essaye, ou alors peut etre une solution plus simple!
Merci
--
IMER09
"Daniel.C" wrote:
Bonjour.
Poste ton code.
--
Cordialement.
Daniel
"IMER09" <toto@discussions.microso.com> a écrit dans le message de news:
6055347A-0902-49D1-8EE1-4539C4E2771E@microsoft.com...
> Bonjour a tous
>
> Soit 2 Combobox dans un UF
> Dans la premiere une liste qui determine la liste de la seconde (ceci
> pour
> eviter d'avoir une liste trop longue ,eviter les erreurs de clic lors
> de
> la
> saisie etc...)
> Jusqu'ici tout va bien
> Je voudrai, pour ameliorer le systeme un peu plus, apres la saisie dans
> la
> CBX1 qui determine la liste de la seconde, tester si la liste de la
> CBX2
> contient 1 valeur et si c'est le cas afficher cette valeur dans cette
> derniere, sinon ne rien afficher.
> est ce possible?
>
> Merci
> --
> IMER09
Voici une partie de mon code
Private Sub ComboBox1_Change()
Sheets("Feuil1").Select
Range("D3", Range("D65536").End(xlUp)).AdvancedFilter _
Action:=xlFilterCopy, CopyToRange:=Range( _
"BA1"), Unique:=True
Range("BA2:BA65536").Select
Selection.Sort Key1:=Range("BA2"), Order1:=xlAscending,
Header:=xlNo, _
OrderCustom:=1, Orientation:=xlTopToBottom
For Each c In Range("BA2", Range("BA65536").End(xlUp))
Me.ComboBox2.AddItem c.Value
Next c
[BA:BA].ClearContents
En y reflechissant plutot que de tester si la liste de ma CBX ne contient
qu'une seul
ligne je pourrai tester si la cellules en BA3 est vide, auquel cas je
donne
Me.ComboBox2 = c.Value.
Je n'ai pas encore essaye, ou alors peut etre une solution plus simple!
Merci
--
IMER09
"Daniel.C" wrote:Bonjour.
Poste ton code.
--
Cordialement.
Daniel
"IMER09" a écrit dans le message de news:
> Bonjour a tous
>
> Soit 2 Combobox dans un UF
> Dans la premiere une liste qui determine la liste de la seconde (ceci
> pour
> eviter d'avoir une liste trop longue ,eviter les erreurs de clic lors
> de
> la
> saisie etc...)
> Jusqu'ici tout va bien
> Je voudrai, pour ameliorer le systeme un peu plus, apres la saisie dans
> la
> CBX1 qui determine la liste de la seconde, tester si la liste de la
> CBX2
> contient 1 valeur et si c'est le cas afficher cette valeur dans cette
> derniere, sinon ne rien afficher.
> est ce possible?
>
> Merci
> --
> IMER09
Voici une partie de mon code
Private Sub ComboBox1_Change()
Sheets("Feuil1").Select
Range("D3", Range("D65536").End(xlUp)).AdvancedFilter _
Action:=xlFilterCopy, CopyToRange:=Range( _
"BA1"), Unique:=True
Range("BA2:BA65536").Select
Selection.Sort Key1:=Range("BA2"), Order1:=xlAscending,
Header:=xlNo, _
OrderCustom:=1, Orientation:=xlTopToBottom
For Each c In Range("BA2", Range("BA65536").End(xlUp))
Me.ComboBox2.AddItem c.Value
Next c
[BA:BA].ClearContents
En y reflechissant plutot que de tester si la liste de ma CBX ne contient
qu'une seul
ligne je pourrai tester si la cellules en BA3 est vide, auquel cas je donne
Me.ComboBox2 = c.Value.
Je n'ai pas encore essaye, ou alors peut etre une solution plus simple!
Merci
--
IMER09
"Daniel.C" wrote:
> Bonjour.
> Poste ton code.
> --
> Cordialement.
> Daniel
> "IMER09" a écrit dans le message de news:
>
> > Bonjour a tous
> >
> > Soit 2 Combobox dans un UF
> > Dans la premiere une liste qui determine la liste de la seconde (ceci pour
> > eviter d'avoir une liste trop longue ,eviter les erreurs de clic lors de
> > la
> > saisie etc...)
> > Jusqu'ici tout va bien
> > Je voudrai, pour ameliorer le systeme un peu plus, apres la saisie dans la
> > CBX1 qui determine la liste de la seconde, tester si la liste de la CBX2
> > contient 1 valeur et si c'est le cas afficher cette valeur dans cette
> > derniere, sinon ne rien afficher.
> > est ce possible?
> >
> > Merci
> > --
> > IMER09
>
>
>
Voici une partie de mon code
Private Sub ComboBox1_Change()
Sheets("Feuil1").Select
Range("D3", Range("D65536").End(xlUp)).AdvancedFilter _
Action:=xlFilterCopy, CopyToRange:=Range( _
"BA1"), Unique:=True
Range("BA2:BA65536").Select
Selection.Sort Key1:=Range("BA2"), Order1:=xlAscending,
Header:=xlNo, _
OrderCustom:=1, Orientation:=xlTopToBottom
For Each c In Range("BA2", Range("BA65536").End(xlUp))
Me.ComboBox2.AddItem c.Value
Next c
[BA:BA].ClearContents
En y reflechissant plutot que de tester si la liste de ma CBX ne contient
qu'une seul
ligne je pourrai tester si la cellules en BA3 est vide, auquel cas je donne
Me.ComboBox2 = c.Value.
Je n'ai pas encore essaye, ou alors peut etre une solution plus simple!
Merci
--
IMER09
"Daniel.C" wrote:
> Bonjour.
> Poste ton code.
> --
> Cordialement.
> Daniel
> "IMER09" <toto@discussions.microso.com> a écrit dans le message de news:
> 6055347A-0902-49D1-8EE1-4539C4E2771E@microsoft.com...
> > Bonjour a tous
> >
> > Soit 2 Combobox dans un UF
> > Dans la premiere une liste qui determine la liste de la seconde (ceci pour
> > eviter d'avoir une liste trop longue ,eviter les erreurs de clic lors de
> > la
> > saisie etc...)
> > Jusqu'ici tout va bien
> > Je voudrai, pour ameliorer le systeme un peu plus, apres la saisie dans la
> > CBX1 qui determine la liste de la seconde, tester si la liste de la CBX2
> > contient 1 valeur et si c'est le cas afficher cette valeur dans cette
> > derniere, sinon ne rien afficher.
> > est ce possible?
> >
> > Merci
> > --
> > IMER09
>
>
>
Voici une partie de mon code
Private Sub ComboBox1_Change()
Sheets("Feuil1").Select
Range("D3", Range("D65536").End(xlUp)).AdvancedFilter _
Action:=xlFilterCopy, CopyToRange:=Range( _
"BA1"), Unique:=True
Range("BA2:BA65536").Select
Selection.Sort Key1:=Range("BA2"), Order1:=xlAscending,
Header:=xlNo, _
OrderCustom:=1, Orientation:=xlTopToBottom
For Each c In Range("BA2", Range("BA65536").End(xlUp))
Me.ComboBox2.AddItem c.Value
Next c
[BA:BA].ClearContents
En y reflechissant plutot que de tester si la liste de ma CBX ne contient
qu'une seul
ligne je pourrai tester si la cellules en BA3 est vide, auquel cas je donne
Me.ComboBox2 = c.Value.
Je n'ai pas encore essaye, ou alors peut etre une solution plus simple!
Merci
--
IMER09
"Daniel.C" wrote:
> Bonjour.
> Poste ton code.
> --
> Cordialement.
> Daniel
> "IMER09" a écrit dans le message de news:
>
> > Bonjour a tous
> >
> > Soit 2 Combobox dans un UF
> > Dans la premiere une liste qui determine la liste de la seconde (ceci pour
> > eviter d'avoir une liste trop longue ,eviter les erreurs de clic lors de
> > la
> > saisie etc...)
> > Jusqu'ici tout va bien
> > Je voudrai, pour ameliorer le systeme un peu plus, apres la saisie dans la
> > CBX1 qui determine la liste de la seconde, tester si la liste de la CBX2
> > contient 1 valeur et si c'est le cas afficher cette valeur dans cette
> > derniere, sinon ne rien afficher.
> > est ce possible?
> >
> > Merci
> > --
> > IMER09
>
>
>
Alors, tu as la solution.
Daniel
"IMER09" a écrit dans le message de news:
> Voici une partie de mon code
>
> Private Sub ComboBox1_Change()
>
> Sheets("Feuil1").Select
>
> Range("D3", Range("D65536").End(xlUp)).AdvancedFilter _
> Action:=xlFilterCopy, CopyToRange:=Range( _
> "BA1"), Unique:=True
> Range("BA2:BA65536").Select
> Selection.Sort Key1:=Range("BA2"), Order1:=xlAscending,
> Header:=xlNo, _
> OrderCustom:=1, Orientation:=xlTopToBottom
> For Each c In Range("BA2", Range("BA65536").End(xlUp))
> Me.ComboBox2.AddItem c.Value
> Next c
> [BA:BA].ClearContents
>
> En y reflechissant plutot que de tester si la liste de ma CBX ne contient
> qu'une seul
> ligne je pourrai tester si la cellules en BA3 est vide, auquel cas je
> donne
> Me.ComboBox2 = c.Value.
> Je n'ai pas encore essaye, ou alors peut etre une solution plus simple!
>
> Merci
> --
> IMER09
>
>
> "Daniel.C" wrote:
>
>> Bonjour.
>> Poste ton code.
>> --
>> Cordialement.
>> Daniel
>> "IMER09" a écrit dans le message de news:
>>
>> > Bonjour a tous
>> >
>> > Soit 2 Combobox dans un UF
>> > Dans la premiere une liste qui determine la liste de la seconde (ceci
>> > pour
>> > eviter d'avoir une liste trop longue ,eviter les erreurs de clic lors
>> > de
>> > la
>> > saisie etc...)
>> > Jusqu'ici tout va bien
>> > Je voudrai, pour ameliorer le systeme un peu plus, apres la saisie dans
>> > la
>> > CBX1 qui determine la liste de la seconde, tester si la liste de la
>> > CBX2
>> > contient 1 valeur et si c'est le cas afficher cette valeur dans cette
>> > derniere, sinon ne rien afficher.
>> > est ce possible?
>> >
>> > Merci
>> > --
>> > IMER09
>>
>>
>>
Alors, tu as la solution.
Daniel
"IMER09" <toto@discussions.microso.com> a écrit dans le message de news:
51BE3364-41C3-4A3B-861F-CACFF0099647@microsoft.com...
> Voici une partie de mon code
>
> Private Sub ComboBox1_Change()
>
> Sheets("Feuil1").Select
>
> Range("D3", Range("D65536").End(xlUp)).AdvancedFilter _
> Action:=xlFilterCopy, CopyToRange:=Range( _
> "BA1"), Unique:=True
> Range("BA2:BA65536").Select
> Selection.Sort Key1:=Range("BA2"), Order1:=xlAscending,
> Header:=xlNo, _
> OrderCustom:=1, Orientation:=xlTopToBottom
> For Each c In Range("BA2", Range("BA65536").End(xlUp))
> Me.ComboBox2.AddItem c.Value
> Next c
> [BA:BA].ClearContents
>
> En y reflechissant plutot que de tester si la liste de ma CBX ne contient
> qu'une seul
> ligne je pourrai tester si la cellules en BA3 est vide, auquel cas je
> donne
> Me.ComboBox2 = c.Value.
> Je n'ai pas encore essaye, ou alors peut etre une solution plus simple!
>
> Merci
> --
> IMER09
>
>
> "Daniel.C" wrote:
>
>> Bonjour.
>> Poste ton code.
>> --
>> Cordialement.
>> Daniel
>> "IMER09" <toto@discussions.microso.com> a écrit dans le message de news:
>> 6055347A-0902-49D1-8EE1-4539C4E2771E@microsoft.com...
>> > Bonjour a tous
>> >
>> > Soit 2 Combobox dans un UF
>> > Dans la premiere une liste qui determine la liste de la seconde (ceci
>> > pour
>> > eviter d'avoir une liste trop longue ,eviter les erreurs de clic lors
>> > de
>> > la
>> > saisie etc...)
>> > Jusqu'ici tout va bien
>> > Je voudrai, pour ameliorer le systeme un peu plus, apres la saisie dans
>> > la
>> > CBX1 qui determine la liste de la seconde, tester si la liste de la
>> > CBX2
>> > contient 1 valeur et si c'est le cas afficher cette valeur dans cette
>> > derniere, sinon ne rien afficher.
>> > est ce possible?
>> >
>> > Merci
>> > --
>> > IMER09
>>
>>
>>
Alors, tu as la solution.
Daniel
"IMER09" a écrit dans le message de news:
> Voici une partie de mon code
>
> Private Sub ComboBox1_Change()
>
> Sheets("Feuil1").Select
>
> Range("D3", Range("D65536").End(xlUp)).AdvancedFilter _
> Action:=xlFilterCopy, CopyToRange:=Range( _
> "BA1"), Unique:=True
> Range("BA2:BA65536").Select
> Selection.Sort Key1:=Range("BA2"), Order1:=xlAscending,
> Header:=xlNo, _
> OrderCustom:=1, Orientation:=xlTopToBottom
> For Each c In Range("BA2", Range("BA65536").End(xlUp))
> Me.ComboBox2.AddItem c.Value
> Next c
> [BA:BA].ClearContents
>
> En y reflechissant plutot que de tester si la liste de ma CBX ne contient
> qu'une seul
> ligne je pourrai tester si la cellules en BA3 est vide, auquel cas je
> donne
> Me.ComboBox2 = c.Value.
> Je n'ai pas encore essaye, ou alors peut etre une solution plus simple!
>
> Merci
> --
> IMER09
>
>
> "Daniel.C" wrote:
>
>> Bonjour.
>> Poste ton code.
>> --
>> Cordialement.
>> Daniel
>> "IMER09" a écrit dans le message de news:
>>
>> > Bonjour a tous
>> >
>> > Soit 2 Combobox dans un UF
>> > Dans la premiere une liste qui determine la liste de la seconde (ceci
>> > pour
>> > eviter d'avoir une liste trop longue ,eviter les erreurs de clic lors
>> > de
>> > la
>> > saisie etc...)
>> > Jusqu'ici tout va bien
>> > Je voudrai, pour ameliorer le systeme un peu plus, apres la saisie dans
>> > la
>> > CBX1 qui determine la liste de la seconde, tester si la liste de la
>> > CBX2
>> > contient 1 valeur et si c'est le cas afficher cette valeur dans cette
>> > derniere, sinon ne rien afficher.
>> > est ce possible?
>> >
>> > Merci
>> > --
>> > IMER09
>>
>>
>>
Bonjour a tous
Soit 2 Combobox dans un UF
Dans la premiere une liste qui determine la liste de la seconde (ceci pour
eviter d'avoir une liste trop longue ,eviter les erreurs de clic lors de la
saisie etc...)
Jusqu'ici tout va bien
Je voudrai, pour ameliorer le systeme un peu plus, apres la saisie dans la
CBX1 qui determine la liste de la seconde, tester si la liste de la CBX2
contient 1 valeur et si c'est le cas afficher cette valeur dans cette
derniere, sinon ne rien afficher.
est ce possible?
Merci
--
IMER09
Bonjour a tous
Soit 2 Combobox dans un UF
Dans la premiere une liste qui determine la liste de la seconde (ceci pour
eviter d'avoir une liste trop longue ,eviter les erreurs de clic lors de la
saisie etc...)
Jusqu'ici tout va bien
Je voudrai, pour ameliorer le systeme un peu plus, apres la saisie dans la
CBX1 qui determine la liste de la seconde, tester si la liste de la CBX2
contient 1 valeur et si c'est le cas afficher cette valeur dans cette
derniere, sinon ne rien afficher.
est ce possible?
Merci
--
IMER09
Bonjour a tous
Soit 2 Combobox dans un UF
Dans la premiere une liste qui determine la liste de la seconde (ceci pour
eviter d'avoir une liste trop longue ,eviter les erreurs de clic lors de la
saisie etc...)
Jusqu'ici tout va bien
Je voudrai, pour ameliorer le systeme un peu plus, apres la saisie dans la
CBX1 qui determine la liste de la seconde, tester si la liste de la CBX2
contient 1 valeur et si c'est le cas afficher cette valeur dans cette
derniere, sinon ne rien afficher.
est ce possible?
Merci
--
IMER09