Discussion :

[oscar.cesar]

bonjour
j'ai combobox dans lequel je recopie le contenu de la colonne M de la ligne 4 à la derniere ligne occupee
je voudrais prendre dans la colonne M que les ligne dont les valeurs sont differente de 0 ou vide ?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
For ligne = 4 To derniereligne
     Dim jj As Integer
      For jj = 4 To Sheets("feuil2").Range("m65536").End(xlUp).Row
 
 
              ComboBox13 = Sheets("feuil2").Range("m" & jj)
              If ComboBox13.ListIndex = -1  Then ComboBox13.AddItem Sheets("feuil2").Range("m" & jj)
 
      Next jj
 
Next ligne

si qql à une idee

merci

[ouskel'n'or]

Avec Additem, tu peux faire ça. Avec List() aussi si tu tries tes données au préalable, ou si tu parcours ta colonne et places tes données dans un tableau.

[oscar.cesar]

bonsoir à tous , ouskel'n'or
peux t'on donc mettre un test à cet endroit ?

Code :

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

1
2
3
4
If ComboBox13.ListIndex = -1  Then 

if sheets("feuil2").range("O" & jj ) <>" " then ComboBox13.AddItem Sheets("feuil2").Range("m" & jj)

[ouskel'n'or]

Oui !