Dépassement de capacité
Bonjour,
j'ai essayé d'utiliser un Combobox et listBox, mais quand je lance la procédure il se bloque dans la variable nb_ligne, svp qlqn peut me dire pouquoi, cordialement
Bonjour Kira 31 le forum
tu peux essayer Dim nb_ligne&
a+
Papou
Bonjour Kira 31 le forum
tu peux essayer Dim nb_ligne&
a+
Papou
re, j'ai pas compris
Private Sub ComboBox1_Change()
ListBox1.Clear
Dim no_colonne As Integer, nb_ligne As Integer
no_colonne = ComboBox1.ListIndex + 1
nb_ligne& = Cells(429, no_colonne).End(xlDown).Row
For i = 429 To nb_ligne
ListBox1.AddItem Cells(i, no_colonne)
Next
End Sub
Re Kira 301 le forum
Private Sub ComboBox1_Change()
ListBox1.Clear
Dim no_colonne&, nb_ligne&
no_colonne = ComboBox1.ListIndex + 1
nb_ligne& = Cells(429, no_colonne).End(xlDown).Row
For i = 429 To nb_ligne
ListBox1.AddItem Cells(i, no_colonne)
Next
End Sub
Hautre, ça n'a pas marché et il bloque l'excel et le redemarre.
Re Kira 301 le forum
comment veux tu que je te dise!!!
mets ton fichier en document joint et je regarderai ce qui ne va pas
a+
Papou
bonjour
je voulais le joindre mais il me dit que l'extension de fichier non prise en charge : test 11.xltm.
voila le fichier avec macro desactivé
Bonjour,
désolé pour le derangement c'était une erreur dans la variable, parce que le tableau est dans la colonne 12.
Private Sub ComboBox1_Change()
ListBox1.Clear
Dim no_colonne As Integer, nb_ligne As Integer
no_colonne = ComboBox1.ListIndex + 12
nb_ligne = Cells(429, no_colonne).End(xlDown).Row
For i = 430 To nb_ligne
ListBox1.AddItem Cells(i, no_colonne)
Next
End Sub
bonne continuation