Lorsque je clique sur n'importe quel combobox rien n'apparait dans la liste.
Où est mon erreur ?
Private Sub ComboBox1_Change()
Dim tabtemp As Variant
Dim F As Integer
With Worksheets("Mancoliste")
F = .Range("a25000").End(xlUp).Row
tabtemp = .Range("A2:K" & F).Value
End With
ListBox1.Clear
ListBox2.Clear
ListBox3.Clear
ListBox4.Clear
ListBox5.Clear
If ComboBox1.Value = "" Then Exit Sub
For F = 1 To UBound(tabtemp, 1)
If tabtemp(F, 1) = CLng(ComboBox1.Value) Then
ListBox1.AddItem tabtemp(F, 3)
ListBox2.AddItem tabtemp(F, 4)
ListBox3.AddItem tabtemp(F, 5)
ListBox4.AddItem tabtemp(F, 6)
ListBox5.AddItem tabtemp(F, 10)
End If
Next F
End Sub
Private Sub ComboBox2_Change()
Dim tabtemp As Variant
Dim L As Integer
With Worksheets("Mancoliste")
L = .Range("b25000").End(xlUp).Row
tabtemp = .Range("A2:K" & L).Value
End With
ListBox1.Clear
ListBox2.Clear
ListBox3.Clear
ListBox4.Clear
ListBox5.Clear
If ComboBox2.Value = "" Then Exit Sub
For L = 1 To UBound(tabtemp, 1)
If tabtemp(L, 1) = CLng(ComboBox2.Value) Then
ListBox1.AddItem tabtemp(L, 2)
ListBox2.AddItem tabtemp(L, 3)
ListBox3.AddItem tabtemp(L, 4)
ListBox4.AddItem tabtemp(L, 5)
ListBox5.AddItem tabtemp(L, 9)
End If
Next L
End Sub
Private Sub ComboBox3_Change()
Dim tabtemp As Variant
Dim A As Integer
With Worksheets("Mancoliste")
A = .Range("c25000").End(xlUp).Row
tabtemp = .Range("A2:K" & A).Value
End With
ListBox1.Clear
ListBox2.Clear
ListBox3.Clear
ListBox4.Clear
ListBox5.Clear
If ComboBox1.Value = "" Then Exit Sub
For A = 1 To UBound(tabtemp, 1)
If tabtemp(A, 1) = CLng(ComboBox3.Value) Then
ListBox1.AddItem tabtemp(A, 2)
ListBox2.AddItem tabtemp(A, 3)
ListBox3.AddItem tabtemp(A, 4)
ListBox4.AddItem tabtemp(A, 5)
ListBox5.AddItem tabtemp(A, 8)
End If
Next A
End Sub
Deuxième problème :
Comment faire pour ne pas avoir de doublons dans la liste ?
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
Yvan
Bonsoir *Linebaker*
Pour les doublons ceci: http://www.excelabo.net/xl/filtris.php#trilistedoublons
Sinon ton code parait correct. Le résultat dépend de tes feuilles, mais tout de même!
As-tu essayé de suivre la progression de tes macros pas à pas (avec un point d'arrêt en début de procédure par exemple). Dans ton cas, c'est ce qui sera le plus rapide.
Pour mémoire, dans le code,
Mettre/enlever un point d'arret - > F9 Exécuter 1 ligne à la fois - > F8
Bonne nuit!
Yvan
"Linebaker" a écrit dans le message de news: evuJe.4423$ | Bonjour, | | Premier problème : | | Lorsque je clique sur n'importe quel combobox rien n'apparait dans la liste. | | Où est mon erreur ? | | Private Sub ComboBox1_Change() | Dim tabtemp As Variant | Dim F As Integer | With Worksheets("Mancoliste") | F = .Range("a25000").End(xlUp).Row | tabtemp = .Range("A2:K" & F).Value | End With | ListBox1.Clear | ListBox2.Clear | ListBox3.Clear | ListBox4.Clear | ListBox5.Clear | If ComboBox1.Value = "" Then Exit Sub | | For F = 1 To UBound(tabtemp, 1) | If tabtemp(F, 1) = CLng(ComboBox1.Value) Then | | ListBox1.AddItem tabtemp(F, 3) | ListBox2.AddItem tabtemp(F, 4) | ListBox3.AddItem tabtemp(F, 5) | ListBox4.AddItem tabtemp(F, 6) | ListBox5.AddItem tabtemp(F, 10) | End If | Next F | | End Sub | Private Sub ComboBox2_Change() | Dim tabtemp As Variant | Dim L As Integer | With Worksheets("Mancoliste") | L = .Range("b25000").End(xlUp).Row | tabtemp = .Range("A2:K" & L).Value | End With | ListBox1.Clear | ListBox2.Clear | ListBox3.Clear | ListBox4.Clear | ListBox5.Clear | If ComboBox2.Value = "" Then Exit Sub | | For L = 1 To UBound(tabtemp, 1) | If tabtemp(L, 1) = CLng(ComboBox2.Value) Then | | ListBox1.AddItem tabtemp(L, 2) | ListBox2.AddItem tabtemp(L, 3) | ListBox3.AddItem tabtemp(L, 4) | ListBox4.AddItem tabtemp(L, 5) | ListBox5.AddItem tabtemp(L, 9) | End If | Next L | | End Sub | Private Sub ComboBox3_Change() | Dim tabtemp As Variant | Dim A As Integer | With Worksheets("Mancoliste") | A = .Range("c25000").End(xlUp).Row | tabtemp = .Range("A2:K" & A).Value | End With | ListBox1.Clear | ListBox2.Clear | ListBox3.Clear | ListBox4.Clear | ListBox5.Clear | If ComboBox1.Value = "" Then Exit Sub | | For A = 1 To UBound(tabtemp, 1) | If tabtemp(A, 1) = CLng(ComboBox3.Value) Then | | ListBox1.AddItem tabtemp(A, 2) | ListBox2.AddItem tabtemp(A, 3) | ListBox3.AddItem tabtemp(A, 4) | ListBox4.AddItem tabtemp(A, 5) | ListBox5.AddItem tabtemp(A, 8) | End If | Next A | | End Sub | | Deuxième problème : | | Comment faire pour ne pas avoir de doublons dans la liste ? | | Merci | |
Bonsoir *Linebaker*
Pour les doublons ceci: http://www.excelabo.net/xl/filtris.php#trilistedoublons
Sinon ton code parait correct. Le résultat dépend de tes feuilles, mais tout de même!
As-tu essayé de suivre la progression de tes macros pas à pas (avec un point d'arrêt
en début de procédure par exemple). Dans ton cas, c'est ce qui sera le plus rapide.
Pour mémoire, dans le code,
Mettre/enlever un point d'arret - > F9
Exécuter 1 ligne à la fois - > F8
Bonne nuit!
Yvan
"Linebaker" <tryagain@hotmail.com> a écrit dans le message de news:
evuJe.4423$651.317142@weber.videotron.net...
| Bonjour,
|
| Premier problème :
|
| Lorsque je clique sur n'importe quel combobox rien n'apparait dans la liste.
|
| Où est mon erreur ?
|
| Private Sub ComboBox1_Change()
| Dim tabtemp As Variant
| Dim F As Integer
| With Worksheets("Mancoliste")
| F = .Range("a25000").End(xlUp).Row
| tabtemp = .Range("A2:K" & F).Value
| End With
| ListBox1.Clear
| ListBox2.Clear
| ListBox3.Clear
| ListBox4.Clear
| ListBox5.Clear
| If ComboBox1.Value = "" Then Exit Sub
|
| For F = 1 To UBound(tabtemp, 1)
| If tabtemp(F, 1) = CLng(ComboBox1.Value) Then
|
| ListBox1.AddItem tabtemp(F, 3)
| ListBox2.AddItem tabtemp(F, 4)
| ListBox3.AddItem tabtemp(F, 5)
| ListBox4.AddItem tabtemp(F, 6)
| ListBox5.AddItem tabtemp(F, 10)
| End If
| Next F
|
| End Sub
| Private Sub ComboBox2_Change()
| Dim tabtemp As Variant
| Dim L As Integer
| With Worksheets("Mancoliste")
| L = .Range("b25000").End(xlUp).Row
| tabtemp = .Range("A2:K" & L).Value
| End With
| ListBox1.Clear
| ListBox2.Clear
| ListBox3.Clear
| ListBox4.Clear
| ListBox5.Clear
| If ComboBox2.Value = "" Then Exit Sub
|
| For L = 1 To UBound(tabtemp, 1)
| If tabtemp(L, 1) = CLng(ComboBox2.Value) Then
|
| ListBox1.AddItem tabtemp(L, 2)
| ListBox2.AddItem tabtemp(L, 3)
| ListBox3.AddItem tabtemp(L, 4)
| ListBox4.AddItem tabtemp(L, 5)
| ListBox5.AddItem tabtemp(L, 9)
| End If
| Next L
|
| End Sub
| Private Sub ComboBox3_Change()
| Dim tabtemp As Variant
| Dim A As Integer
| With Worksheets("Mancoliste")
| A = .Range("c25000").End(xlUp).Row
| tabtemp = .Range("A2:K" & A).Value
| End With
| ListBox1.Clear
| ListBox2.Clear
| ListBox3.Clear
| ListBox4.Clear
| ListBox5.Clear
| If ComboBox1.Value = "" Then Exit Sub
|
| For A = 1 To UBound(tabtemp, 1)
| If tabtemp(A, 1) = CLng(ComboBox3.Value) Then
|
| ListBox1.AddItem tabtemp(A, 2)
| ListBox2.AddItem tabtemp(A, 3)
| ListBox3.AddItem tabtemp(A, 4)
| ListBox4.AddItem tabtemp(A, 5)
| ListBox5.AddItem tabtemp(A, 8)
| End If
| Next A
|
| End Sub
|
| Deuxième problème :
|
| Comment faire pour ne pas avoir de doublons dans la liste ?
|
| Merci
|
|
Pour les doublons ceci: http://www.excelabo.net/xl/filtris.php#trilistedoublons
Sinon ton code parait correct. Le résultat dépend de tes feuilles, mais tout de même!
As-tu essayé de suivre la progression de tes macros pas à pas (avec un point d'arrêt en début de procédure par exemple). Dans ton cas, c'est ce qui sera le plus rapide.
Pour mémoire, dans le code,
Mettre/enlever un point d'arret - > F9 Exécuter 1 ligne à la fois - > F8
Bonne nuit!
Yvan
"Linebaker" a écrit dans le message de news: evuJe.4423$ | Bonjour, | | Premier problème : | | Lorsque je clique sur n'importe quel combobox rien n'apparait dans la liste. | | Où est mon erreur ? | | Private Sub ComboBox1_Change() | Dim tabtemp As Variant | Dim F As Integer | With Worksheets("Mancoliste") | F = .Range("a25000").End(xlUp).Row | tabtemp = .Range("A2:K" & F).Value | End With | ListBox1.Clear | ListBox2.Clear | ListBox3.Clear | ListBox4.Clear | ListBox5.Clear | If ComboBox1.Value = "" Then Exit Sub | | For F = 1 To UBound(tabtemp, 1) | If tabtemp(F, 1) = CLng(ComboBox1.Value) Then | | ListBox1.AddItem tabtemp(F, 3) | ListBox2.AddItem tabtemp(F, 4) | ListBox3.AddItem tabtemp(F, 5) | ListBox4.AddItem tabtemp(F, 6) | ListBox5.AddItem tabtemp(F, 10) | End If | Next F | | End Sub | Private Sub ComboBox2_Change() | Dim tabtemp As Variant | Dim L As Integer | With Worksheets("Mancoliste") | L = .Range("b25000").End(xlUp).Row | tabtemp = .Range("A2:K" & L).Value | End With | ListBox1.Clear | ListBox2.Clear | ListBox3.Clear | ListBox4.Clear | ListBox5.Clear | If ComboBox2.Value = "" Then Exit Sub | | For L = 1 To UBound(tabtemp, 1) | If tabtemp(L, 1) = CLng(ComboBox2.Value) Then | | ListBox1.AddItem tabtemp(L, 2) | ListBox2.AddItem tabtemp(L, 3) | ListBox3.AddItem tabtemp(L, 4) | ListBox4.AddItem tabtemp(L, 5) | ListBox5.AddItem tabtemp(L, 9) | End If | Next L | | End Sub | Private Sub ComboBox3_Change() | Dim tabtemp As Variant | Dim A As Integer | With Worksheets("Mancoliste") | A = .Range("c25000").End(xlUp).Row | tabtemp = .Range("A2:K" & A).Value | End With | ListBox1.Clear | ListBox2.Clear | ListBox3.Clear | ListBox4.Clear | ListBox5.Clear | If ComboBox1.Value = "" Then Exit Sub | | For A = 1 To UBound(tabtemp, 1) | If tabtemp(A, 1) = CLng(ComboBox3.Value) Then | | ListBox1.AddItem tabtemp(A, 2) | ListBox2.AddItem tabtemp(A, 3) | ListBox3.AddItem tabtemp(A, 4) | ListBox4.AddItem tabtemp(A, 5) | ListBox5.AddItem tabtemp(A, 8) | End If | Next A | | End Sub | | Deuxième problème : | | Comment faire pour ne pas avoir de doublons dans la liste ? | | Merci | |
Linebaker
Bonne nuit Yvan,
Merci pour le lien au sujet des doublons.
Pour ce qui est de mon code mes feuilles sont correct. J'utilise toujours le F8 pour vérifier mon code est lorsqu'il ne fonctionne pas je viens ici pour demander de l'aide car il y a sûrement quelque chose qui cloche dans mon code mais que je ne vois pas. Les forums sont pour l'entraide pas pour se faire dire de vérifier ton code et trouve ton erreur tout seul.
Malgré le fait que j'ai suivi ton conseil avec le F8, mes combobox sont toujours vide et mes feuilles sont OK.
D'autres suggestions ?
Merci.
"Yvan" <yvan.echanges(enlever ceci)@free.fr> a écrit dans le message de news:
Bonsoir *Linebaker*
Pour les doublons ceci: http://www.excelabo.net/xl/filtris.php#trilistedoublons
Sinon ton code parait correct. Le résultat dépend de tes feuilles, mais tout de même!
As-tu essayé de suivre la progression de tes macros pas à pas (avec un point d'arrêt en début de procédure par exemple). Dans ton cas, c'est ce qui sera le plus rapide.
Pour mémoire, dans le code,
Mettre/enlever un point d'arret - > F9 Exécuter 1 ligne à la fois - > F8
Bonne nuit!
Yvan
"Linebaker" a écrit dans le message de news: evuJe.4423$ | Bonjour, | | Premier problème : | | Lorsque je clique sur n'importe quel combobox rien n'apparait dans la liste. | | Où est mon erreur ? | | Private Sub ComboBox1_Change() | Dim tabtemp As Variant | Dim F As Integer | With Worksheets("Mancoliste") | F = .Range("a25000").End(xlUp).Row | tabtemp = .Range("A2:K" & F).Value | End With | ListBox1.Clear | ListBox2.Clear | ListBox3.Clear | ListBox4.Clear | ListBox5.Clear | If ComboBox1.Value = "" Then Exit Sub | | For F = 1 To UBound(tabtemp, 1) | If tabtemp(F, 1) = CLng(ComboBox1.Value) Then | | ListBox1.AddItem tabtemp(F, 3) | ListBox2.AddItem tabtemp(F, 4) | ListBox3.AddItem tabtemp(F, 5) | ListBox4.AddItem tabtemp(F, 6) | ListBox5.AddItem tabtemp(F, 10) | End If | Next F | | End Sub | Private Sub ComboBox2_Change() | Dim tabtemp As Variant | Dim L As Integer | With Worksheets("Mancoliste") | L = .Range("b25000").End(xlUp).Row | tabtemp = .Range("A2:K" & L).Value | End With | ListBox1.Clear | ListBox2.Clear | ListBox3.Clear | ListBox4.Clear | ListBox5.Clear | If ComboBox2.Value = "" Then Exit Sub | | For L = 1 To UBound(tabtemp, 1) | If tabtemp(L, 1) = CLng(ComboBox2.Value) Then | | ListBox1.AddItem tabtemp(L, 2) | ListBox2.AddItem tabtemp(L, 3) | ListBox3.AddItem tabtemp(L, 4) | ListBox4.AddItem tabtemp(L, 5) | ListBox5.AddItem tabtemp(L, 9) | End If | Next L | | End Sub | Private Sub ComboBox3_Change() | Dim tabtemp As Variant | Dim A As Integer | With Worksheets("Mancoliste") | A = .Range("c25000").End(xlUp).Row | tabtemp = .Range("A2:K" & A).Value | End With | ListBox1.Clear | ListBox2.Clear | ListBox3.Clear | ListBox4.Clear | ListBox5.Clear | If ComboBox1.Value = "" Then Exit Sub | | For A = 1 To UBound(tabtemp, 1) | If tabtemp(A, 1) = CLng(ComboBox3.Value) Then | | ListBox1.AddItem tabtemp(A, 2) | ListBox2.AddItem tabtemp(A, 3) | ListBox3.AddItem tabtemp(A, 4) | ListBox4.AddItem tabtemp(A, 5) | ListBox5.AddItem tabtemp(A, 8) | End If | Next A | | End Sub | | Deuxième problème : | | Comment faire pour ne pas avoir de doublons dans la liste ? | | Merci | |
Bonne nuit Yvan,
Merci pour le lien au sujet des doublons.
Pour ce qui est de mon code mes feuilles sont correct. J'utilise toujours le
F8 pour vérifier mon code est lorsqu'il ne fonctionne pas je viens ici pour
demander de l'aide car il y a sûrement quelque chose qui cloche dans mon
code mais que je ne vois pas. Les forums sont pour l'entraide pas pour se
faire dire de vérifier ton code et trouve ton erreur tout seul.
Malgré le fait que j'ai suivi ton conseil avec le F8, mes combobox sont
toujours vide et mes feuilles sont OK.
D'autres suggestions ?
Merci.
"Yvan" <yvan.echanges(enlever ceci)@free.fr> a écrit dans le message de
news: OE3sYc5mFHA.3572@TK2MSFTNGP09.phx.gbl...
Bonsoir *Linebaker*
Pour les doublons ceci:
http://www.excelabo.net/xl/filtris.php#trilistedoublons
Sinon ton code parait correct. Le résultat dépend de tes feuilles, mais
tout de même!
As-tu essayé de suivre la progression de tes macros pas à pas (avec un
point d'arrêt
en début de procédure par exemple). Dans ton cas, c'est ce qui sera le
plus rapide.
Pour mémoire, dans le code,
Mettre/enlever un point d'arret - > F9
Exécuter 1 ligne à la fois - > F8
Bonne nuit!
Yvan
"Linebaker" <tryagain@hotmail.com> a écrit dans le message de news:
evuJe.4423$651.317142@weber.videotron.net...
| Bonjour,
|
| Premier problème :
|
| Lorsque je clique sur n'importe quel combobox rien n'apparait dans la
liste.
|
| Où est mon erreur ?
|
| Private Sub ComboBox1_Change()
| Dim tabtemp As Variant
| Dim F As Integer
| With Worksheets("Mancoliste")
| F = .Range("a25000").End(xlUp).Row
| tabtemp = .Range("A2:K" & F).Value
| End With
| ListBox1.Clear
| ListBox2.Clear
| ListBox3.Clear
| ListBox4.Clear
| ListBox5.Clear
| If ComboBox1.Value = "" Then Exit Sub
|
| For F = 1 To UBound(tabtemp, 1)
| If tabtemp(F, 1) = CLng(ComboBox1.Value) Then
|
| ListBox1.AddItem tabtemp(F, 3)
| ListBox2.AddItem tabtemp(F, 4)
| ListBox3.AddItem tabtemp(F, 5)
| ListBox4.AddItem tabtemp(F, 6)
| ListBox5.AddItem tabtemp(F, 10)
| End If
| Next F
|
| End Sub
| Private Sub ComboBox2_Change()
| Dim tabtemp As Variant
| Dim L As Integer
| With Worksheets("Mancoliste")
| L = .Range("b25000").End(xlUp).Row
| tabtemp = .Range("A2:K" & L).Value
| End With
| ListBox1.Clear
| ListBox2.Clear
| ListBox3.Clear
| ListBox4.Clear
| ListBox5.Clear
| If ComboBox2.Value = "" Then Exit Sub
|
| For L = 1 To UBound(tabtemp, 1)
| If tabtemp(L, 1) = CLng(ComboBox2.Value) Then
|
| ListBox1.AddItem tabtemp(L, 2)
| ListBox2.AddItem tabtemp(L, 3)
| ListBox3.AddItem tabtemp(L, 4)
| ListBox4.AddItem tabtemp(L, 5)
| ListBox5.AddItem tabtemp(L, 9)
| End If
| Next L
|
| End Sub
| Private Sub ComboBox3_Change()
| Dim tabtemp As Variant
| Dim A As Integer
| With Worksheets("Mancoliste")
| A = .Range("c25000").End(xlUp).Row
| tabtemp = .Range("A2:K" & A).Value
| End With
| ListBox1.Clear
| ListBox2.Clear
| ListBox3.Clear
| ListBox4.Clear
| ListBox5.Clear
| If ComboBox1.Value = "" Then Exit Sub
|
| For A = 1 To UBound(tabtemp, 1)
| If tabtemp(A, 1) = CLng(ComboBox3.Value) Then
|
| ListBox1.AddItem tabtemp(A, 2)
| ListBox2.AddItem tabtemp(A, 3)
| ListBox3.AddItem tabtemp(A, 4)
| ListBox4.AddItem tabtemp(A, 5)
| ListBox5.AddItem tabtemp(A, 8)
| End If
| Next A
|
| End Sub
|
| Deuxième problème :
|
| Comment faire pour ne pas avoir de doublons dans la liste ?
|
| Merci
|
|
Pour ce qui est de mon code mes feuilles sont correct. J'utilise toujours le F8 pour vérifier mon code est lorsqu'il ne fonctionne pas je viens ici pour demander de l'aide car il y a sûrement quelque chose qui cloche dans mon code mais que je ne vois pas. Les forums sont pour l'entraide pas pour se faire dire de vérifier ton code et trouve ton erreur tout seul.
Malgré le fait que j'ai suivi ton conseil avec le F8, mes combobox sont toujours vide et mes feuilles sont OK.
D'autres suggestions ?
Merci.
"Yvan" <yvan.echanges(enlever ceci)@free.fr> a écrit dans le message de news:
Bonsoir *Linebaker*
Pour les doublons ceci: http://www.excelabo.net/xl/filtris.php#trilistedoublons
Sinon ton code parait correct. Le résultat dépend de tes feuilles, mais tout de même!
As-tu essayé de suivre la progression de tes macros pas à pas (avec un point d'arrêt en début de procédure par exemple). Dans ton cas, c'est ce qui sera le plus rapide.
Pour mémoire, dans le code,
Mettre/enlever un point d'arret - > F9 Exécuter 1 ligne à la fois - > F8
Bonne nuit!
Yvan
"Linebaker" a écrit dans le message de news: evuJe.4423$ | Bonjour, | | Premier problème : | | Lorsque je clique sur n'importe quel combobox rien n'apparait dans la liste. | | Où est mon erreur ? | | Private Sub ComboBox1_Change() | Dim tabtemp As Variant | Dim F As Integer | With Worksheets("Mancoliste") | F = .Range("a25000").End(xlUp).Row | tabtemp = .Range("A2:K" & F).Value | End With | ListBox1.Clear | ListBox2.Clear | ListBox3.Clear | ListBox4.Clear | ListBox5.Clear | If ComboBox1.Value = "" Then Exit Sub | | For F = 1 To UBound(tabtemp, 1) | If tabtemp(F, 1) = CLng(ComboBox1.Value) Then | | ListBox1.AddItem tabtemp(F, 3) | ListBox2.AddItem tabtemp(F, 4) | ListBox3.AddItem tabtemp(F, 5) | ListBox4.AddItem tabtemp(F, 6) | ListBox5.AddItem tabtemp(F, 10) | End If | Next F | | End Sub | Private Sub ComboBox2_Change() | Dim tabtemp As Variant | Dim L As Integer | With Worksheets("Mancoliste") | L = .Range("b25000").End(xlUp).Row | tabtemp = .Range("A2:K" & L).Value | End With | ListBox1.Clear | ListBox2.Clear | ListBox3.Clear | ListBox4.Clear | ListBox5.Clear | If ComboBox2.Value = "" Then Exit Sub | | For L = 1 To UBound(tabtemp, 1) | If tabtemp(L, 1) = CLng(ComboBox2.Value) Then | | ListBox1.AddItem tabtemp(L, 2) | ListBox2.AddItem tabtemp(L, 3) | ListBox3.AddItem tabtemp(L, 4) | ListBox4.AddItem tabtemp(L, 5) | ListBox5.AddItem tabtemp(L, 9) | End If | Next L | | End Sub | Private Sub ComboBox3_Change() | Dim tabtemp As Variant | Dim A As Integer | With Worksheets("Mancoliste") | A = .Range("c25000").End(xlUp).Row | tabtemp = .Range("A2:K" & A).Value | End With | ListBox1.Clear | ListBox2.Clear | ListBox3.Clear | ListBox4.Clear | ListBox5.Clear | If ComboBox1.Value = "" Then Exit Sub | | For A = 1 To UBound(tabtemp, 1) | If tabtemp(A, 1) = CLng(ComboBox3.Value) Then | | ListBox1.AddItem tabtemp(A, 2) | ListBox2.AddItem tabtemp(A, 3) | ListBox3.AddItem tabtemp(A, 4) | ListBox4.AddItem tabtemp(A, 5) | ListBox5.AddItem tabtemp(A, 8) | End If | Next A | | End Sub | | Deuxième problème : | | Comment faire pour ne pas avoir de doublons dans la liste ? | | Merci | |
Yvan
Bonjour Linebaker.
Désolé si je t'ai froissé. Ce n'était bien entendu pas le but!
J'ai reconstitué un classeur pour tester ton code que j'y ai collé et testé sans en changer un iota.
Comme je le pressentais hier, ce sont les valeurs contenues dans les feuilles qui sont en cause.
Ton code fonctionne parfaitement mais il se trouve que dans ton cas de figure, les conditions ** tabtemp(X, 1) = CLng(ComboBox.Value) ** ne sont jamais vérifiées.
En procédant pas à pas, on peut aisément s'en assurer, et en forçant les valeurs pour qu'elles vérifient les conditions, s'assurer que le code est bon. C'est ce que j'essayais de te dire hier (maladroitement, j'en conviens et je le regrette).
Si tu n'étais pas complétement convaincu, regarde ici: http://cjoint.com/?iijEuE5dc4
Tu reconnaitras tes macros.
Au plaisir!
Yvan
"Linebaker" a écrit dans le message de news: ztyJe.1909$0% | Bonne nuit Yvan, | | Merci pour le lien au sujet des doublons. | | Pour ce qui est de mon code mes feuilles sont correct. J'utilise toujours le | F8 pour vérifier mon code est lorsqu'il ne fonctionne pas je viens ici pour | demander de l'aide car il y a sûrement quelque chose qui cloche dans mon | code mais que je ne vois pas. Les forums sont pour l'entraide pas pour se | faire dire de vérifier ton code et trouve ton erreur tout seul. | | Malgré le fait que j'ai suivi ton conseil avec le F8, mes combobox sont | toujours vide et mes feuilles sont OK. | | D'autres suggestions ? | | Merci. | | | "Yvan" <yvan.echanges(enlever ceci)@free.fr> a écrit dans le message de | news: | > Bonsoir *Linebaker* | > | > Pour les doublons ceci: | > http://www.excelabo.net/xl/filtris.php#trilistedoublons | > | > Sinon ton code parait correct. Le résultat dépend de tes feuilles, mais | > tout de même! | > | > As-tu essayé de suivre la progression de tes macros pas à pas (avec un | > point d'arrêt | > en début de procédure par exemple). Dans ton cas, c'est ce qui sera le | > plus rapide. | > | > Pour mémoire, dans le code, | > | > Mettre/enlever un point d'arret - > F9 | > Exécuter 1 ligne à la fois - > F8 | > | > | > Bonne nuit! | > | > Yvan
Bonjour Linebaker.
Désolé si je t'ai froissé. Ce n'était bien entendu pas le but!
J'ai reconstitué un classeur pour tester ton code que j'y ai collé et testé sans en
changer un iota.
Comme je le pressentais hier, ce sont les valeurs contenues dans les feuilles qui
sont en cause.
Ton code fonctionne parfaitement mais il se trouve que dans ton cas de figure, les
conditions ** tabtemp(X, 1) = CLng(ComboBox.Value) ** ne sont jamais vérifiées.
En procédant pas à pas, on peut aisément s'en assurer, et en forçant les valeurs pour
qu'elles vérifient les conditions, s'assurer que le code est bon.
C'est ce que j'essayais de te dire hier (maladroitement, j'en conviens et je le
regrette).
Si tu n'étais pas complétement convaincu, regarde ici: http://cjoint.com/?iijEuE5dc4
Tu reconnaitras tes macros.
Au plaisir!
Yvan
"Linebaker" <tryagain@hotmail.com> a écrit dans le message de news:
ztyJe.1909$0%6.454726@wagner.videotron.net...
| Bonne nuit Yvan,
|
| Merci pour le lien au sujet des doublons.
|
| Pour ce qui est de mon code mes feuilles sont correct. J'utilise toujours le
| F8 pour vérifier mon code est lorsqu'il ne fonctionne pas je viens ici pour
| demander de l'aide car il y a sûrement quelque chose qui cloche dans mon
| code mais que je ne vois pas. Les forums sont pour l'entraide pas pour se
| faire dire de vérifier ton code et trouve ton erreur tout seul.
|
| Malgré le fait que j'ai suivi ton conseil avec le F8, mes combobox sont
| toujours vide et mes feuilles sont OK.
|
| D'autres suggestions ?
|
| Merci.
|
|
| "Yvan" <yvan.echanges(enlever ceci)@free.fr> a écrit dans le message de
| news: OE3sYc5mFHA.3572@TK2MSFTNGP09.phx.gbl...
| > Bonsoir *Linebaker*
| >
| > Pour les doublons ceci:
| > http://www.excelabo.net/xl/filtris.php#trilistedoublons
| >
| > Sinon ton code parait correct. Le résultat dépend de tes feuilles, mais
| > tout de même!
| >
| > As-tu essayé de suivre la progression de tes macros pas à pas (avec un
| > point d'arrêt
| > en début de procédure par exemple). Dans ton cas, c'est ce qui sera le
| > plus rapide.
| >
| > Pour mémoire, dans le code,
| >
| > Mettre/enlever un point d'arret - > F9
| > Exécuter 1 ligne à la fois - > F8
| >
| >
| > Bonne nuit!
| >
| > Yvan
Désolé si je t'ai froissé. Ce n'était bien entendu pas le but!
J'ai reconstitué un classeur pour tester ton code que j'y ai collé et testé sans en changer un iota.
Comme je le pressentais hier, ce sont les valeurs contenues dans les feuilles qui sont en cause.
Ton code fonctionne parfaitement mais il se trouve que dans ton cas de figure, les conditions ** tabtemp(X, 1) = CLng(ComboBox.Value) ** ne sont jamais vérifiées.
En procédant pas à pas, on peut aisément s'en assurer, et en forçant les valeurs pour qu'elles vérifient les conditions, s'assurer que le code est bon. C'est ce que j'essayais de te dire hier (maladroitement, j'en conviens et je le regrette).
Si tu n'étais pas complétement convaincu, regarde ici: http://cjoint.com/?iijEuE5dc4
Tu reconnaitras tes macros.
Au plaisir!
Yvan
"Linebaker" a écrit dans le message de news: ztyJe.1909$0% | Bonne nuit Yvan, | | Merci pour le lien au sujet des doublons. | | Pour ce qui est de mon code mes feuilles sont correct. J'utilise toujours le | F8 pour vérifier mon code est lorsqu'il ne fonctionne pas je viens ici pour | demander de l'aide car il y a sûrement quelque chose qui cloche dans mon | code mais que je ne vois pas. Les forums sont pour l'entraide pas pour se | faire dire de vérifier ton code et trouve ton erreur tout seul. | | Malgré le fait que j'ai suivi ton conseil avec le F8, mes combobox sont | toujours vide et mes feuilles sont OK. | | D'autres suggestions ? | | Merci. | | | "Yvan" <yvan.echanges(enlever ceci)@free.fr> a écrit dans le message de | news: | > Bonsoir *Linebaker* | > | > Pour les doublons ceci: | > http://www.excelabo.net/xl/filtris.php#trilistedoublons | > | > Sinon ton code parait correct. Le résultat dépend de tes feuilles, mais | > tout de même! | > | > As-tu essayé de suivre la progression de tes macros pas à pas (avec un | > point d'arrêt | > en début de procédure par exemple). Dans ton cas, c'est ce qui sera le | > plus rapide. | > | > Pour mémoire, dans le code, | > | > Mettre/enlever un point d'arret - > F9 | > Exécuter 1 ligne à la fois - > F8 | > | > | > Bonne nuit! | > | > Yvan
Linebaker
Bonsoir Yvan,
La raison demon message est que parfois une erreur peut être évidente pour quelqu'un mais pas pour les autres et qu'il ne faut pas prendre pour acquis son évidence. Il y a deux semaine j'ai perdu 2 jours à chercher une erreur et une personne l'a trouvé en moins de 2 (le me manque tout simplement le point devant Range (.Range)) et je savais très bien que je devais le mettre.
Pour ce qui est de mon code j'ai fait de modifs et il fonctionne presque comme je le veux. Je fais d'autres essais et j'aurais sûrement besoin encore d'aide.
Merci pour ton aide
"Yvan" <yvan.echanges(enlever ceci)@free.fr> a écrit dans le message de news: uJgLof%
Bonjour Linebaker.
Désolé si je t'ai froissé. Ce n'était bien entendu pas le but!
J'ai reconstitué un classeur pour tester ton code que j'y ai collé et testé sans en changer un iota.
Comme je le pressentais hier, ce sont les valeurs contenues dans les feuilles qui sont en cause.
Ton code fonctionne parfaitement mais il se trouve que dans ton cas de figure, les conditions ** tabtemp(X, 1) = CLng(ComboBox.Value) ** ne sont jamais vérifiées.
En procédant pas à pas, on peut aisément s'en assurer, et en forçant les valeurs pour qu'elles vérifient les conditions, s'assurer que le code est bon. C'est ce que j'essayais de te dire hier (maladroitement, j'en conviens et je le regrette).
Si tu n'étais pas complétement convaincu, regarde ici: http://cjoint.com/?iijEuE5dc4
Tu reconnaitras tes macros.
Au plaisir!
Yvan
"Linebaker" a écrit dans le message de news: ztyJe.1909$0% | Bonne nuit Yvan, | | Merci pour le lien au sujet des doublons. | | Pour ce qui est de mon code mes feuilles sont correct. J'utilise toujours le | F8 pour vérifier mon code est lorsqu'il ne fonctionne pas je viens ici pour | demander de l'aide car il y a sûrement quelque chose qui cloche dans mon | code mais que je ne vois pas. Les forums sont pour l'entraide pas pour se | faire dire de vérifier ton code et trouve ton erreur tout seul. | | Malgré le fait que j'ai suivi ton conseil avec le F8, mes combobox sont | toujours vide et mes feuilles sont OK. | | D'autres suggestions ? | | Merci. | | | "Yvan" <yvan.echanges(enlever ceci)@free.fr> a écrit dans le message de | news: | > Bonsoir *Linebaker* | > | > Pour les doublons ceci: | > http://www.excelabo.net/xl/filtris.php#trilistedoublons | > | > Sinon ton code parait correct. Le résultat dépend de tes feuilles, mais | > tout de même! | > | > As-tu essayé de suivre la progression de tes macros pas à pas (avec un | > point d'arrêt | > en début de procédure par exemple). Dans ton cas, c'est ce qui sera le | > plus rapide. | > | > Pour mémoire, dans le code, | > | > Mettre/enlever un point d'arret - > F9 | > Exécuter 1 ligne à la fois - > F8 | > | > | > Bonne nuit! | > | > Yvan
Bonsoir Yvan,
La raison demon message est que parfois une erreur peut être évidente pour
quelqu'un mais pas pour les autres et qu'il ne faut pas prendre pour acquis
son évidence. Il y a deux semaine j'ai perdu 2 jours à chercher une erreur
et une personne l'a trouvé en moins de 2 (le me manque tout simplement le
point devant Range (.Range)) et je savais très bien que je devais le mettre.
Pour ce qui est de mon code j'ai fait de modifs et il fonctionne presque
comme je le veux. Je fais d'autres essais et j'aurais sûrement besoin encore
d'aide.
Merci pour ton aide
"Yvan" <yvan.echanges(enlever ceci)@free.fr> a écrit dans le message de
news: uJgLof%23mFHA.240@TK2MSFTNGP10.phx.gbl...
Bonjour Linebaker.
Désolé si je t'ai froissé. Ce n'était bien entendu pas le but!
J'ai reconstitué un classeur pour tester ton code que j'y ai collé et
testé sans en
changer un iota.
Comme je le pressentais hier, ce sont les valeurs contenues dans les
feuilles qui
sont en cause.
Ton code fonctionne parfaitement mais il se trouve que dans ton cas de
figure, les
conditions ** tabtemp(X, 1) = CLng(ComboBox.Value) ** ne sont jamais
vérifiées.
En procédant pas à pas, on peut aisément s'en assurer, et en forçant les
valeurs pour
qu'elles vérifient les conditions, s'assurer que le code est bon.
C'est ce que j'essayais de te dire hier (maladroitement, j'en conviens et
je le
regrette).
Si tu n'étais pas complétement convaincu, regarde ici:
http://cjoint.com/?iijEuE5dc4
Tu reconnaitras tes macros.
Au plaisir!
Yvan
"Linebaker" <tryagain@hotmail.com> a écrit dans le message de news:
ztyJe.1909$0%6.454726@wagner.videotron.net...
| Bonne nuit Yvan,
|
| Merci pour le lien au sujet des doublons.
|
| Pour ce qui est de mon code mes feuilles sont correct. J'utilise
toujours le
| F8 pour vérifier mon code est lorsqu'il ne fonctionne pas je viens ici
pour
| demander de l'aide car il y a sûrement quelque chose qui cloche dans mon
| code mais que je ne vois pas. Les forums sont pour l'entraide pas pour
se
| faire dire de vérifier ton code et trouve ton erreur tout seul.
|
| Malgré le fait que j'ai suivi ton conseil avec le F8, mes combobox sont
| toujours vide et mes feuilles sont OK.
|
| D'autres suggestions ?
|
| Merci.
|
|
| "Yvan" <yvan.echanges(enlever ceci)@free.fr> a écrit dans le message de
| news: OE3sYc5mFHA.3572@TK2MSFTNGP09.phx.gbl...
| > Bonsoir *Linebaker*
| >
| > Pour les doublons ceci:
| > http://www.excelabo.net/xl/filtris.php#trilistedoublons
| >
| > Sinon ton code parait correct. Le résultat dépend de tes feuilles,
mais
| > tout de même!
| >
| > As-tu essayé de suivre la progression de tes macros pas à pas (avec un
| > point d'arrêt
| > en début de procédure par exemple). Dans ton cas, c'est ce qui sera le
| > plus rapide.
| >
| > Pour mémoire, dans le code,
| >
| > Mettre/enlever un point d'arret - > F9
| > Exécuter 1 ligne à la fois - > F8
| >
| >
| > Bonne nuit!
| >
| > Yvan
La raison demon message est que parfois une erreur peut être évidente pour quelqu'un mais pas pour les autres et qu'il ne faut pas prendre pour acquis son évidence. Il y a deux semaine j'ai perdu 2 jours à chercher une erreur et une personne l'a trouvé en moins de 2 (le me manque tout simplement le point devant Range (.Range)) et je savais très bien que je devais le mettre.
Pour ce qui est de mon code j'ai fait de modifs et il fonctionne presque comme je le veux. Je fais d'autres essais et j'aurais sûrement besoin encore d'aide.
Merci pour ton aide
"Yvan" <yvan.echanges(enlever ceci)@free.fr> a écrit dans le message de news: uJgLof%
Bonjour Linebaker.
Désolé si je t'ai froissé. Ce n'était bien entendu pas le but!
J'ai reconstitué un classeur pour tester ton code que j'y ai collé et testé sans en changer un iota.
Comme je le pressentais hier, ce sont les valeurs contenues dans les feuilles qui sont en cause.
Ton code fonctionne parfaitement mais il se trouve que dans ton cas de figure, les conditions ** tabtemp(X, 1) = CLng(ComboBox.Value) ** ne sont jamais vérifiées.
En procédant pas à pas, on peut aisément s'en assurer, et en forçant les valeurs pour qu'elles vérifient les conditions, s'assurer que le code est bon. C'est ce que j'essayais de te dire hier (maladroitement, j'en conviens et je le regrette).
Si tu n'étais pas complétement convaincu, regarde ici: http://cjoint.com/?iijEuE5dc4
Tu reconnaitras tes macros.
Au plaisir!
Yvan
"Linebaker" a écrit dans le message de news: ztyJe.1909$0% | Bonne nuit Yvan, | | Merci pour le lien au sujet des doublons. | | Pour ce qui est de mon code mes feuilles sont correct. J'utilise toujours le | F8 pour vérifier mon code est lorsqu'il ne fonctionne pas je viens ici pour | demander de l'aide car il y a sûrement quelque chose qui cloche dans mon | code mais que je ne vois pas. Les forums sont pour l'entraide pas pour se | faire dire de vérifier ton code et trouve ton erreur tout seul. | | Malgré le fait que j'ai suivi ton conseil avec le F8, mes combobox sont | toujours vide et mes feuilles sont OK. | | D'autres suggestions ? | | Merci. | | | "Yvan" <yvan.echanges(enlever ceci)@free.fr> a écrit dans le message de | news: | > Bonsoir *Linebaker* | > | > Pour les doublons ceci: | > http://www.excelabo.net/xl/filtris.php#trilistedoublons | > | > Sinon ton code parait correct. Le résultat dépend de tes feuilles, mais | > tout de même! | > | > As-tu essayé de suivre la progression de tes macros pas à pas (avec un | > point d'arrêt | > en début de procédure par exemple). Dans ton cas, c'est ce qui sera le | > plus rapide. | > | > Pour mémoire, dans le code, | > | > Mettre/enlever un point d'arret - > F9 | > Exécuter 1 ligne à la fois - > F8 | > | > | > Bonne nuit! | > | > Yvan
