[cvs]

merci je vais tester

mais pour ton code

Private Sub UserForm_Initialize()
Dim x As Integer, i As Integer

'pour recupere la derniere ligne non vide de la colonne A
x = Range('A65536').End(xlUp).Row

For i = 1 To x
ComboBox1.AddItem Cells(i, 1)
Next i
End Sub

j'ai résolu le problème autrement (donne moi ton avis)

j'ai mis dans une colonne plus loin cette formule =SI(A29 'différent de' '';1;0) et au bas de cette colonne j'ai fais la somme et c'est cette somme de ligne qui me sert a savoir ou est ma dernière ligne

---------------------------------------------------------

j'ai une autre question

En admettant que dans mon USF j'ai 2 combobox
je charge mon combobox2 avec

Private Sub ComboBox1_Change()
w = Range('BJ65536')
i = 1
While i 'signe inferieur' w + 1
NumSerie = Range('BB' & i)
ComboBox2.AddItem NumSerie
i = i + 1
Wend
end sub

et que je m'appercoive que je me suis trompé comment vider le combobox2 avant de le reremplir pour qu'il ne me mette pas les données suivante a la suite de la liste

merci

Message édité par: cvs, à: 14/04/2006 13:42