Bonsoir Zon, le Fil et le Forum
Oui c'est assez galère ce soir on dirait que seules les URL construites sur la base de : (qu'on reçoit depuis un mail ...)
http://www.excel-downloads.com/html/French/forum/read.php?f=1&i=67825&t=67825
...passent...
Sinon mis à part cette galère de PHorum, j'espère que David va s'en sortir...
Oui, "of Course", on peut peut alimenter une Combobox ou une ListBox de cette manière que de la même manière qu'on alimenterait une Array, puisqu'elles réagissent idem :
Sub MonBoTablo()
Dim MyArray As Variant
MyArray = Range("A1:A100")
Range("B1:B100").Value = MyArray
USFX.ListBox1.List = MyArray
End Sub
Et tu as parfaitement raison de le préciser. Mais, par contre, je ne supporte pas bien les
"] ] [ ] " dans un code VB, d'ailleurs je me rappelle que Laurent Longre disait qu'il était très "cochon" quand il les employait !! Et par ailleurs, dans tous les codes que j'ai l'occasion d'utiliser au niveau développement pro, je n'en vois jamais... Mais ceci dit, si çà marche avec çà et que çà vous simplifie la vie...
Tu sais Zon, çà te paraît évident pour toi depuis le temps que tu lis mes codes, mais il y en a beaucoup qui ont besoin d'écrire et d'utiliser des centaines de fois ce fameux :
L = Range("A65536").End(xlUp).Row
For i = 1 to L
ou autres...
y = y + 1
Qui sont pourtant les "Clefs d'accès" pour rentrer dans le monde VBA... Car cette boucle c'est comme le levier pour un certain Archimède !!!
Et dans le code décrit ci-dessus pour
Méthode "List" je n'ai pas voulu compliquer, mais j'explique qu'on peut filtrer, trier etc, ce qui est en fait le but de la méthode List pour intégrer un "Bo Tablo dans la ComBo"... une exemple "simple" LOL :
Private Sub UserForm_Initialize()
Dim Tablo() As String
Dim Plage As Range, Cell As Range
Dim x As Integer, i As Integer, j As Integer, ii As Integer
Dim Tmp1 As String, Tmp2 As String
With ThisWorkbook.Sheets("Feuil1")
Set Plage = .Range("A1:A" & .Range("A65536").End(xlUp).Row)
End With
For Each Cell In Plage
If Cell.Value <> "" And Not IsNumeric(Cell.Value) Then
ReDim Preserve Tablo(0 To x)
Tablo(x) = Cell.Text
x = x + 1
End If
Next
For i = LBound(Tablo) To UBound(Tablo)
For j = LBound(Tablo) + ii To UBound(Tablo)
If Tablo(i) > Tablo(j) Then
Tmp1 = Tablo(j): Tmp2 = Tablo(j)
Tablo(j) = Tablo(i): Tablo(j) = Tablo(i)
Tablo(i) = Tmp1: Tablo(i) = Tmp2
End If
Next j
ii = ii + 1
Next i
Me.ComboBox1.List = Tablo()
End Sub
Bonne Nuit
@+Thierry
Take it Easy Just For The Fun
PS : j'espère que Karibou va pas s'enfuir à toutes jambes en voyant un truc pareil !!!
Au fait çà sert à ne pas prendre en considération les cellules vides ou numériques, et de trier les données dans la ComboBox... Pour les doublons faut encore rajouter une couche mais là je vais au lit !