Question sur la programmation d'une Listbox

Bonjour à tous,
Je me suis servis d'un tuto internet pour paramétrer une listbox.

Seulement il y a trois choses que je ne comprends pas :
- à quoi sert le signe <>, pourquoi ne pas le remplacer par = dans un code :

Code:

---

1 2 3

Private Sub C1_Change() Dim i&, aa, a&, y&, fin& If C1 <> "" Then

---

- à quoi servent les commandes ubound et array
- et je ne comprends pas la ligne suivante (en italique) que j'ai copié sur internet :

Code:

---

1 2 3 4 5 6 7

Dim d As Object, i& With Feuil2 Set d = CreateObject("Scripting.Dictionary") For i = 2 To .Range("A" & Rows.Count).End(xlUp).Row If .Cells(i, 1) <> "" And Not d.exists(.Cells(i, 1).Value) Then d.Add .Cells(i, 1).Value, .Cells(i, 1).Value Next i End With

---

Je précise que je suis un débutant dans le milieu de la programmation.

Merci de votre aide !

MisterW

Bonjour,

Citation:

---

Envoyé par misterW

- à quoi sert le signe <>, pourquoi ne pas le remplacer par = dans un code :

Code:

---

1 2 3

Private Sub C1_Change() Dim i&, aa, a&, y&, fin& If C1 <> "" Then

---

---

Les signe <> veut dire est différent de donc
Si C1 est différent de vide alors

Citation:

---

Envoyé par misterW

- à quoi servent les commandes ubound et array

---

https://msdn.microsoft.com/fr-fr/lib...or=-2147217396

Citation:

---

Envoyé par misterW

- et je ne comprends pas la ligne suivante (en italique) que j'ai copié sur internet :

Code:

---

1 2 3 4 5 6 7

Dim d As Object, i& With Feuil2 Set d = CreateObject("Scripting.Dictionary") For i = 2 To .Range("A" & Rows.Count).End(xlUp).Row If .Cells(i, 1) <> "" And Not d.exists(.Cells(i, 1).Value) Then d.Add .Cells(i, 1).Value, .Cells(i, 1).Value Next i End With

---

---

d=object référent à Scripting.Dictionary
donc:
si la valeur de la cellule est différent de vide ET la valeur de la cellule n'existe pas dans l'objet, alors ajouter dans l'objet la valeur de la cellule