Discussion :

[AsktoKnow]

Bonjour,

Ma question est très simple : comment rentrer une série de couples de valeur dans une collection?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
'je créé ma collection à l'extérieur de la procédure car je vais l'utiliser dans toute la feuille
Dim EtatCollect As New Collection
 
Private Sub Worksheet_Change(ByVal Target As Range)
 
'c'est certainement cette ligne qui pêche : Comment ajouter un couple de valeur dans ma collection? Quel séparateur utiliser?
EtatCollect.Add (Target.Row, Target.Column)
 
'ensuite comment récupérer, par exemple, la première valeur du troisième indice?
 
End Sub

Je ne veux pas utiliser target.address car je veux les références valeurs chiffrées pour faire calcul avec dans une autre procédure.

Voilà je pense que ça ne dois pas être compliqué mais encore faut-il le savoir...

Merci pour votre attention

[Marc-L]

Bonjour,

via la fonction Array par exemple …

___________________________________________________________________________________________________________

Je suis Paris, Egypte, Nigeria, New-York, Mogadicio, Barcelone, London, Manchester, Stockholm, Istanbul, Berlin, Nice, Bruxelles, Charlie, …

[Theze]

Bonjour,

Ou encore avec une concaténation puis par la suite un Split() pour la récup. des valeurs :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
 
Dim EtatCollect As New Collection
 
Private Sub Worksheet_Change(ByVal Target As Range)
 
'c'est certainement cette ligne qui pêche : Comment ajouter un couple de valeur dans ma collection? Quel séparateur utiliser?
    EtatCollect.Add Target.Row & "," & Target.Column
 
'ensuite comment récupérer, par exemple, la première valeur du troisième indice?
 
End Sub
 
Sub Test()
 
    Dim T
    Dim I As Integer
 
    For I = 1 To EtatCollect.Count
 
        T = Split(EtatCollect(I), ",")
        Debug.Print Cells(CLng(T(0)), CLng(T(1))).Value
 
    Next I
 
    'ré-initialise
    Set EtatCollect = New Collection
 
End Sub

[eriiic]

Bonjour,

pourquoi ne pas mettre le range target carrément ?
Tu auras toutes ses propriétés à ta disposition.
eric

[Invité]

Bonjour,
Perso j'ai rien compris!

[patricktoulon]

salut robert
le demandeur veux dans chache item de la collection cellule1.value,cellule2.value

je rejoin eriic avec l'adresse de la plage formée pas les deux cellules

pui la fonction sum ou autre selon le calcul

[boisgontierjacques]

Bonsoir,

Exemple de collection avec des items qui sont des Arrays à 2 éléments:


Tbl(1) = a(i, 1)
Tbl(2) = a(i, 2)
collect.Add Tbl, Key:=a(i, 1) & a(i, 2)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
Private Sub UserForm_Initialize()
  Set f = Sheets("bd")
  a = f.Range("A2:D" & f.[A65000].End(xlUp).Row).Value
  Dim collect As New Collection
  Dim Tbl(1 To 2)
  On Error Resume Next
  For i = 1 To UBound(a)
    Tbl(1) = a(i, 1)
    Tbl(2) = a(i, 2)
    collect.Add Tbl, Key:=a(i, 1) & a(i, 2)
  Next i
  On Error GoTo 0
  Dim b(): ReDim b(1 To 2, 1 To collect.Count)
  For i = 1 To collect.Count
      b(1, i) = collect(i)(1)
      b(2, i) = collect(i)(2)
  Next i
  Me.ComboBox1.List = Application.Transpose(b)
End Sub

Boisgontier

[AsktoKnow]

bonsoir, merci pour vos réponses !

j'ai commencé d'en regarder quelques unes mais pour chacune j'ai besoin de fouiller un peu pour voir comment utiliser les fonctions / adapter à mon code...

je continuerai donc demain

En attendant je vous souhaite un bon réveillon !!!

Bien à vous.