Discussion :

[jijie]

Bjrs à tous,

Voilà, mon problème est le suivant:
si je ne trouve pas le résultat dans la liste il faudrais aller à fin1
mais le problème c'est qu'il va tjrs à fin1
voici le code

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
16
17
18
19
20
21
22
23
24
25
26
27
28
Private Sub ComboBox2_Change()
  If ComboBox2.Value = "" Then GoTo fin1
    Sheets("récap_familles").Select
    For Each c In Sheets("récap_familles").Range("a12:a200")
        If c.Value <> ComboBox2.Value Then GoTo fin1 'si il n'est pas dans la liste a12:a200 il doit aller fin1?
        If c.Value = ComboBox2.Value Then
            c.Select
        End If
    Next c
 
 
 
    ActiveCell.Offset(0, 4).Select
    t = ActiveCell * -1
 
    TextBox6.Value = t
    ComboBox5 = "Règlement des familles"
    ComboBox1 = "4111 - Familles ou élèves"
 
 
 
 
 
    GoTo fin2
fin1:
 
fin2:
End Sub

merci de votre réponse

JY

[pgz]

Bonjour.

Je n'ai pas tout compris, mais supprimer la ligne

Code :

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

If c.Value <> ComboBox2.Value Then GoTo fin1

pourrait peut-être régler ton pb.

Bon courage,

PGZ

[patbou]

BONSOIR

si j ai bien compris tu veux comparer la liste du combo a une liste ds un feuil

si tel est le cas il faut que tu bcl ds la combo pour verifier ts les elements de la liste

sinon je ne vois pas trop l interet de cette boucle , car par defaut la valeur du combo est le 1er element de la liste (list = 0)

Code :

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

1
2
3
4
5
6
7
For Each c In Sheets("récap_familles").Range("a12:a200")
        i = i + 1         If c.Value <> ComboBox2.list(i-1) Then GoTo fin1 'si il n'est pas dans la liste a12:a200 il doit aller fin1?
        If c.Value = ComboBox2.Value Then
            c.Select
        End If
    Next c

[LeForestier]

Bonsoir,
Une première chose m'étonne dans ton code

If c.Value <> ComboBox2.Value Then GoTo fin1

c, c'est quoi ????
Tu doit d'abord déclarer c , par ex:

Code :

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

dim c as Range

A+
EDIT:
M'étonne même que ton code plante pas, à moins que tu ne le dise pas.
Edit2:
et après ...

Code :

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

1
2
3
4
       If c.Value = ComboBox2.Value Then
            c.Select
            'il faut ajouter Exit FOR, sinon va continuer à bouclé
        End If

[jijie]

Je comprend que je me plante!!!
Mais en gros, je compare une liste attachée au combobox2, si l'élément ne se trouve pas dans la liste "ecritfact" a:... alors il ne m'inscrit rien dans le combobox5 et 1
jy