For..... toto = trim(classeur_excel.Columns.Range("X2").Cells(i, 1).value) if toto <> "" then list5.additem toto Next
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionSi classeur_excel.Columns.Range("X2").Cells(i,j) n'est pas vide alors List5.AddItem classeur_excel.Columns.Range("X2").Cells(i,j) Fin Si
For..... toto = classeur_excel.Columns.Range("X2").Cells(i, 1).value if toto <> "" then list5.additem toto Next
Private Sub Command1_Click() dim toto as string, toto1 as string toto = str(list1.listcount) list5.removeitem(0) doevents toto1 = str(list5.listcount) msgbox toto & vbcrlf & toto1 end sub
Private Sub Command1_Click() Dim nbvides As Integer For i = 0 To List5.ListCount - 1 If List5.List(i) "" Then nbvides nbvides + 1 Next MsgBox nbvides End Sub