Discussion :

[misterW]

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 :

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

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 :

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

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

[gnain]

Bonjour,

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

Code :

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

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

- à quoi servent les commandes ubound et array

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

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

Code :

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

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