Discussion :

[JeanMikael]

Bonjour le forum,

Voici mon soucil, dans un formulaire j'ai un champ texte dans lequel est inscris
soit RG1,2,3,4,5,6 dans une liste modifiable j'ai le choix de RG1,2,3,4,5,6 seulement voilà si par exemple dans mon champ texte j'ai RG3 dans ma liste modifiable il ne doit pas apparaitre, je n'ai aucune idée de la facon dont il faut procéder j'ai bien essayé avec

Code :

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

1
2
3
4
5
6
 
If texte1.value = "RG3" then
 
Me.liste.value = "RG1" Or "RG2" Or "RG4" Or "RG5" Or "RG6"
 
end if

Mais sans succès, d'avance merci de votre aide, bonne soirée.

Cordialement,
Jean-Mikaël

[jean-paul lepetit]

Salut,

tu peux faire quelque chose comme ça

Code :

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

1
2
3
4
5
6
7
8
Select case texte1
Case = "RG1"
  Me.liste.rowsource= "RG2";"RG3";"RG4";"RG5";"RG6"
Case= "RG2"
  Me.liste.rowsource= "RG1";"RG3";"RG4";"RG5";"RG6"
'etc
End Select
Me.liste.Requery

[JeanMikael]

Bonjour jean-paul merci de ta réponse

Mais apparement VB n'accepte pas les ";" entre les différentes chaines de caractères, c'est peut-être un autre séparateur qu'il faut utiliser ou une autre "mise en forme" ? merci de ton aide. Bonne journée.


Cordialement,
Jean-Mikaël

[jean-paul lepetit]

Effectivement, j'ai été un peu vite

quand tu mets des valeurs dans liste de valeurs, il faut séparer par des ; mais en VBA, c'est des ,

[JeanMikael]

Re jean-paul,

En fait ma liste prend pour source une table est ce que cela peut influencé le fait que même si c'est des "," ou des ";" cela ne marche pas ?
Encore merci de ton aide.


Cordialement,
Jean-Mikaël

[jean-paul lepetit]

Il faut que tu mettes dans origine source : liste de valeurs et non pas table/requête

[JeanMikael]

Re jean-paul,

C'est ce que j'ai fais mais rien n'y fait j'ai peut-être (sûrement) fait une erreur de syntaxe dans le select mais je t'avoue que je n'y arrive vraiment pas. Encore merci de ton aide.

Cordialement,
Jean-Mikaël

[vodiem]

salut à tous,

je propose un truc comme ca:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Dim inVal, n As Variant
Dim source As String
 
source = "'RG1';'RG2';'RG3';'RG4'"
inVal = Split(Replace(source, "'", ""), ";")
 
For Each n In inVal
    If InStr(1, " " + ChampSelection + " ", " " + n + " ") > 0 Then
        source = Replace(source + ";", "'" + n + "';", "")
    End If
Next n
 
Liste.RowSourceType = "Liste valeurs"
Liste.RowSource = source
Liste.Requery

mais plus simple encore serait peut être de boucler dans les items de la liste et de retirer l'item.

ps: j'ai relu ton pb si tu as qu'une valeur à saisir c'est plus simple

et le code de jean-paul lepetit peut être suffisant avec ce correctif:

Code :

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

  Me.liste.rowsource= "'RG2';'RG3';'RG4';'RG5';'RG6'"

[JeanMikael]

Bonjour, vodiem

Je doit vraiment pas être doué mais sa ne marche toujours pas sinon, il n'y aurait pas un moyen de cacher un item d'une liste de choix en fonction d'une zone texte ? Merci de ton aide. Bonne journée.



Cordialement,
Jean-Mikaël

[vodiem]

mon code marche en tout cas, même s'il est disproportionné au besoin.
essai le.

ps:n'oublie pas de changer les références [ChampSelection], [liste]...
tu as bien repris tous les correctifs dans l'ex de jean-paul lepetit ?